C# KOD ÖRNEKLERİ: Şubat 2015

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

23 Şubat 2015 Pazartesi

PANOYA KOPYALAMA VE DEPOLAMA PROJESİ

6 Şubat 2015 Cuma

Fotoğrafları Boyutlandırma Programı