| Kaf_Dağı | 09 Aralık 2015 18:52 |
PANOYA KOPYALAMA VE DEPOLAMA PROJESİ
PANOYA KOPYALAMA VE DEPOLAMA PROJESİ
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. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
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
| 