C# KOD ÖRNEKLERİ: Haziran 2013

27 Haziran 2013 Perşembe

Vb.net Program açılmasını Koşula Bağlama

Notepad.exe Açık değilse sizin program da açılmayacak. Notepad Açık ve arka planda çalışıyorsa Sizin Açmaya çalıştığınız uygulama da açılacak... Bu örneği her program için uygulamak mümkün...

20 Haziran 2013 Perşembe

KOPYALANAN LİNKİ OTOMATİKMAN PROGRAMINIZA ALMAK VE BÖLÜMLENDİRMEK

Browserden veya başka bir alandan Ctrl+C veya diğer yöntemlerle bir linki PANOYA aldığınız anda açık olan programınızın belirteceğiniz bir text veya combo kutusuna otomatik olarak kopyalamak, gerekirse saklamak, o linkin "Site adını", "Orjinal veya linkin tamamını" bölümlendirmek ile ilgili bir örnek...

KOD İNDİR

Imports System.Runtime.InteropServices 'PANO
Public Class Form1

#Region "PANO DEĞİŞKENLERİ..."
    Private Const WM_DRAWCLIPBOARD As Integer = &H308
    Private Const WM_CHANGECBCHAIN As Integer = &H30D
    Private mNextClipBoardViewerHWnd As IntPtr
    Private Event OnClipboardChanged()

#End Region

#Region "PANO DLL FONKSİYONLARI..."

<DllImport("user32")> _
    Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr
    End Function

<DllImport("user32")> _
    Private Shared Function ChangeClipboardChain(ByVal hWnd As IntPtr, ByVal hWndNext As IntPtr) As _
    <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

<DllImport("user32")> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, _
    ByVal lParam As IntPtr) As IntPtr
    End Function
    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_DRAWCLIPBOARD
                RaiseEvent OnClipboardChanged()
                SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)

Case WM_CHANGECBCHAIN
                If m.WParam.Equals(mNextClipBoardViewerHWnd) Then
                    mNextClipBoardViewerHWnd = m.LParam
                Else
                    SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
                End If
        End Select
        MyBase.WndProc(m)
    End Sub
#End Region

#Region "PANOYA ALINANI TETKİKLEME VE KULLANMA.."
    'sizin gereken değişiklik
    Private Sub ClipBoardChanged()
        If My.Computer.Clipboard.ContainsText Then
            If Uri.IsWellFormedUriString(My.Computer.Clipboard.GetText, UriKind.Absolute) Then
                TextURL.Text = (My.Computer.Clipboard.GetText)
                 'BURAYA >>  ListBox1.Items.Add(My.Computer.Clipboard.GetText) kodu ile listeye de ekleyebilirsiniz
                Button1.PerformClick()
            End If
        End If
    End Sub

#End Region

#Region "'------------------------------"

#End Region
#Region "FORM OLAYLARI..."

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        mNextClipBoardViewerHWnd = SetClipboardViewer(Me.Handle)
        AddHandler Me.OnClipboardChanged, AddressOf ClipBoardChanged
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        ChangeClipboardChain(Me.Handle, mNextClipBoardViewerHWnd)
    End Sub

#End Region

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim uri As New Uri(TextURL.Text)
        SiteAdıUriLbl.Text = uri.Host             'Linkin içinden alınan Site Adı
        AdSonrasıUriLbl.Text = uri.AbsolutePath   'Site adından link sonuna kadar olan kısım
        TamlinkUriLbl.Text = uri.AbsoluteUri      'Kopyalanan linkin tamamı
        OrjLinkLblXX.Text = uri.OriginalString.Replace(uri.AbsolutePath, "") 'orjinal Linkin Tamamı
        LinkLabel1.Text = uri.OriginalString.Replace(uri.AbsolutePath, "")
    End Sub

Private Sub OrjLinkLbl_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Linklabel1.LinkClicked
        System.Diagnostics.Process.Start(Linklabel1.Text)
    End Sub
End Class

12 Haziran 2013 Çarşamba

Renk Paletli Not defteri Örneği

HAZIR KODLARINI İNDİR

'AcikHoparlorPicBox.SendToBack()   'arkaya
'KHopalorPicBox.BringToFront()     'Öne
Imports System.Text
Imports System.IO
Imports System.Drawing.Color

Public Class Form1
    Const i As Integer = &HA1
    Const j As Integer = 2
    Dim renk As String

#Region " BAŞLIKSIZ FORM SADECE KENAR ÇİZGİLERİ VAR"
    Private mouse_offset As Point 'Başlıksız form-kenarlı

Protected Overrides ReadOnly Property CreateParams() As CreateParams
        'Başlıksız form-kenarlı
        Get
            Const WS_CAPTION As Integer = &HC00000

Dim baseParams As CreateParams = MyBase.CreateParams

'Caption olmasın
            baseParams.Style = baseParams.Style And Not WS_CAPTION

Return baseParams
        End Get
    End Property
#End Region

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

#Region " FORM OLAYLARI..."

Private Sub Form2_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim sonuc As DialogResult
        If MetinDegisti Then

sonuc = MessageBox.Show("( " & DsyAdi & " )" & " Dosyası değişti." & vbCrLf & "Saklamak istermisiniz?", _
                    " Sakla?", MessageBoxButtons.YesNo, _
                        MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

If sonuc = Windows.Forms.DialogResult.Yes Then

DsySaklaMn.PerformClick()
                MetinDegisti = False
                e.Cancel = False
            Else
                e.Cancel = False
            End If

End If
    End Sub
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = GetSetting(Application.ProductName, Application.ProductName, "Kenar Çizgisi", Me.FormBorderStyle)

PanelGizle = True
        DurumBarPic.Cursor = Cursors.Default
        SuruklePic.Cursor = Cursors.SizeNWSE
        SuruklePic.BackColor = Transparent
        Me.Label1.Text = "İsimsiz"
        DsyYolu = Label1.Text
        Call UzantiBicimiNe()

''REM ----------------------------------------------- 'command

If Environment.GetCommandLineArgs.Length > 1 Then
            Dim workPr As Process() = Process.GetProcessesByName(Process.GetCurrentProcess().ProcessName)
            For Each pro As Process In workPr
                If Process.GetCurrentProcess().Id <> pro.Id Then
                    pro.Kill()
                End If
            Next
            DsyYolu = Environment.GetCommandLineArgs(1)

Me.Label1.Text = System.IO.Path.GetFileName(DsyYolu)

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

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

MetinDegisti = False
            GeriAlMn.Enabled = False
            GeriAlMn.Enabled = False

End If
        ''REM -----------------------------------------------

End Sub
    Private Sub Form2_GotFocus(sender As Object, e As System.EventArgs) Handles Me.GotFocus
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub
    Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click
        Me.Close()
    End Sub

Private Sub MinimizePic_Click(sender As System.Object, e As System.EventArgs) Handles MinimizePic.Click
        Me.ShowInTaskbar = True
        Me.WindowState = FormWindowState.Minimized
    End Sub
#End Region

#Region " RİCHTEXTBOX OLAYLARI...."

Private Sub RichTextBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
        Panel1.SendToBack()
        Panel1.Visible = False
    End Sub

Private Sub RichTextBox1_MouseLeave(sender As System.Object, e As System.EventArgs)
        Panel1.SendToBack()
        Panel1.Visible = False
    End Sub
    Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs)
        PanelGizle = True
    End Sub

#End Region

#Region " MENÜ OLAYLARI.."

Private Sub FontSecMn_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles FontRengiSecMn.MouseMove
        If PanelGizle = True Then Exit Sub
        Button43.Visible = True
        Panel1.Top = 25
        Panel1.Left = 275

Panel1.Visible = True
        Panel1.BringToFront()
        Me.OtomatikBtn.Text = "Otomatik"
        secilenPanel = "FontRengiSec"
        Call PanelSec()
        FontRengiSecMn_ButtonClick(sender, e)

End Sub
    Private Sub FontRengiSecMn_ButtonClick(sender As System.Object, e As System.EventArgs) Handles FontRengiSecMn.ButtonClick

Select Case secilenPanel
            Case "FontRengiSec"
                Me.FontRengiPic.BackColor = Button43.BackColor   'Color.Black
                Me.RTBox.SelectionColor = FontRengiPic.BackColor

Case "FontDolguRengi"
                Me.RTBox.BackColor = AFRengiPic.BackColor
                Me.RTBox.SelectionColor = Me.RTBox.ForeColor
                Me.RTBox.BackColor = White

Case "FontSaydamlaştır" 'seçili yer varmı öğren
                Dim p As Integer = Me.RTBox.SelectionStart
                Me.RTBox.SelectAll()
                Me.RTBox.SelectionColor = Me.RTBox.SelectionColor 'Yalnız seçilen renk eski haline gelir
                Me.RTBox.SelectionBackColor = Me.RTBox.BackColor 'Control.DefaultBackColor 'Arkafonu seçili metni seçilmemiş hale getirir
                AFRengiPic.BackColor = Me.RTBox.BackColor
                Me.RTBox.DeselectAll()

Me.RTBox.SelectAll()
                AFonRengiMn_ButtonClick(sender, e)
                Me.RTBox.DeselectAll()
                RTBox.SelectionStart = p
                p = Nothing
            Case Else

secilenPanel = "FontRengiSec"
                OtomatikBtn.PerformClick()
                'FontRengiPic.BackColor = Color.Black
                'Me.RTBox.SelectionColor = FontRengiPic.BackColor

End Select
    End Sub
    Private Sub FontRengiSecMn_DropDownOpening(sender As System.Object, e As System.EventArgs) Handles FontRengiSecMn.DropDownOpening
        Panel1.Top = 25
        Panel1.Left = 275
        Button43.Visible = True
        Me.OtomatikBtn.Text = "Otomatik"
        PanelGizle = False
        Panel1.Visible = True
        Panel1.BringToFront()
        secilenPanel = "FontRengiSec"
        Call PanelSec()

End Sub

Private Sub FontRengiSecMn_Click(sender As System.Object, e As System.EventArgs) Handles FontRengiSecMn.Click
        secilenPanel = "FontRengiSec"
        OtomatikBtn.PerformClick()
    End Sub

Private Sub AFonRengiMn_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AFonRengiMn.MouseMove
        If PanelGizle = True Then Exit Sub
        Button43.Visible = False
        Panel1.Top = 25
        Panel1.Left = 310
        Panel1.Visible = True
        Panel1.BringToFront()
        Me.OtomatikBtn.Text = "Saydam"
        secilenPanel = "FontDolguRengi"

End Sub

Private Sub RenkUtusuMn_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RenkKutusuMn.MouseMove
        If PanelGizle = True Then Exit Sub
        Button43.Visible = False
        Panel1.Top = 25
        Panel1.Left = 340
        Panel1.Visible = True
        Panel1.BringToFront()
        Me.OtomatikBtn.Text = "Saydam"
        secilenPanel = "FontSaydamlaştır"

End Sub

Private Sub AFonRengiMn_DropDownOpening(sender As System.Object, e As System.EventArgs) Handles AFonRengiMn.DropDownOpening
        Panel1.Top = 25
        Panel1.Left = 310
        PanelGizle = False
        Panel1.Visible = True
        Panel1.BringToFront()
        Button43.Visible = False
        OtomatikBtn.Text = "Saydam"
        secilenPanel = "FontDolguRengi"
        Call FontDolguRengi()
    End Sub
    Public Sub FontDolguRengi()
        Me.RTBox.SelectionBackColor = AFRengiPic.BackColor
        Call PanelSec()
        Exit Sub
    End Sub
    Private Sub RenkKutusuMn_DropDownOpening(sender As System.Object, e As System.EventArgs) Handles RenkKutusuMn.DropDownOpening
        Panel1.Top = 25
        Panel1.Left = 340
        PanelGizle = False
        Button43.Visible = False
        Panel1.Visible = True
        Panel1.BringToFront()
        OtomatikBtn.Text = "Saydam"
        secilenPanel = "FontSaydamlaştır"
        'Call FontSaydamlaştır()

End Sub

Public Sub FontSaydamlaştır()
        'Stop
        Dim p As Integer = Me.RTBox.SelectionStart
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionColor = Me.RTBox.SelectionColor 'Yalnız seçilen renk eski haline gelir
        Me.RTBox.SelectionBackColor = Me.RTBox.BackColor 'Control.DefaultBackColor 'Arkafonu seçili metni seçilmemiş hale getirir
        AFRengiPic.BackColor = Me.RTBox.BackColor 'Button40.BackColor
        Me.RTBox.DeselectAll()

Me.RTBox.SelectAll()
        'AFonRengiMn_ButtonClick(sender, e)
        Me.RTBox.DeselectAll()
        Me.RTBox.SelectionStart = p
        p = Nothing
    End Sub

Private Sub KaydırmaÇubuğuEkleToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KaydırmaÇubuğuEkleToolStripMenuItem.Click
        If Me.RTBox.ScrollBars = RichTextBoxScrollBars.None Then
            Me.RTBox.ScrollBars = RichTextBoxScrollBars.ForcedVertical
        Else
            Me.RTBox.ScrollBars = RichTextBoxScrollBars.None
        End If
    End Sub

Private Sub AFonRengiMn_ButtonClick(sender As System.Object, e As System.EventArgs) Handles AFonRengiMn.ButtonClick

Button43.Visible = False
        Me.RTBox.SelectionBackColor = AFRengiPic.BackColor
        Me.RTBox.ForeColor = System.Drawing.Color.Black  'Button43.BackColor '
        Exit Sub

'Dim bDlg As New ColorDialog

'bDlg.AnyColor = True
        'bDlg.SolidColorOnly = False
        'bDlg.AllowFullOpen = True
        'bDlg.FullOpen = True

'If bDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
        '    Call TumArkaFonSec()
        '    RTBox.BackColor = bDlg.Color

'End If

End Sub

Private Sub AFRengi_Click(sender As System.Object, e As System.EventArgs) Handles AFRengiPic.Click
        AFonRengiMn_ButtonClick(sender, e)
    End Sub

Private Sub KapatPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPic.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(KapatPic, "Kapat")
    End Sub

Private Sub GeriAlMn_Click(sender As System.Object, e As System.EventArgs) Handles GeriAlMn.Click
        Me.RTBox.Undo()
        If Me.RTBox.TextLength <= 0 Then
            KopyalaMn.Enabled = False
            DsySaklaMn.Enabled = False
            FarkliSaklaMn.Enabled = False
            YeniMn.Enabled = False
        Else
            YeniMn.Enabled = True
            KopyalaMn.Enabled = True
            DsySaklaMn.Enabled = True
            FarkliSaklaMn.Enabled = True
        End If
    End Sub

Private Sub ileriAlMn_Click(sender As System.Object, e As System.EventArgs) Handles ileriAlMn.Click
        Me.RTBox.Redo()
        'If RTBox.TextLength >= 0 Then
        '    KopyalaMn.Enabled = True
        'Else
        '    KopyalaMn.Enabled = False
        'End If
    End Sub

Private Sub RTBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.TextChanged
        DsySaklaMn.Enabled = True
        FarkliSaklaMn.Enabled = True
        YeniMn.Enabled = True
        ileriAlMn.Enabled = Me.RTBox.CanRedo
        GeriAlMn.Enabled = Me.RTBox.CanUndo

If Me.RTBox.TextLength >= 0 Then
            KopyalaMn.Enabled = True
        Else
            KopyalaMn.Enabled = False
        End If
        MetinDegisti = True
    End Sub

Private Sub KopyalaMn_Click(sender As System.Object, e As System.EventArgs) Handles KopyalaMn.Click
        Me.RTBox.Copy()
        Call UzantiBicimiNe()
    End Sub
    Private Sub UzantiBicimiNe()

If Me.RTBox.CanPaste(DataFormats.GetFormat(DataFormats.Text)) Then
            MnYapıstir.Enabled = True
            YapistirMn.Enabled = True 'panoda kayıt var
        Else
            MnYapıstir.Enabled = False
        End If
        If Me.RTBox.TextLength = 0 Then KopyalaMn.Enabled = False
    End Sub

Private Sub YapistirMn_Click(sender As System.Object, e As System.EventArgs) Handles YapistirMn.Click
        Me.RTBox.Paste()
    End Sub

Private Sub RTBox_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.SelectionChanged
        If Me.RTBox.SelectedText = "" Then
            KopyalaMn.Enabled = False
        Else
            KopyalaMn.Enabled = True
        End If
    End Sub

Private Sub YapistirMn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles YapistirMn.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            YapistirMn.Enabled = False
            Clipboard.Clear()
            YapistirMn.Enabled = False
        End If

End Sub

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

Private Sub RenkKutusuMn_ButtonClick(sender As System.Object, e As System.EventArgs) Handles RenkKutusuMn.ButtonClick
        'TAMAM
        RTBox_SelectionChanged(sender, e)
        If RKSRengiPic.BackColor <> White Then Call FontSaydamlaştır() : Exit Sub
        If KopyalaMn.Enabled = False Then
            Call SaydamYap()

Else
            Call TumArkaFonSec()

End If
    End Sub
    Public Sub SaydamYap()
        Dim p As Integer = Me.RTBox.SelectionStart
        Me.RTBox.SelectAll()
        'Me.RTBox.ForeColor = Button43.BackColor 'siyah
        Me.RTBox.SelectionBackColor = Button35.BackColor
        Me.RTBox.BackColor = Button35.BackColor
        'Me.RTBox.SelectionColor = Button43.BackColor
        Me.RTBox.DeselectAll()
        RKSRengiPic.BackColor = White
    End Sub

Public Sub TumArkaFonSec()
        Dim p As Integer = Me.RTBox.SelectionStart
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionBackColor = RKSRengiPic.BackColor
        RTBox.BackColor = RKSRengiPic.BackColor
        Me.RTBox.DeselectAll()
        Me.RTBox.SelectionStart = p
        p = Nothing
    End Sub

Private Sub FontSecOzel_Click(sender As System.Object, e As System.EventArgs) Handles RenkSecOzel.Click
        ' FontSecOzel
        Dim bDlg As New ColorDialog

bDlg.AnyColor = True
        bDlg.SolidColorOnly = False
        bDlg.AllowFullOpen = True
        bDlg.FullOpen = True

If bDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

Select Case secilenPanel
                Case "FontRengiSec"
                    FontRengiPic.BackColor = bDlg.Color
                    Button43.BackColor = bDlg.Color
                    RTBox.SelectionColor = Button43.BackColor
                Case "FontDolguRengi"
                    AFRengiPic.BackColor = bDlg.Color
                    Me.RTBox.SelectionBackColor = AFRengiPic.BackColor
                Case "FontSaydamlaştır"
                    RKSRengiPic.BackColor = bDlg.Color
                    RTBox.SelectionColor = RKSRengiPic.BackColor
            End Select
            
        End If
    End Sub

Private Sub OtomatikBtn_Click(sender As System.Object, e As System.EventArgs) Handles OtomatikBtn.Click

Select Case secilenPanel
            Case "FontRengiSec"
                If Not Me.RTBox.SelectionFont Is Nothing Then
                    Dim SimdikiFont As System.Drawing.Font = Me.RTBox.SelectionFont
                    Dim YeniFontStili As System.Drawing.FontStyle
                    Me.RTBox.SelectionColor = Button43.BackColor
                    Me.RTBox.SelectionColor = Me.RTBox.SelectionColor ' DefaultForeColor
                    Me.RTBox.SelectionFont = New Font(SimdikiFont.FontFamily, SimdikiFont.Size, YeniFontStili)
                End If

Case "FontDolguRengi"
                AFRengiPic.BackColor = DefaultBackColor 'c.BackColor
                Me.RTBox.BackColor = Button35.BackColor ' AFRengiPic.BackColor
                Panel1.Hide()
            Case "FontSaydamlaştır" 'seçili yer varmı öğren
                Call SaydamYap()
                RenkKutusuMn_ButtonClick(sender, e)
                Panel1.Hide()
        End Select

End Sub
#End Region

#Region " RENK PALETİ OLAYLARI..."
    Private Sub OzelBtn_Click(sender As System.Object, e As System.EventArgs)
        Dim bDlg As New ColorDialog

bDlg.AnyColor = True
        bDlg.SolidColorOnly = False
        bDlg.AllowFullOpen = True
        bDlg.FullOpen = True

If bDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.RTBox.SelectionBackColor = bDlg.Color
        End If

End Sub

Private Sub FontSecMn_ButtonClick(sender As System.Object, e As System.EventArgs) Handles FontSecMn.ButtonClick
        Dim f As New FontDialog

f.ShowColor = True
        f.ShowEffects = True
        If f.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.RTBox.SelectionFont = f.Font
            Me.RTBox.SelectionColor = f.Color
        End If

End Sub

Private Sub RTBox_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RTBox.MouseMove
        PanelGizle = True
        Panel1.SendToBack()
        Panel1.Visible = False
    End Sub
#End Region

#Region " Formu ikonBarTStrip ve Durum Bardan SÜRÜKLE,  FormBoyutlaPic'den BOYUTLANDIR"

Private Sub ikonBarTStrip_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ikonBarTStrip.MouseDown
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub
    Private Sub SuruklePic_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles SuruklePic.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            GripDrag = True
            InitialSizeX = Me.Width
            InitialSizeY = Me.Height
        End If
    End Sub

Private Sub SuruklePic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles SuruklePic.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 SuruklePic_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles SuruklePic.MouseUp
        GripDrag = False
    End Sub

Private Sub DurumBarPic_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
        DurumBarPic.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub
#End Region

#Region " POPUP MENÜ İŞLEMLERİ..."

Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
        Dim seçilenRenk As Integer
        Dim rastgeleSec As New Random()
        seçilenRenk = rastgeleSec.Next(1, 6)

Select Case seçilenRenk
            Case 1 : Call sarırenk()
            Case 2 : Call mavirenk()
            Case 3 : Call pemberenk()
            Case 4 : Call yeşilrenk()
            Case 5 : Call Beyazrenk()
        End Select
    End Sub

Private Sub MNMavi_Click(sender As System.Object, e As System.EventArgs) Handles MNMavi.Click
        renk = mavi

AFRengiPic.BackColor = Color.Lavender 'RTBox.BackColor
        AFRengi_Click(sender, e)
        Me.RTBox.BackColor = Color.Lavender

End Sub
    Public Sub mavirenk()
        Dim f2 As Form1
        f2 = New Form1

f2.StartPosition = FormStartPosition.WindowsDefaultLocation
        f2.RTBox.BackColor = Color.Lavender
        f2.RTBox.Text = Nothing : MetinDegisti = False
        f2.Show()
        f2.Focus()
    End Sub
    Private Sub MnSarı_Click(sender As System.Object, e As System.EventArgs) Handles MnSarı.Click
        renk = sarı
        Call sarırenk()

End Sub

Public Sub sarırenk()
        Dim f2 As Form1
        f2 = New Form1

f2.RTBox.BackColor = Color.LemonChiffon
        f2.StartPosition = FormStartPosition.WindowsDefaultLocation
        f2.RTBox.Text = Nothing : MetinDegisti = False
        f2.Show()
        f2.Focus()
    End Sub
    Private Sub MnBeyaz_Click(sender As System.Object, e As System.EventArgs) Handles MnBeyaz.Click
        renk = beyaz
        Call Beyazrenk()
    End Sub
    Public Sub beyazrenk()
        Dim f2 As Form1
        f2 = New Form1

f2.RTBox.BackColor = Color.White
        f2.StartPosition = FormStartPosition.WindowsDefaultLocation
        f2.RTBox.Text = Nothing : MetinDegisti = False
        f2.Show()
        f2.Focus()
    End Sub
    Private Sub MnPemba_Click(sender As System.Object, e As System.EventArgs) Handles MnPemba.Click
        renk = pembe
        Call pemberenk()
    End Sub

Public Sub pemberenk()
        Dim f2 As Form1
        f2 = New Form1

f2.RTBox.BackColor = Color.LavenderBlush
        f2.StartPosition = FormStartPosition.WindowsDefaultLocation
        f2.RTBox.Text = Nothing : MetinDegisti = False
        f2.Show()
        f2.Focus()
    End Sub
    Private Sub MnYeşil_Click(sender As System.Object, e As System.EventArgs) Handles MnYeşil.Click
        renk = yeşil
        Call yeşilrenk()
    End Sub
    Public Sub yeşilrenk()
        Dim f2 As Form1
        f2 = New Form1

f2.RTBox.BackColor = System.Drawing.Color.MintCream 'Azure 'Color.LightGreen
        f2.StartPosition = FormStartPosition.WindowsDefaultLocation
        f2.RTBox.Text = Nothing : MetinDegisti = False
        f2.Show()
        f2.Focus()
    End Sub
#End Region

#Region " YENİ , DOSYA AÇ - FARKLI, DOSYA SAKLA (Menü ve ToolBardan)"
    Private Sub YeniMn_Click(sender As System.Object, e As System.EventArgs) Handles YeniMn.Click
        If MetinDegisti Then
            Dim Cevap As Integer
            Cevap = MessageBox.Show("( " & DsyAdi & " )" & " Dosyası Değişti," & vbCrLf & "Saklamak İstiyormusunuz?", "Değişti", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Cevap = Windows.Forms.DialogResult.Yes Then
                '    'cevap Evet ise Sakla
                Call FarkliSAKLA()
            End If
        End If

Me.RTBox.Clear()   'cevap hayır ise eski yolu ve texti sil
        DsyAdi = "İsimsiz"
        Me.Label1.Text = "İsimsiz"
        ileriAlMn.Enabled = False
        GeriAlMn.Enabled = False
        Me.RTBox.Modified = False
        KopyalaMn.Enabled = False
        DsySaklaMn.Enabled = False
        FarkliSaklaMn.Enabled = False
        'YeniMn.Enabled = False
        MetinDegisti = False

End Sub
    Private Sub DsyAcMn_Click(sender As System.Object, e As System.EventArgs) Handles DsyAcMn.Click

MetinDegisti = False
        If openDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
            DsyYolu = openDLG.FileName
            Me.Label1.ForeColor = Red
            Me.Label1.BackColor = Me.DurumBarPic.BackColor
            Me.Label1.Text = DsyYolu
            Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(DsyYolu)
            uzanti = uzanti.ToUpper()

Select Case uzanti
                Case ".RTF"
                    Me.RTBox.LoadFile(DsyYolu, RichTextBoxStreamType.RichText)

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

Dim slash As Integer = DsyYolu.LastIndexOf("\")
            DsyAdi = DsyYolu.Substring(slash + 1)

Me.Text = " NotPalet- " & DsyAdi

MetinDegisti = False
        End If
    End Sub
    Private Sub DsySaklaMn_Click(sender As System.Object, e As System.EventArgs) Handles DsySaklaMn.Click
        Call DosyaSAKLA()
    End Sub

Public Sub DosyaSAKLA()
        On Error GoTo hata
        If DsyAdi = "isimsiz" Or DsyYolu = "" Then 'isimsiz ise farklısakla' ya yönlendir
            Call FarkliSAKLA()
        End If

Call DosyaCinsiniBul_KAYDET()

Exit Sub
hata:
        Dim uzanti As String
        DsyYolu = Me.Label1.Text
        uzanti = System.IO.Path.GetExtension(DsyYolu)
        uzanti = uzanti.ToUpper() ' Büyük harf yap
        Resume Next
    End Sub

Public Sub FarkliSAKLA()

If saveDLG.ShowDialog() = DialogResult.OK Then
            Call DosyaCinsiniBul_KAYDET()
        End If

End Sub

Public Sub DosyaCinsiniBul_KAYDET()

Dim uzanti As String
        uzanti = System.IO.Path.GetExtension(DsyYolu)
        uzanti = uzanti.ToUpper() ' Büyük harf yap
        Me.Label1.Text = System.IO.Path.GetFileName(DsyYolu)

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

DsySaklaMn.Enabled = False
            FarkliSaklaMn.Enabled = False
            Me.Label1.Text = System.IO.Path.GetFileName(DsyYolu)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try
        MetinDegisti = False
    End Sub
#End Region

#Region " BASILAN RENK TUŞLARI - SEÇİLEN RENK"

Public Sub PanelSec()

Dim sb As String = "Button1.BackColor"

Select Case secilenPanel
            Case "FontRengiSec"
                secilenPanel = "FontRengiSec"
                'Me.RTBox.SelectionColor = FontRengiPic.BackColor
            Case "FontDolguRengi"
                Me.RTBox.SelectionBackColor = AFRengiPic.BackColor
                secilenPanel = "FontDolguRengi"
            Case "FontSaydamlaştır" 'seçili yer varmı öğren
                secilenPanel = "FontSaydamlaştır"
                Panel1.Hide()

End Select

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

Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button1.BackColor : Button43.BackColor = Button1.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button1.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button1.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles c.Click

Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = c.BackColor : Button43.BackColor = c.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = c.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = c.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button5.BackColor : Button43.BackColor = Button5.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button5.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button5.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button6.BackColor : Button43.BackColor = Button6.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button6.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button6.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button7.BackColor : Button43.BackColor = Button7.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button7.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button7.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button8.BackColor : Button43.BackColor = Button8.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button8.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button8.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button9.BackColor : Button43.BackColor = Button9.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button9.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button9.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button10.BackColor : Button43.BackColor = Button10.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button10.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button10.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button11.BackColor : Button43.BackColor = Button11.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button11.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button11.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button12.BackColor : Button43.BackColor = Button12.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button12.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button12.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button13.BackColor : Button43.BackColor = Button13.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button13.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button13.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button14.BackColor : Button43.BackColor = Button14.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button14.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button14.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button15.BackColor : Button43.BackColor = Button15.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button15.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button15.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button16.BackColor : Button43.BackColor = Button16.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button16.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button16.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button17.BackColor : Button43.BackColor = Button17.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button17.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button17.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button18_Click(sender As System.Object, e As System.EventArgs) Handles Button18.Click
        Select Case secilenPanel
            Case "FontRengiSec"
                FontRengiPic.BackColor = Button18.BackColor : Button43.BackColor = Button18.BackColor
            Case "FontDolguRengi"
                AFRengiPic.BackColor = Button18.BackColor
            Case "FontSaydamlaştır"
                RKSRengiPic.BackColor = Button18.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button19.BackColor : Button43.BackColor = Button19.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button19.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button19.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button20_Click(sender As System.Object, e As System.EventArgs) Handles Button20.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button20.BackColor : Button43.BackColor = Button20.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button20.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button20.BackColor
                Call PanelSec()
        End Select
        Call PanelSec()
    End Sub

Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button21.BackColor : Button43.BackColor = Button21.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button21.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button21.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button22_Click(sender As System.Object, e As System.EventArgs) Handles Button22.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button22.BackColor : Button43.BackColor = Button22.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button22.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button22.BackColor
                FontRengiSecMn.PerformClick()
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button23_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button23.BackColor : Button43.BackColor = Button23.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button23.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button23.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button24_Click(sender As System.Object, e As System.EventArgs) Handles Button24.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button24.BackColor : Button43.BackColor = Button24.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button24.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button24.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles Button25.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button25.BackColor : Button43.BackColor = Button25.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button25.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button25.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button26.BackColor : Button43.BackColor = Button26.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button26.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button26.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button27_Click(sender As System.Object, e As System.EventArgs) Handles Button27.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button27.BackColor : Button43.BackColor = Button27.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button27.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button27.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button28_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button28.BackColor : Button43.BackColor = Button28.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button28.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button28.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button29_Click(sender As System.Object, e As System.EventArgs) Handles Button29.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button29.BackColor : Button43.BackColor = Button29.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button29.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button29.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button30_Click(sender As System.Object, e As System.EventArgs) Handles Button30.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button30.BackColor : Button43.BackColor = Button30.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button30.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button30.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button31_Click(sender As System.Object, e As System.EventArgs) Handles Button31.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button31.BackColor : Button43.BackColor = Button31.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button31.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button31.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button32.BackColor ' : Button43.BackColor = Button32.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button32.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button32.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button33_Click(sender As System.Object, e As System.EventArgs) Handles Button33.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button33.BackColor : Button43.BackColor = Button33.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button33.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button33.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button34_Click(sender As System.Object, e As System.EventArgs) Handles Button34.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button34.BackColor : Button43.BackColor = Button34.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button34.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button34.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles Button35.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button35.BackColor : Button43.BackColor = Button35.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button35.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button35.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button36_Click(sender As System.Object, e As System.EventArgs) Handles Button36.Click

Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button36.BackColor ' : Button43.BackColor = Button36.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button36.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button36.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button37_Click(sender As System.Object, e As System.EventArgs) Handles Button37.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button37.BackColor : Button43.BackColor = Button37.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button37.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button37.BackColor
        End Select
        Call PanelSec()
        'RenkKutusuMn_ButtonClick(sender, e) 'paneli kapatır ve otomatik uygular
        Panel1.Hide()
    End Sub
    Private Sub Button38_Click(sender As System.Object, e As System.EventArgs) Handles Button38.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button38.BackColor : Button43.BackColor = Button38.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button38.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button38.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button39_Click(sender As System.Object, e As System.EventArgs) Handles Button39.Click

Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button39.BackColor : Button43.BackColor = Button39.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button39.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button39.BackColor
        End Select
        Call PanelSec()
    End Sub
    Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button40.BackColor : Button43.BackColor = Button40.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button40.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button40.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button41_Click(sender As System.Object, e As System.EventArgs) Handles Button41.Click

Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button41.BackColor : Button43.BackColor = Button41.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button41.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button41.BackColor
        End Select
        Call PanelSec()
    End Sub

Private Sub Button42_Click(sender As System.Object, e As System.EventArgs) Handles Button42.Click
        Select Case secilenPanel
            Case "FontRengiSec" : FontRengiPic.BackColor = Button42.BackColor : Button43.BackColor = Button42.BackColor
            Case "FontDolguRengi" : AFRengiPic.BackColor = Button42.BackColor
            Case "FontSaydamlaştır" : RKSRengiPic.BackColor = Button42.BackColor
        End Select
        Call PanelSec()
    End Sub

#End Region

Private Sub ToolStripButton3_Click(sender As System.Object, e As System.EventArgs) Handles FarkliSaklaMn.Click
        Call FarkliSAKLA()
    End Sub

Private Sub BeyazToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        RKSRengiPic.BackColor = Button35.BackColor
        Me.RTBox.BackColor = RKSRengiPic.BackColor
    End Sub

Private Sub ZeminPembeMn_Click(sender As System.Object, e As System.EventArgs) Handles ZeminPembeMn.Click
        Me.RTBox.BackColor = Color.LavenderBlush
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionBackColor = Me.RTBox.BackColor
        Me.RTBox.DeselectAll()
    End Sub

Private Sub ZeminMaviMn_Click(sender As System.Object, e As System.EventArgs) Handles ZeminMaviMn.Click
        Me.RTBox.BackColor = Color.Lavender
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionBackColor = Me.RTBox.BackColor
        Me.RTBox.DeselectAll()
    End Sub

Private Sub ZeminSariMn_Click(sender As System.Object, e As System.EventArgs) Handles ZeminSariMn.Click
        Me.RTBox.BackColor = Color.LemonChiffon
        Me.RTBox.SelectAll()
        Me.RTBox.BackColor = Color.LemonChiffon
        Me.RTBox.DeselectAll()
    End Sub

Private Sub ZeminYesilMn_Click(sender As System.Object, e As System.EventArgs) Handles ZeminYesilMn.Click
        Me.RTBox.BackColor = System.Drawing.Color.MintCream
        Me.RTBox.SelectAll()
        RTBox.SelectionBackColor = Me.RTBox.BackColor
        Me.RTBox.DeselectAll()
    End Sub

Private Sub ZeminBeyazMn_Click(sender As System.Object, e As System.EventArgs) Handles ZeminBeyazMn.Click
        Me.RTBox.BackColor = Color.White
        Me.RTBox.SelectAll()
        Me.RTBox.SelectionBackColor = Me.RTBox.BackColor
        Me.RTBox.DeselectAll()
    End Sub

Private Sub KenarCizgisiMn_ButtonClick(sender As System.Object, e As System.EventArgs) Handles KenarCizgisiMn.ButtonClick

If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Else
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        End If
        SaveSetting(Application.ProductName, Application.ProductName, "Kenar Çizgisi", Me.FormBorderStyle)
    End Sub

Private Sub RKSRengiPic_BackColorChanged(sender As System.Object, e As System.EventArgs) Handles RKSRengiPic.BackColorChanged
        If AFRengiPic.BackColor = White Then
            Me.RTBox.SelectionBackColor = White 'Arka fonu metni seçiliyi iptal
            Me.RTBox.ForeColor = DefaultForeColor 'Arka fonu seçili olan Font Rengi Varsayılan
        Else
            Me.RTBox.SelectionBackColor = RKSRengiPic.BackColor 'Arka fonu kutuda seçilen
            Me.RTBox.ForeColor = FontRengiPic.BackColor  'DefaultForeColor
        End If

End Sub

Private Sub TsDamlalık_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles TsDamlalık.MouseDown

If e.Button = Windows.Forms.MouseButtons.Left Then
            Button43.BackColor = Me.RTBox.SelectionColor
            FontRengiPic.BackColor = Button43.BackColor
            Me.RTBox.SelectionColor = FontRengiPic.BackColor
            Me.FontRengiSecMn.PerformClick()
        End If

If e.Button = Windows.Forms.MouseButtons.Right Then
            AFRengiPic.BackColor = Me.RTBox.SelectionColor
        End If
        If e.Button = Windows.Forms.MouseButtons.Middle Then
            FontRengiPic.BackColor = Black
            Button43.BackColor = Black
            AFRengiPic.BackColor = White
            RKSRengiPic.BackColor = White

End If
    End Sub

Private Sub Label1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Label1.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Label1, DsyYolu)
    End Sub
  
    Private Sub AFonRengiMn_Click(sender As System.Object, e As System.EventArgs) Handles AFonRengiMn.Click
        secilenPanel = "FontDolguRengi"
    End Sub

Private Sub RenkKutusuMn_Click(sender As System.Object, e As System.EventArgs) Handles RenkKutusuMn.Click
        secilenPanel = "FontSaydamlaştır"
    End Sub

End Class

BÜYÜTEÇ

BÜYÜTEÇ

KOD İNDİR

Public Class Form1

#Region " DEĞİŞKENLER VE SABİT DEĞERLER..."
    Inherits System.Windows.Forms.Form

Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Integer) As Integer
    Public Declare Function GetDesktopWindow Lib "user32" () As IntPtr
    Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr
    Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Integer, ByVal hdc As Integer) As Integer

'Bağlantı Sabitleri
    Public Const BLACKNESS = &H42
    Public Const DSTINVERT = &H550009
    Public Const CAPTUREBLT = &H40000000
    Public Const MERGECOPY = &HC000CA
    Public Const MERGEPAINT = &HBB0226
    Public Const NOMIRRORBITMAP = &H80000000
    Public Const NOTSRCCOPY = &H330008
    Public Const SRCCOPY = &HCC0020
    Public Const PATCOPY = &HF00021

Dim GriScalaDizisi As Imaging.ColorMatrix = New Imaging.ColorMatrix(New Single()() _
              {New Single() {0.3, 0.3, 0.3, 0, 0}, _
               New Single() {0.59, 0.59, 0.59, 0, 0}, _
               New Single() {0.11, 0.11, 0.11, 0, 0}, _
               New Single() {0, 0, 0, 1, 0}, _
               New Single() {0, 0, 0, 0, 1}})
    Dim GorunumNitelikleri As New Imaging.ImageAttributes

Friend WithEvents ToolStripTaşıyıcıPanel As System.Windows.Forms.Panel
    Friend WithEvents mnMercek As System.Windows.Forms.ToolStrip
    Friend WithEvents mnNormal As System.Windows.Forms.ToolStripButton
    Friend WithEvents mnGri As System.Windows.Forms.ToolStripButton
    Friend WithEvents mnTersYuz As System.Windows.Forms.ToolStripButton
    Friend WithEvents mnHepUstte As System.Windows.Forms.ToolStripButton
    Friend WithEvents PicOnde As System.Windows.Forms.PictureBox
    Friend WithEvents PicArkada As System.Windows.Forms.PictureBox
    Friend WithEvents KapatPic As System.Windows.Forms.PictureBox
    Friend WithEvents Slider1 As VirtualSoftware.ColorSlider
    Friend WithEvents YüzdeLBL As System.Windows.Forms.Label

#End Region

#Region "   WİNDOWS FORM TASARIM KODU OLUŞTURMA...."

Public Sub New()
        MyBase.New()

'Bu çağrı Windows Form Designer tarafından gereklidir.
        InitializeComponent()

'InitializeComponent () çağrısından sonra 'herhangi bir başlatma ekle

'Çift tamponlama
        Me.SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint, True)
        Me.UpdateStyles()

End Sub

'Form bileşen listesini temizler  ve geçersiz kılar.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

'Windows Form tasarımı gereçleri
    Private components As System.ComponentModel.IContainer

'Not: Aşağıdaki yordam Windows Form Tasarımcısı tarafından gerekli
    'Burda Windows Form tasarımcısı kullanılarak değişiklik yapılabilir
    'Kod editörü kullanarak değişiklik yapmayın.
    Friend WithEvents tmrGuncelle As System.Windows.Forms.Timer
    Friend WithEvents tmrBoya As System.Windows.Forms.Timer

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.tmrBoya = New System.Windows.Forms.Timer(Me.components)
        Me.tmrGuncelle = New System.Windows.Forms.Timer(Me.components)
        Me.YüzdeLBL = New System.Windows.Forms.Label()
        Me.ToolStripTaşıyıcıPanel = New System.Windows.Forms.Panel()
        Me.KapatPic = New System.Windows.Forms.PictureBox()
        Me.mnMercek = New System.Windows.Forms.ToolStrip()
        Me.mnNormal = New System.Windows.Forms.ToolStripButton()
        Me.mnGri = New System.Windows.Forms.ToolStripButton()
        Me.mnTersYuz = New System.Windows.Forms.ToolStripButton()
        Me.mnHepUstte = New System.Windows.Forms.ToolStripButton()
        Me.PicArkada = New System.Windows.Forms.PictureBox()
        Me.PicOnde = New System.Windows.Forms.PictureBox()
        Me.Slider1 = New VirtualSoftware.ColorSlider()
        Me.ToolStripTaşıyıcıPanel.SuspendLayout()
        CType(Me.KapatPic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.mnMercek.SuspendLayout()
        CType(Me.PicArkada, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PicOnde, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'tmrBoya
        '
        Me.tmrBoya.Enabled = True
        '
        'YüzdeLBL
        '
        Me.YüzdeLBL.BackColor = System.Drawing.Color.LightSteelBlue
        Me.YüzdeLBL.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
        Me.YüzdeLBL.ForeColor = System.Drawing.Color.White
        Me.YüzdeLBL.ImageAlign = System.Drawing.ContentAlignment.TopCenter
        Me.YüzdeLBL.Location = New System.Drawing.Point(200, 5)
        Me.YüzdeLBL.Name = "YüzdeLBL"
        Me.YüzdeLBL.Size = New System.Drawing.Size(45, 13)
        Me.YüzdeLBL.TabIndex = 3
        Me.YüzdeLBL.Text = "% :"
        '
        'ToolStripTaşıyıcıPanel
        '
        Me.ToolStripTaşıyıcıPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.Slider1)
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.KapatPic)
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.YüzdeLBL)
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.mnMercek)
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.PicArkada)
        Me.ToolStripTaşıyıcıPanel.Controls.Add(Me.PicOnde)
        Me.ToolStripTaşıyıcıPanel.Dock = System.Windows.Forms.DockStyle.Top
        Me.ToolStripTaşıyıcıPanel.Location = New System.Drawing.Point(0, 0)
        Me.ToolStripTaşıyıcıPanel.Name = "ToolStripTaşıyıcıPanel"
        Me.ToolStripTaşıyıcıPanel.Size = New System.Drawing.Size(284, 25)
        Me.ToolStripTaşıyıcıPanel.TabIndex = 5
        '
        'KapatPic
        '
        Me.KapatPic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.KapatPic.Image = CType(resources.GetObject("KapatPic.Image"), System.Drawing.Image)
        Me.KapatPic.Location = New System.Drawing.Point(264, 5)
        Me.KapatPic.Name = "KapatPic"
        Me.KapatPic.Size = New System.Drawing.Size(13, 13)
        Me.KapatPic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.KapatPic.TabIndex = 8
        Me.KapatPic.TabStop = False
        '
        'mnMercek
        '
        Me.mnMercek.BackColor = System.Drawing.Color.LightSteelBlue
        Me.mnMercek.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnNormal, Me.mnGri, Me.mnTersYuz, Me.mnHepUstte})
        Me.mnMercek.Location = New System.Drawing.Point(0, 0)
        Me.mnMercek.Name = "mnMercek"
        Me.mnMercek.Size = New System.Drawing.Size(282, 25)
        Me.mnMercek.Stretch = True
        Me.mnMercek.TabIndex = 22
        '
        'mnNormal
        '
        Me.mnNormal.Checked = True
        Me.mnNormal.CheckState = System.Windows.Forms.CheckState.Checked
        Me.mnNormal.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.mnNormal.Image = CType(resources.GetObject("mnNormal.Image"), System.Drawing.Image)
        Me.mnNormal.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.mnNormal.Name = "mnNormal"
        Me.mnNormal.Size = New System.Drawing.Size(23, 22)
        Me.mnNormal.Text = "Normal Göster"
        '
        'mnGri
        '
        Me.mnGri.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.mnGri.Image = CType(resources.GetObject("mnGri.Image"), System.Drawing.Image)
        Me.mnGri.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.mnGri.Name = "mnGri"
        Me.mnGri.Size = New System.Drawing.Size(23, 22)
        Me.mnGri.Text = "Gri Renkte Göster"
        '
        'mnTersYuz
        '
        Me.mnTersYuz.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.mnTersYuz.Image = CType(resources.GetObject("mnTersYuz.Image"), System.Drawing.Image)
        Me.mnTersYuz.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.mnTersYuz.Name = "mnTersYuz"
        Me.mnTersYuz.Size = New System.Drawing.Size(23, 22)
        Me.mnTersYuz.Text = "TersYüz Et"
        '
        'mnHepUstte
        '
        Me.mnHepUstte.Checked = True
        Me.mnHepUstte.CheckState = System.Windows.Forms.CheckState.Checked
        Me.mnHepUstte.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
        Me.mnHepUstte.Image = CType(resources.GetObject("mnHepUstte.Image"), System.Drawing.Image)
        Me.mnHepUstte.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.mnHepUstte.Name = "mnHepUstte"
        Me.mnHepUstte.Size = New System.Drawing.Size(23, 22)
        Me.mnHepUstte.Text = "Hep Üstte tut"
        '
        'PicArkada
        '
        Me.PicArkada.Image = CType(resources.GetObject("PicArkada.Image"), System.Drawing.Image)
        Me.PicArkada.Location = New System.Drawing.Point(136, -2)
        Me.PicArkada.Name = "PicArkada"
        Me.PicArkada.Size = New System.Drawing.Size(24, 24)
        Me.PicArkada.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.PicArkada.TabIndex = 7
        Me.PicArkada.TabStop = False
        Me.PicArkada.Visible = False
        '
        'PicOnde
        '
        Me.PicOnde.Image = CType(resources.GetObject("PicOnde.Image"), System.Drawing.Image)
        Me.PicOnde.Location = New System.Drawing.Point(122, 0)
        Me.PicOnde.Name = "PicOnde"
        Me.PicOnde.Size = New System.Drawing.Size(24, 24)
        Me.PicOnde.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.PicOnde.TabIndex = 6
        Me.PicOnde.TabStop = False
        Me.PicOnde.Visible = False
        '
        'Slider1
        '
        Me.Slider1.BackColor = System.Drawing.Color.LightSteelBlue
        Me.Slider1.BarInnerColor = System.Drawing.Color.Black
        Me.Slider1.BarOuterColor = System.Drawing.Color.DimGray
        Me.Slider1.BarPenColor = System.Drawing.Color.WhiteSmoke
        Me.Slider1.BorderRoundRectSize = New System.Drawing.Size(8, 8)
        Me.Slider1.ElapsedInnerColor = System.Drawing.Color.Orange
        Me.Slider1.ElapsedOuterColor = System.Drawing.Color.Sienna
        Me.Slider1.LargeChange = CType(2UI, UInteger)
        Me.Slider1.Location = New System.Drawing.Point(106, 8)
        Me.Slider1.Name = "Slider1"
        Me.Slider1.Size = New System.Drawing.Size(89, 10)
        Me.Slider1.SmallChange = CType(1UI, UInteger)
        Me.Slider1.TabIndex = 87
        Me.Slider1.Text = "slider2"
        Me.Slider1.ThumbInnerColor = System.Drawing.Color.White
        Me.Slider1.ThumbOuterColor = System.Drawing.Color.Sienna
        Me.Slider1.ThumbPenColor = System.Drawing.Color.Sienna
        Me.Slider1.ThumbRoundRectSize = New System.Drawing.Size(8, 8)
        Me.Slider1.Value = 25
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(284, 262)
        Me.Controls.Add(Me.ToolStripTaşıyıcıPanel)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.MinimumSize = New System.Drawing.Size(250, 200)
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Büyüteç"
        Me.ToolStripTaşıyıcıPanel.ResumeLayout(False)
        Me.ToolStripTaşıyıcıPanel.PerformLayout()
        CType(Me.KapatPic, System.ComponentModel.ISupportInitialize).EndInit()
        Me.mnMercek.ResumeLayout(False)
        Me.mnMercek.PerformLayout()
        CType(Me.PicArkada, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PicOnde, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

End Sub

#End Region

#Region " BAŞLIKSIZ FORM..."

Private mouse_offset As Point

Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Const WS_CAPTION As Integer = &HC00000

Dim baseParams As CreateParams = MyBase.CreateParams

'Caption olmasın
            baseParams.Style = baseParams.Style And Not WS_CAPTION

Return baseParams
        End Get
    End Property
#End Region

#Region "  FORM OLAYLARI..."

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.mnHepUstte.Checked = GetSetting(Application.ProductName, Application.ProductName, " Hep Üstte", False)
        If mnHepUstte.Checked = True Then
            mnHepUstte.Image = Me.PicOnde.Image
            Me.TopMost = True
        Else
            mnHepUstte.Image = PicArkada.Image
            Me.TopMost = False
        End If

'Gri tonlamalı dizey başlat
        GorunumNitelikleri.SetColorMatrix(GriScalaDizisi)
    End Sub

Private Sub mnHepUstte_Click(sender As System.Object, e As System.EventArgs) Handles mnHepUstte.Click
        If mnHepUstte.Checked = True Then
            mnHepUstte.Image = Me.PicOnde.Image
            mnHepUstte.Checked = False
            Me.TopMost = True
        Else
            mnHepUstte.Image = PicArkada.Image

mnHepUstte.Checked = True
            Me.TopMost = False
        End If

SaveSetting(Application.ProductName, Application.ProductName, " Hep Üstte", Me.mnHepUstte.Checked)
    End Sub

Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub

#End Region

#Region " BÜYÜTEÇ İŞLEMLERİ..."

'Ayarlanan zaman aralığı veya yenileme hızı ile büyüteç rötuş yapmak için Timer kullanımı
    Private Sub tmrBoya_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrBoya.Tick
        BuyutecYenile()
    End Sub

'Ekran büyüteci programı yeniden boyamak için ayrı bir işlevi kullanarak
    'oluşan titremeyi önlemeye yardımcı olacaktır.

Private Sub BuyutecYenile()
        Dim e As Graphics = Me.CreateGraphics

'Yakınlaştırma yüzdesi alın
        Dim Yuzde As Single = Me.Slider1.Value / 100
        Dim EnX As Single = (Me.Width) * Yuzde '- Me.Slider1.Width
        Dim BoyY As Single = (Me.Height - 0) * Yuzde 'Me.DurumBar.Height

'Statusbar için Yakınlaştırma Faktörü
        Me.YüzdeLBL.Text = " % :" & 100 - Me.Slider1.Value

'Fare Resim Çevresi Merkezi 
        Dim DengeX As Single = EnX \ 4
        Dim DengeY As Single = BoyY \ 4

'Hazır blit(Çalışma dönemi) için Gerçek Alan
        Dim BlitAlaniX As Integer = Me.Width ' 
        Dim BlitAlaniY As Integer = Me.Height - 0

'Yeni Bitmap ve Grafik Nesnesi
        Dim b As New Bitmap(CInt(BlitAlaniX), CInt(BlitAlaniY))
        Dim g As Graphics = Graphics.FromImage(b)

'Gösterimi daha hızlı yapmaya çalışın

g.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
        g.CompositingQuality = Drawing2D.CompositingQuality.HighSpeed
        g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighSpeed
        g.InterpolationMode = Drawing2D.InterpolationMode.Low

'Gösterimi daha hızlı yapmaya çalışın
        e.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
        e.CompositingQuality = Drawing2D.CompositingQuality.HighSpeed
        e.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighSpeed
        e.InterpolationMode = Drawing2D.InterpolationMode.Low

'Masaüstü Ve Grafik Nesnesi
        Dim hWndWindow As IntPtr = GetDesktopWindow()
        Dim hdcWindow As IntPtr = GetDC(hWndWindow)
        Dim hdcGraphics As IntPtr = g.GetHdc()

'BitBlt & Graphics.DrawImage Çözümü
        '------------------------------------------

''(Şeffaf pencere yakalar ve Ayna Etkisini önler)
        BitBlt(hdcGraphics.ToInt32, 0, 0, BlitAlaniX, BlitAlaniY, hdcWindow.ToInt32, Windows.Forms.Cursor.Position.X - DengeX, Windows.Forms.Cursor.Position.Y - DengeY, SRCCOPY Or CAPTUREBLT Or NOMIRRORBITMAP)

''Renkleri tersyüz etmek için
        If Me.mnTersYuz.Checked = True Then
            BitBlt(hdcGraphics.ToInt32, 0, 0, BlitAlaniX, BlitAlaniY, hdcGraphics.ToInt32, 0, 0, NOTSRCCOPY)
        End If

''Belleği Boşalt
        ReleaseDC(hWndWindow.ToInt32, hdcWindow.ToInt32)
        g.ReleaseHdc(hdcGraphics)

If Me.mnNormal.Checked = True Or Me.mnTersYuz.Checked = True Then
            e.DrawImage(b, New Rectangle(0, 0, BlitAlaniX, BlitAlaniY), 0, 0, EnX, BoyY, GraphicsUnit.Pixel)
        ElseIf Me.mnGri.Checked = True Then 'Gri Tonlama Görüntü Özellikleri
            e.DrawImage(b, New Rectangle(0, 0, BlitAlaniX, BlitAlaniY), 0, 0, EnX, BoyY, GraphicsUnit.Pixel, GorunumNitelikleri)
        End If

e.Dispose()
    End Sub
#End Region

#Region " BÜYÜTME RENK SEÇENEKLERİ.."
    Private Sub mnNormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnNormal.Click
        Me.mnNormal.Checked = True
        Me.mnGri.Checked = False
        Me.mnTersYuz.Checked = False
    End Sub

Private Sub mnGri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnGri.Click
        Me.mnNormal.Checked = False
        Me.mnGri.Checked = True
        Me.mnTersYuz.Checked = False
    End Sub

Private Sub mnTersYuz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnTersYuz.Click
        Me.mnNormal.Checked = False
        Me.mnGri.Checked = False
        Me.mnTersYuz.Checked = True
    End Sub

#End Region

#Region " FORM TAŞIMA.."
    Const i As Integer = &HA1
    Const j As Integer = 2

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

End Class

Text okutup satır satır gösterme

HAZIR KODLARI İNDİR

10 Haziran 2013 Pazartesi

SQL İLE ÖRNEK ADRES DEFTERİ

KOD İNDİR

Form1

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class AnaFrm
    Dim BaglantiDATA As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|Abookdb.mdf;Integrated Security=True;User Instance=True"
    Dim sql, Durum As String
    Dim Baglan As SqlConnection
    Dim Komut As SqlCommand
    Dim SQLOku As SqlDataReader

Private Sub ListeDoldur()
        isimListesi.Items.Clear()
        KartNoListesi.Items.Clear()

Komut = New SqlCommand(sql, Baglan)
        Try
            Baglan.Open()
            SQLOku = Komut.ExecuteReader
            While SQLOku.Read
                KartNoListesi.Items.Add(SQLOku("cardNo"))
                isimListesi.Items.Add(SQLOku("fName"))
            End While
            Dim x As Integer = isimListesi.Items.Count
            lblCount.Text = "Kayıt Sayısı : " & x
        Catch ex As Exception
            LblMesaj.Text = "Data Okuma Hatası"
        Finally
            Baglan.Close()
            Call Clear()
        End Try
        Durum = "n"
        SilBtn.Enabled = False

End Sub

Private Sub DataDoldur()
        lblCardNo.Text = SQLOku("cardNo").ToString
        AdıTxt.Text = SQLOku("fName").ToString
        SoyadıTxt.Text = SQLOku("lName").ToString
        MeslekTxt.Text = SQLOku("nName").ToString
        MailTxt.Text = SQLOku("email").ToString
        AdresTxt.Text = SQLOku("address").ToString
        ŞehirTxt.Text = SQLOku("city").ToString
        EvTelNo.Text = SQLOku("hphone").ToString
        CepTelNo.Text = SQLOku("mphone").ToString
        İşTelNo.Text = SQLOku("wphone").ToString

End Sub

Private Sub Clear()
        lblCardNo.Text = ""
        AdıTxt.Clear()
        SoyadıTxt.Clear()
        MeslekTxt.Clear()
        MailTxt.Clear()
        AdresTxt.Clear()
        ŞehirTxt.Clear()
        EvTelNo.Clear()
        CepTelNo.Clear()
        İşTelNo.Clear()
        'txtfName.Focus()
    End Sub
    Private Sub Anafrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Baglan = New SqlConnection(BaglantiDATA)
        sql = "SELECT * FROM contacts ORDER BY fName"
        Call ListeDoldur()
    End Sub

Private Sub isimListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isimListesi.SelectedIndexChanged
        KartNoListesi.SelectedIndex = isimListesi.SelectedIndex
        Dim Kart As String = KartNoListesi.SelectedItem
        sql = "SELECT * FROM contacts WHERE cardNo='" + CStr(Kart) + "' ORDER BY fName"
        Komut = New SqlCommand(sql, Baglan)
        Try
            Baglan.Open()
            SQLOku = Komut.ExecuteReader
            While SQLOku.Read
                Call DataDoldur()
            End While
        Catch ex As Exception
            LblMesaj.Text = "Data Okuma Hatası"
        Finally
            Baglan.Close()
        End Try
        Durum = "u"
        SilBtn.Enabled = True
    End Sub

Private Sub BulTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BulTxt.TextChanged
        Dim find As String = BulTxt.Text
        sql = "SELECT * FROM contacts WHERE fName LIKE '" + CStr(find) + "%' ORDER BY fName"
        Call ListeDoldur()

End Sub

Private Sub SaklaBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaklaBtn.Click
        Select Case Durum
            Case "n"
                If AdıTxt.Text = "" Then
                    LblMesaj.Text = "İsim boş olamaz"
                Else
                    Try
                        Baglan.Open()
                        Dim Ekle As String = "INSERT INTO contacts VALUES('" & AdıTxt.Text & "','" & SoyadıTxt.Text & "','" & MeslekTxt.Text & "','" & _
                                            MailTxt.Text & "','" & AdresTxt.Text & "','" & ŞehirTxt.Text & "','" & EvTelNo.Text & "','" & CepTelNo.Text & "','" & İşTelNo.Text & "')"
                        Komut = New SqlCommand(Ekle, Baglan)
                        Komut.ExecuteNonQuery()
                        LblMesaj.Text = "Kayıt Saklandı"
                    Catch ex As Exception
                        LblMesaj.Text = "Kayıt Saklama Hatası"
                    Finally
                        Baglan.Close()
                    End Try
                End If
            Case "u"
                If AdıTxt.Text = "" Then
                    LblMesaj.Text = "İsim boş olamaz"
                Else
                    Try
                        Baglan.Open()
                        Dim Güncelle As String = "UPDATE contacts SET fName='" & AdıTxt.Text & "',lName='" & SoyadıTxt.Text & "',nName='" & MeslekTxt.Text & "',email='" & MailTxt.Text & "',address='" & _
                                            AdresTxt.Text & "',city='" & ŞehirTxt.Text & "',hphone='" & EvTelNo.Text & "',mphone='" & CepTelNo.Text & "',wphone='" & İşTelNo.Text & "' WHERE cardNo=" & lblCardNo.Text
                        Komut = New SqlCommand(Güncelle, Baglan)
                        Komut.ExecuteNonQuery()
                        LblMesaj.Text = "Kayıt Güncellendi"

Catch ex As Exception
                        LblMesaj.Text = "Kayıt Güncelleme Hatası"
                    Finally
                        Baglan.Close()
                    End Try
                End If
        End Select
        sql = "SELECT * FROM contacts ORDER BY fName"
        Call ListeDoldur()
        BulTxt.Clear()
        AdıTxt.Focus()
    End Sub

Private Sub YeniBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniBtn.Click
        Call Clear()
        AdıTxt.Focus()
        Durum = "n"
        SilBtn.Enabled = False
    End Sub

Private Sub SilBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilBtn.Click
        Dim Msj As DialogResult
        Msj = MessageBox.Show("Sil " + AdıTxt.Text & " " & SoyadıTxt.Text + " ?", "kayıt Sil", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        If Msj = Windows.Forms.DialogResult.Yes Then
            Try
                Baglan.Open()
                Dim Sil As String = "DELETE FROM contacts WHERE cardNo='" & lblCardNo.Text & "'"
                Komut = New SqlCommand(Sil, Baglan)
                Komut.ExecuteNonQuery()

Catch ex As Exception
                LblMesaj.Text = "Kayıt Silme hatası"
            Finally
                Baglan.Close()
            End Try

sql = "SELECT * FROM contacts ORDER BY fName"
            Call ListeDoldur()
            BulTxt.Clear()
            AdıTxt.Focus()
        End If
    End Sub

Private Sub KapatBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatBtn.Click
        Application.Exit()
    End Sub

Private Sub HkkBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HkkBtn.Click
        HkkFrm.Top = Me.Top
        HkkFrm.Left = Me.Left + Me.Width - HkkFrm.Width
        HkkFrm.Show()
    End Sub

Private Sub AdıTxt_Click(sender As System.Object, e As System.EventArgs) Handles AdıTxt.Click, MyBase.Click, isimListesi.Click, LblMesaj.Click
        LblMesaj.Text = ""

End Sub

Private Sub LblMesaj_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles LblMesaj.MouseMove
        LblMesaj.Text = ""
    End Sub
End Class

Form2

Imports System.Net.Mail
Public Class HkkFrm

Private Sub HkkFrm_Deactivate(sender As Object, e As System.EventArgs) Handles Me.Deactivate
        Me.Hide()
    End Sub

Private Sub HkkFrm_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Hide()
    End Sub

Private Sub HkkFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Me.Height = 235

On Error Resume Next
        Dim ApplicationTitle As String
        If My.Application.Info.Title <> "" Then
            ApplicationTitle = My.Application.Info.Title
        Else
            ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Me.Text = ApplicationTitle & " Hakkında" 'String.Format(ApplicationTitle, " Hakkında {0}")
        Me.LabelProductName.Text = My.Application.Info.ProductName
        Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
        Me.LabelCopyright.Text = My.Application.Info.Copyright
        Me.LabelCompanyName.Text = My.Application.Info.CompanyName
        'Me.TextBox1.Text = My.Application.Info.Description
        LinkLabel1.Text = "http://eraslancemil.blogspot.com/"
        LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil.blogspot.com/")
    End Sub

Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        If My.Computer.Network.IsAvailable = False Then
            'MessageBox.Show("Bilgisayarınız İnternete Bağlı Değil.")
            Anafrm.LblMesaj.Text = "İnternet Bağlantısı Yok"
            Exit Sub
        End If
        System.Diagnostics.Process.Start(e.Link.LinkData)
    End Sub

Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
        If My.Computer.Network.IsAvailable = False Then
            'MessageBox.Show("Bilgisayarınız İnternete Bağlı Değil.")
            AnaFrm.LblMesaj.Text = "İnternet Bağlantısı Yok"
            Exit Sub
        End If
        'eraslancemil@gmail.com
        System.Diagnostics.Process.Start("mailto:eraslancemil@gmail.com")
    End Sub

Private Sub Label2_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
        Windows.Forms.Cursor.Current = Cursors.Hand
    End Sub

End Class