Public Class Form1

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Clipboard.ContainsText Then
            Label1.Visible = False
            Label2.Visible = True
            PanodakiTxt.Text = My.Computer.Clipboard.GetText

        Else
            Label1.Visible = True
            Label2.Visible = False
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim UygulamaYolu As String = Application.ExecutablePath()
        Clipboard.Clear()
        Timer1.Start()
    End Sub

    Private Sub PanoSilBtn_Click(sender As System.Object, e As System.EventArgs) Handles PanoSilBtn.Click
        Clipboard.Clear()
        PanodakiTxt.Text = ""
        Timer1.Start()
    End Sub

    Private Sub PanodakiTxt_TextChanged(sender As Object, e As System.EventArgs) Handles PanodakiTxt.TextChanged
        If PanodakiTxt.Text = "" Then
            Exit Sub
        End If
        ListBox1.Items.Add(My.Computer.Clipboard.GetText)

    End Sub

    Private Sub SatirKopyalaBtn_Click(sender As System.Object, e As System.EventArgs) Handles SatirKopyalaBtn.Click

        If (ListBox1.SelectedItem <> "") Then
            TextBox2.Text = ListBox1.SelectedItem
            ListBox1.Items.Remove(ListBox1.SelectedItem)
            Clipboard.SetText(TextBox2.Text)
        Else
            MessageBox.Show("Bir öğeyi seçmeniz gerekir")
        End If
    End Sub

    Private Sub GecmisiSil_Click(sender As System.Object, e As System.EventArgs) Handles GecmisiSil.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub DsySaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles DsySaklaBtn.Click

        Using SW As New IO.StreamWriter(Application.StartupPath & "\" & "ListBox1.txt", True, System.Text.Encoding.Default)
            For Each itm As String In Me.ListBox1.Items
                SW.WriteLine(itm)
            Next
        End Using
    End Sub

    Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
        On Error Resume Next
        If e.KeyCode = Keys.Delete Then
            Dim secilecek, silinecek As Integer

            If ListBox1.SelectedIndex <= ListBox1.Items.Count - 1 Then
                silinecek = ListBox1.SelectedIndex
                secilecek = silinecek - 1
                Me.ListBox1.Items.RemoveAt(silinecek)
                Me.ListBox1.SelectedIndex = secilecek
            End If


            If ListBox1.SelectedIndex = -1 And ListBox1.Items.Count - 1 >= 0 Then
                If silinecek = 0 Then
                    Me.ListBox1.SetSelected(secilecek + 1, True)
                    Exit Sub
                End If
            End If
        End If

    End Sub

    Private Sub DosyayiAc_Click(sender As System.Object, e As System.EventArgs) Handles DosyayiAc.Click
        Process.Start("NotePad.exe", Application.StartupPath & "\" & "ListBox1.txt")
    End Sub
End Class