PANOYA KOPYALAMA VE DEPOLAMA PROJESİ

PANOYA KOPYALAMA  VE DEPOLAMA PROJESİ                                        İNDİR
CTRL +C Tuşları ile seçilmiş bir metin, Link veya Her türlü text Kopyalandığı yer PANO dur.Sonra CTRL+V tuşları ile bu bilgi istenilen yere yapıştırılır. Böylece metinleri tekrar yazmaktan kurtulmuş oluruz
    Bu işleme sıklıkla Link kopyalamak ve ilerde tekrar kullanmak  amacıyla saklamak gerektiğinde başvurulur.. işte bu işlem için kısa bir program örneği.

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

bu Şubat 23, 2015 Komentar

Related Posts

PANOYA KOPYALAMA VE DEPOLAMA PROJESİ

4/ 5

Oleh bu