C# KOD ÖRNEKLERİ: TEXTBOX İÇİNDE SATIR ,SÜTUN,HARF,SATIR SAYISI GÖSTEREN KOD

Bir adet textbox ve statusbar ekleyiniz. TextBox'un (TextChanged) özelliği ile gösterilir

RichtextBox içine Resim ekleme Kodu

Private Sub ResimEkleMn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResimEkleMn.Click, tbrResmEkle.Click

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Try
                Dim strResimYolu As String = OpenFileDialog1.FileName
                Dim img As Image
                img = Drawing.Image.FromFile(strResimYolu)
                Clipboard.SetDataObject(img)
                Dim df As DataFormats.Format
                df = DataFormats.GetFormat(DataFormats.Bitmap)
                If Me.rtbDoc.CanPaste(df) Then
                    Me.rtbDoc.Paste(df)
                End If
            Catch ex As Exception
                MessageBox.Show("Seçili Görüntü formatı eklemek için açılamıyor.", "RTE - Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

End If
    End Sub

OpenFileDialog ile Dosya Açma kodu

'SuruklenenDsy  Public olarak modulde veya form içinde tanımlanmalıdır 
    Public SuruklenenDsy As String

Private Sub tbrAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbrAc.Click

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            SuruklenenDsy = OpenFileDialog1.FileName
            Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(SuruklenenDsy)
            uzanti = uzanti.ToUpper()

Select Case uzanti
                Case ".RTF"
                    rtbDoc.LoadFile(SuruklenenDsy, RichTextBoxStreamType.RichText)

Case ".TXT", ".HTM"
                    rtbDoc.Clear()
                    TxtOku = New IO.StreamReader(SuruklenenDsy, System.Text.Encoding.Default)
                    rtbDoc.Text = TxtOku.ReadToEnd
                    TxtOku.Close()
                    TxtOku = Nothing
                    rtbDoc.Focus()
                    rtbDoc.SelectionStart = 0
                    rtbDoc.SelectionLength = 0
                    rtbDoc.Modified = False
                Case Else
                    Try
                        System.Diagnostics.Process.Start(SuruklenenDsy)
                    Catch ex As Exception
                        MessageBox.Show(uzanti & " 'Uzantılı uygulama Bulunamadı.", "RTE - Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
                    Exit Sub
            End Select
        End If
    End Sub

Dosya Saklama

Imports System.Text
Imports System.IO

Public Class Form1
    Public TxtOku As IO.StreamReader
    Public Yaz As IO.StreamWriter
    Public SuruklenenDsy As String

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            SuruklenenDsy = SaveFileDialog1.FileName
            Call DosyaCinsiniBul_KAYDET()
            RichTextBox1.Modified = False

End If
    End Sub
    Public Sub DosyaCinsiniBul_KAYDET()
        Dim uzanti As String
        uzanti = System.IO.Path.GetExtension(SaveFileDialog1.FileName)
        uzanti = uzanti.ToUpper() ' Büyük harf yap

Try
            Select Case uzanti
                Case ".RTF"
                    RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
                Case Else
                    Dim TextYaz As New StreamWriter(SaveFileDialog1.FileName, False, Encoding.Default)
                    TextYaz.Write(RichTextBox1.Text)
                    TextYaz.Close()
                    TextYaz = Nothing
                    RichTextBox1.SelectionStart = 0
                    RichTextBox1.SelectionLength = 0
            End Select
            RichTextBox1.Modified = False

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
    End Sub
 
End Class

Kopyala, Kes, Yapıştır Kodları

Private Sub KopyalaTSmn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopyalaTSmn.Click, tbrKopyala.Click, KopyalaKMS.Click
        Try
            rtbDoc.Copy()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kopyalamak için açılamıyor.", "RTE - Kopyala", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub KesTSmn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KesTSmn.Click, tbrKes.Click, KesKMS.Click
        Try
            rtbDoc.Cut()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kesmek için açılamıyor.", "RTE - Kes", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub YapistirTSmn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapistirTSmn.Click, tbrYapistir.Click, YapistirKMS.Click
        'Dosya aç menüsünden seçilen resim panoya kopyalanır ve burada kullanılır
        Try
            If Clipboard.ContainsImage() Then 'resim ise
                'picurebox içine panoyu aktar
                ResimEklePic.Image = Clipboard.GetImage()
                rtbDoc.Paste()
                Exit Sub
            End If
            'Text ise
            rtbDoc.Paste()

Catch exc As Exception
            MessageBox.Show("Panoya alınan  Belge içeriği açılamıyor.", "RTE - Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Environment.GetCommandLineArgs Komutu ile dosyayı açma kodu

Public Class Form1
    Private SuruklenenDsy As String
    Public TxtOku As IO.StreamReader
    Public Yaz As IO.StreamWriter

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If Environment.GetCommandLineArgs.Length > 1 Then

SuruklenenDsy = Environment.GetCommandLineArgs(1)

Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(SuruklenenDsy)
            uzanti = uzanti.ToUpper()

Select Case uzanti
                Case ".RTF"
                    RichTextBox1.LoadFile(SuruklenenDsy, RichTextBoxStreamType.RichText)
                Case ".TXT", ".HTM"
                    RichTextBox1.Clear()
                    TxtOku = New IO.StreamReader(SuruklenenDsy, System.Text.Encoding.Default)
                    RichTextBox1.Text = TxtOku.ReadToEnd
                    TxtOku.Close()
                    TxtOku = Nothing
                    RichTextBox1.Focus()
                    RichTextBox1.SelectionStart = 0
                    RichTextBox1.SelectionLength = 0
            End Select
            Me.RichTextBox1.Modified = False
        End If

End Sub
End Class

Metin değişiklilerini ileri_geri Al Kod örneği

Private Sub GeriAlmn_Click(sender As System.Object, e As System.EventArgs) Handles GeriAlmn.Click

If rtbDoc.CanUndo Then
            rtbDoc.Undo()
            If rtbDoc.CanUndo = False Then GeriAlmn.Enabled = False
        End If
    End Sub

Private Sub ileriAlmn_Click(sender As System.Object, e As System.EventArgs) Handles ileriAlmn.Click
        If rtbDoc.CanRedo Then
            rtbDoc.Redo()
        End If
    End Sub

Private Sub rtbDoc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtbDoc.TextChanged

If rtbDoc.Modified Then

If rtbDoc.CanUndo = False Then
                GeriAlmn.Enabled = False : GeriAlTSmn.Enabled = False
            Else
                GeriAlmn.Enabled = True : GeriAlTSmn.Enabled = True
            End If

If rtbDoc.CanRedo = False Then
                ileriAlmn.Enabled = False : ileriAlTSmn.Enabled = False
            Else
                ileriAlmn.Enabled = True : ileriAlTSmn.Enabled = True
            End If
        End If

End Sub

Metnin Boyutunu Büyütüp Küçültme kodları

Yazıcıdan Çıktı alma Proje Kodu (İNDİR)

Form Kodları
Forma bir RichTextBox ve bir Buton eklenecek. Benzer Bir örnek İNDİR

PCPrint Class.vb Örneği
Proje Menüsünden Bir "Class1.vb" adında bir Sınıf ekleyin ve Class sınıfının kod sayfasını açın, önce tümünü seçip sonra buradaki kodları seçtiğinizin üstüne yapıştırın.

Imports System.Drawing
Imports System.Drawing.Printing

Public Class PCPrint
    Inherits Printing.PrintDocument
#Region " ÖZEL DEĞİŞKENLER "

''' <summary>
    ''' </summary>
    ''' <remarks></remarks>
    Private _font As Font

''' <summary>
    ''' </summary>
    ''' <remarks></remarks>
    Private _text As String
#End Region

#Region " Sınıf Özellikleri"
    ''' <summary>
    ''' </summary>
    ''' <value></value>
    ''' <returns>A string</returns>
    ''' <remarks></remarks>
    Public Property TextToPrint() As String
        Get
            Return _text
        End Get
        Set(ByVal Value As String)
            _text = Value
        End Set
    End Property

''' <summary>
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property PrinterFont() As Font
        Get
            Return _font
        End Get
        Set(ByVal Value As Font)
            _font = Value
        End Set
    End Property
#End Region

#Region " Sınıf Oluşturucular "
    ''' <summary>
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()
        MyBase.New()
        _text = String.Empty
    End Sub

''' <summary>
    ''' </summary>
    ''' <param name="str">Text that will be printed</param>
''' <remarks></remarks>
    Public Sub New(ByVal str As String)
        MyBase.New()
        _text = str
    End Sub
#End Region

#Region " YAZDIRMAYA BAŞLA "
    ''' <summary>
    ''' </summary>
    ''' <param name="e"></param>
''' <remarks></remarks>
    Protected Overrides Sub OnBeginPrint(ByVal e As Printing.PrintEventArgs)

MyBase.OnBeginPrint(e)

If _font Is Nothing Then

_font = New Font("Times New Roman", 10)
        End If
    End Sub
#End Region

#Region " BASKI GÖRÜNÜMÜ "
    ''' <summary>
    ''' </summary>
    ''' <param name="e"></param>
''' <remarks>This provides the print logic for our document</remarks>
    Protected Overrides Sub OnPrintPage(ByVal e As Printing.PrintPageEventArgs)

MyBase.OnPrintPage(e)

Static curChar As Integer
        Dim printHeight As Integer
        Dim printWidth As Integer
        Dim leftMargin As Integer
        Dim rightMargin As Integer
        Dim lines As Int32
        Dim chars As Int32

With MyBase.DefaultPageSettings
            printHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
            printWidth = .PaperSize.Width - .Margins.Left - .Margins.Right
            leftMargin = .Margins.Left 'X
            rightMargin = .Margins.Top   'Y
        End With

If MyBase.DefaultPageSettings.Landscape Then
            Dim tmp As Integer
            tmp = printHeight
            printHeight = printWidth
            printWidth = tmp
        End If

Dim numLines As Int32 = CInt(printHeight / PrinterFont.Height)

Dim printArea As New RectangleF(leftMargin, rightMargin, printWidth, printHeight)

Dim format As New StringFormat(StringFormatFlags.LineLimit)

e.Graphics.MeasureString(_text.Substring(RemoveZeros(curChar)), PrinterFont, New SizeF(printWidth, printHeight), format, chars, lines)

e.Graphics.DrawString(_text.Substring(RemoveZeros(curChar)), PrinterFont, Brushes.Black, printArea, format)

curChar += chars

If curChar < _text.Length Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            curChar = 0
        End If
    End Sub
#End Region

#Region " sıfırları kaldırın "
    ''' <summary>
    ''' </summary>
    ''' <param name="value">Value to check</param>
''' <returns></returns>
    ''' <remarks></remarks>
    Public Function RemoveZeros(ByVal value As Integer) As Integer

Select Case value
            Case 0
                Return 1
            Case Else
                Return value
        End Select
    End Function
#End Region

End Class

Command Komutu (Command Line Arguments)
Bir Editörde " *.txt, *.rtf" türü bir Dosyaya tıklandığında Word veya Not defteri o dosyayı açar. Sizin de ediörünüzün aynı işlemi yapabilmesi için kod örneği.

Dim TiklananDsy As String() = Environment.GetCommandLineArgs()
        If TiklananDsy.Length > 1 Then
            Dim workPr As Process() = Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName)
            'Programın yeniden yüklenmesini önleyen kod parçası    
            For Each pro As Process In workPr
                If Process.GetCurrentProcess().Id <> pro.Id Then
                    pro.Kill()
                End If
            Next

SuruklenenDsy = Environment.GetCommandLineArgs(1)
            Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(SuruklenenDsy)
            uzanti = uzanti.ToUpper()

Select Case uzanti
                Case ".RTF"
                    Me.rtbDoc.Clear()
                    Me.rtbDoc.LoadFile(SuruklenenDsy, RichTextBoxStreamType.RichText)
                Case ".TXT", ".HTM"
                    Me.rtbDoc.Clear()
                    TxtOku = New IO.StreamReader(SuruklenenDsy, System.Text.Encoding.Default)
                    Me.rtbDoc.Text = TxtOku.ReadToEnd
                    TxtOku.Close()
                    TxtOku = Nothing
                    Me.rtbDoc.Focus()
                    Me.rtbDoc.SelectionStart = 0
                    Me.rtbDoc.SelectionLength = 0
            End Select
            Me.rtbDoc.Modified = False
            ToolStripStatusLabel1.Text = SuruklenenDsy
            GoTo pas
        End If

Program Ayarlarını Registere Kaydetmek (SaveSetting Getsetting)

Private Sub AnaFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try
            Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False)
            Dim subregkey As RegistryKey = regkey.OpenSubKey("ErRichTextEditor", False)
            Debug.WriteLine(subregkey.GetValue("Uygulama Versiyonu"))
            
              AyarFrm.PencereYeriChk.Checked = subregkey.GetValue("Pencere Pozisyonu", True)
            If AyarFrm.PencereYeriChk.Checked = True Then
                Me.StartPosition = FormStartPosition.Manual
                Dim sol As String = Convert.ToInt32(UInt32.Parse(subregkey.GetValue("Pencere Pozisyonu X")))
                Dim ust As String = Convert.ToInt32(UInt32.Parse(subregkey.GetValue("Pencere Pozisyonu Y")))
                Me.Width = subregkey.GetValue("Pencere Eni", Me.Width)
                Me.Height = subregkey.GetValue("Pencere Boyu", Me.Height)
                Me.SetBounds(sol, ust, Me.Width, Me.Height)
            Else
                Me.StartPosition = FormStartPosition.CenterScreen
            End If
            AyarFrm.CheckBox1.Checked = subregkey.GetValue("Hep Üstte Tut", True)
            subregkey.Close()
            regkey.Close()
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
    End Sub

Private Sub AnaFrm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", True)
            regkey.CreateSubKey("ErRichTextEditor")
            Dim subregkey As RegistryKey = regkey.OpenSubKey("ErRichTextEditor", True)
            subregkey.SetValue("Uygulama Versiyonu", String.Format("Version {0}", My.Application.Info.Version.ToString))
            subregkey.SetValue("Hep Üstte Tut", AyarFrm.CheckBox1.Checked)
            subregkey.SetValue("Font Color", rtbDoc.ForeColor)
            subregkey.SetValue("Pencere Pozisyonu X", Me.Location.X)
            subregkey.SetValue("Pencere Pozisyonu Y", Me.Location.Y)
            subregkey.SetValue("ESC ile Çıkılsın", AyarFrm.ESCileCik.Checked)
            subregkey.SetValue("Pencere Eni", Me.Width)
            subregkey.SetValue("Pencere Boyu", Me.Height)
            NotifyIcon1.Dispose()
            subregkey.Close()
            regkey.Close()
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
    End Sub

VB6 ile Registere kayıt Örneği VB.NET ile de geçerli

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Application.ProductName, "taryda", TraydaGosterChk.Checked)
        SaveSetting(Application.ProductName, Application.ProductName, "Minimize Başla", minimizeBaslaChk.Checked)
    End Sub
    
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      
        TraydaGosterChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "taryda", False)
        TraydaGosterTS.Checked = TraydaGosterChk.Checked

minimizeBaslaChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Minimize Başla", False)
        MinimizBaslatTS.Checked = minimizeBaslaChk.Checked

If TraydaGosterChk.Checked = True Then
            If minimizeBaslaChk.Checked = True Then
                Call TraydaMinimize()
            Else
                Call TraydaNORMAL()
            End If
        Else
            Call FormNormal()
        End If

End Sub

4 Ocak 2013 Cuma

TEXTBOX İÇİNDE SATIR ,SÜTUN,HARF,SATIR SAYISI GÖSTEREN KOD