C# KOD ÖRNEKLERİ: Ocak 2013

4 Ocak 2013 Cuma

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

1 Ocak 2013 Salı

BAŞLIKSIZ FORM ÖRNEĞİ

PostIt-Yapışkan Form Türü bir Çalışma. Bakınız >>

BorderStyle özelliği None olan bir form, Bir RichTextBox, Formu sürüklemek için altta bir panel ,panelin dock; özelliği bottom, Anchor Özelliği; Bottom, Right olan Picture1 (içine saydam ikon),Başlık olarak Dock özelliği; top ve üzerinde saat ile takvimi gösterecek 2 adet label , bir ContextMenuStrip1, ve bir timer ekleyin.

Imports System.Drawing.Color
Imports System.IO
Imports System.Text
Imports System       ' Encoding.GetEncoding(1254))Türkçe karakter 
Public Class Form2
    Const i As Integer = &HA1
    Const j As Integer = 2
    Private sarı, mavi, pembe, yeşil As String
    Public SuruklenenDsy As String 'sürüklenen,opendialog ile açılan,form başlığında gösterilen dosyaAdı ve yolu
    Public TxtOku As IO.StreamReader
    Public uzanti As String
    Dim isSizable As Boolean = True

#Region "Textten ve başlıktan SÜRÜKLE"

Private Sub PictureBox2_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
        PictureBox2.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)

Me.DefWndProc(msg)
    End Sub
#End Region

#Region "Boyutlandırma değişkenleri"
    Dim GripDrag As Boolean
    Dim InitialSizeX As Integer
    Dim InitialSizeY As Integer
#End Region

#Region "Formu Picture1 den sürükleyerek boyutlama"
  
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            GripDrag = True
            InitialSizeX = Me.Width
            InitialSizeY = Me.Height
        End If
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If GripDrag = True Then
            Me.Width = InitialSizeX + (Windows.Forms.Cursor.Position.X - (Me.Width + Me.Location.X))
            Me.Height = InitialSizeY + (Windows.Forms.Cursor.Position.Y - (Me.Height + Me.Location.Y))
            InitialSizeX = Me.Width
            InitialSizeY = Me.Height
            Me.Refresh()
        End If
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        GripDrag = False
    End Sub
#End Region

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = DateString
        Label2.Text = TimeOfDay
    End Sub
    Public Sub RastgeleRenkseç()
        Dim seçilenRenk As Integer
        Dim rastgeleSec As New Random()
        seçilenRenk = rastgeleSec.Next(1, 5)

Select Case seçilenRenk
            Case 1 : Call sarırenk()
            Case 2 : Call mavirenk()
            Case 3 : Call pemberenk()
            Case 4 : Call yeşilrenk()
        End Select
    End Sub
    Private Sub PictureBox4_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox4.Click
        Call RastgeleRenkseç()
    End Sub

Private Sub MNMavi_Click(sender As System.Object, e As System.EventArgs) Handles MNMavi.Click
        Call mavirenk()
    End Sub

Public Sub mavirenk()

Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Me.PictureBox2.BackColor = Color.LightSteelBlue
        Me.Label1.BackColor = Color.LightSteelBlue
        Me.Label2.BackColor = Color.LightSteelBlue
        Me.PictureBox2.BackColor = Color.LightSteelBlue
        Me.Panel1.BackColor = Color.Lavender
        Me.RTBox.BackColor = Color.Lavender
        PictureBox1.BackColor = Transparent
        Me.Show()
        Me.Focus()
    End Sub

Private Sub MnSarı_Click(sender As System.Object, e As System.EventArgs) Handles MnSarı.Click
        Call sarırenk()
    End Sub

Public Sub sarırenk()

Me.PictureBox2.BackColor = Color.Bisque
        Me.RTBox.BackColor = Color.LemonChiffon
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        Me.Panel1.BackColor = Color.LemonChiffon
        PictureBox1.BackColor = Transparent
        Me.Show()
        Me.Focus()
    End Sub

Private Sub MnPemba_Click(sender As System.Object, e As System.EventArgs) Handles MnPemba.Click
        Call pemberenk()
    End Sub

Public Sub pemberenk()

Me.PictureBox2.BackColor = Color.Pink
        Me.RTBox.BackColor = Color.LavenderBlush
        Me.Panel1.BackColor = Color.LavenderBlush
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        PictureBox1.BackColor = Transparent 'RTBox.BackColor
        Me.Show()
        Me.Focus()
    End Sub
    Private Sub MnYeşil_Click(sender As System.Object, e As System.EventArgs) Handles MnYeşil.Click

Call yeşilrenk()
    End Sub

Public Sub yeşilrenk()

Me.PictureBox2.BackColor = Color.YellowGreen 'ForestGreen
        Me.RTBox.BackColor = Color.LightGreen
        Me.Panel1.BackColor = Color.LightGreen
        Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        Label1.BackColor = PictureBox2.BackColor
        Label2.BackColor = PictureBox2.BackColor
        PictureBox1.BackColor = Transparent 'RTBox.BackColor
        Me.Show()
        Me.Focus()
    End Sub

Private Sub PictureBox4_MouseLeave(sender As System.Object, e As System.EventArgs) Handles PictureBox4.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(PictureBox4, "Renk değiştir")
    End Sub

Private Sub PictureBox3_MouseLeave(sender As System.Object, e As System.EventArgs) Handles PictureBox3.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(PictureBox3, "KAPAT")
    End Sub

Public Sub hizala()
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionIndent = 13
        Me.RTBox.DeselectAll()
    End Sub

Private Sub MNKapat_Click(sender As System.Object, e As System.EventArgs) Handles MNKapat.Click
        Me.Close()
    End Sub

Private Sub mnkes_Click(sender As System.Object, e As System.EventArgs) Handles mnkes.Click
        Try
            RTBox.Cut()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kesmek için açılamıyor.", "Kes", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub Mnkopyala_Click(sender As System.Object, e As System.EventArgs) Handles Mnkopyala.Click
        Try
            RTBox.Copy()
        Catch exc As Exception
            MessageBox.Show("Belge içeriğini kopyalamak için açılamıyor.", "Kopyala", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub MnYapıstir_Click(sender As System.Object, e As System.EventArgs) Handles MnYapıstir.Click
        Try
            RTBox.Paste()
        Catch exc As Exception
            MessageBox.Show("Panoya alınan  Belge içeriği açılamıyor.", " Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub MnSil_Click(sender As System.Object, e As System.EventArgs) Handles MnSil.Click
        RTBox.Clear()
    End Sub

Private Sub MNTümKapat_Click(sender As System.Object, e As System.EventArgs)
        End
    End Sub

Private Sub Label2_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
        Label2.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)

End Sub

Private Sub Label1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        Label1.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub

Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click
        Me.Close()

End Sub

Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        Panel1.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)

Me.DefWndProc(msg)
    End Sub

Private Sub mngeri_Click(sender As System.Object, e As System.EventArgs)
        If RTBox.CanUndo Then
            RTBox.Undo()
        End If
    End Sub

Private Sub MNileri_Click(sender As System.Object, e As System.EventArgs)
        If RTBox.CanRedo Then
            RTBox.Redo()
        End If
    End Sub

Private Sub RTBox_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles RTBox.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.WindowState = FormWindowState.Minimized
        End If
    End Sub

Private Sub RTBox_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.SelectionChanged
        Me.RTBox.SelectionIndent = 20
    End Sub

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub PictureBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles PictureBox1.DoubleClick
        If isSizable = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle 'Sizable
            isSizable = True
        Else
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            isSizable = False
        End If
    End Sub

Private Sub Form2_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        AnaFrm.CheckBox3.Checked = GetSetting(Application.ProductName, Application.ProductName, "Hep Üstte", True)
        If AnaFrm.CheckBox3.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
        Me.Top = AnaFrm.Top
        Me.Left = AnaFrm.Left + AnaFrm.Width + 10

PictureBox1.Cursor = Cursors.SizeNWSE 'Sürükleme yeri kürsör biçimi
        Me.RTBox.SelectionIndent = 20

Me.RTBox.AllowDrop = True 'gezginden dosya sürüklemek için
        Timer1.Start()
        Label1.Text = DateString
        Label2.Text = TimeOfDay
    End Sub
End Class