C# KOD ÖRNEKLERİ: Temmuz 2015

LİSTEDEN TEXT 'E VERİ AKTARMA PROJE ÖRNEĞİ İNDİR

Anaform Kodları

Imports System.IO
Public Class Form1

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Application.ProductName, "kayıt sayısı", kayitSayisi_Lbl.Text.ToString)
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

LstEkleTxt.Focus()
        Call ListeYukle()
        ListBox1.HorizontalScrollbar = True
    End Sub

Public Sub ListeYukle()
        ListBox1.Items.Clear()
        Yukle = New IO.StreamReader(ListeYolVeDsyAdi, System.Text.Encoding.Default)

While (Yukle.Peek() > 0)

Me.ListBox1.Items.Add(Yukle.ReadLine)
            kayitSayisi = kayitSayisi + 1
        End While

Yukle.Close()
        kayitSayisi_Lbl.Text = kayitSayisi
    End Sub

Private Sub TxtOlarakSaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles TxtOlarakSaklaBtn.Click

Try
            TextBox1.Text = ""
            Yukle = New IO.StreamReader(ListeYolVeDsyAdi, System.Text.Encoding.Default)

While (Yukle.Peek() > 0)
                TextBox1.Text = TextBox1.Text & ", " & Yukle.ReadLine
            End While
            Yukle.Close()

' Textboxtaki metni Sakla
            My.Computer.FileSystem.WriteAllText(TextYolVeDsyAdi, TextBox1.Text, False, System.Text.Encoding.Default)

Catch exp As Exception
            MessageBox.Show(exp.Message, "Hata oluştu..")
        End Try

End Sub

Private Sub ListeAcBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeAcBtn.Click
        On Error Resume Next
        TxtSilBtn.PerformClick()
        TextBox1.Clear()
        TextBox1.Text = IO.File.ReadAllText(TextYolVeDsyAdi, System.Text.Encoding.Default)
    End Sub

Private Sub DosyaAcBtn_Click(sender As System.Object, e As System.EventArgs) Handles DosyaAcBtn.Click

Try

Dim openDLG As New OpenFileDialog
            openDLG.Filter = "Text Dosyaları (*.txt)|*.txt|Tüm Dosyalar (*.*)|*.*"
            openDLG.InitialDirectory = DsyYolu
            If openDLG.ShowDialog = DialogResult.OK Then

Dim dosya As New System.IO.StreamReader(openDLG.FileName, System.Text.Encoding.Default)
                If openDLG.SafeFileName = "Liste.txt" Then
                    Yukle = New IO.StreamReader(ListeYolVeDsyAdi, System.Text.Encoding.Default)

While (Yukle.Peek() > 0)
                        Me.ListBox1.Items.Add(Yukle.ReadLine)
                    End While

Yukle.Close()

Exit Sub
                End If
                Dim str As String = dosya.ReadToEnd()
                TextBox1.Text = str
                dosya.Close()
            End If

Catch exc As Exception
            MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

End Sub

Private Sub ListeyeEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeyeEkleBtn.Click
        ' LİSTEYE İSİM EKLEME
        If LstEkleTxt.Text = Nothing Or LstEkleTxt.Text = "BURAYA BİR İSİM GİRİN" Then LstEkleTxt.Text = "BURAYA BİR İSİM GİRİN" : LstEkleTxt.SelectAll() : Exit Sub

ListBox1.Items.Add(LstEkleTxt.Text)

kayitSayisi = (ListBox1.Items.Count - 1) + 1
        kayitSayisi_Lbl.Text = kayitSayisi
        ListeSaklaBtn.Enabled = True
        LstEkleTxt.Text = ""
    End Sub

Private Sub TxtSilBtn_Click(sender As System.Object, e As System.EventArgs) Handles TxtSilBtn.Click
        TextBox1.Text = Nothing
    End Sub

Private Sub ListBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown

On Error Resume Next
        If e.KeyCode = Keys.Delete Then
            Call SatirSil()
            ListeSaklaBtn.Enabled = True
        End If

If e.KeyCode = Keys.F12 Then
            kayitSayisi_Lbl.Text = 0
            kayitSayisi = 0
            ListBox1.Items.Clear()
        End If

If e.KeyCode = Keys.Escape Then
            Dim dosyaBoyut As IO.FileInfo
            dosyaBoyut = My.Computer.FileSystem.GetFileInfo(ListeYolVeDsyAdi)
            If TextBox1.TextLength > 0 Then
                TextBox1.Text = ""
                TextBox1.Text = "Dosyamızın Boyutu : " & dosyaBoyut.Length & " bayt"
            End If

End If

End Sub

Private Sub SatirSil()
        On Error Resume Next
        Dim secilecek, silinecek, LS As Integer
        LS = Me.kayitSayisi_Lbl.Text.ToString()
        If ListBox1.SelectedIndex <= ListBox1.Items.Count - 1 Then

silinecek = ListBox1.SelectedIndex
            secilecek = silinecek - 1
            Me.ListBox1.Items.RemoveAt(silinecek)
            Me.ListBox1.SelectedIndex = secilecek
            Me.kayitSayisi_Lbl.Text.ToString()
            LS = LS - 1
            Me.kayitSayisi_Lbl.Text = LS
        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
        If Me.kayitSayisi_Lbl.Text = -1 Then Me.kayitSayisi_Lbl.Text = 0
        If Me.LblIndex.Text = -1 Then Me.LblIndex.Text = 0
    End Sub

Private Sub ListBox1_MouseHover(sender As System.Object, e As System.EventArgs) Handles ListBox1.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(ListBox1, "ListBoxtan satır Silmek için DELETE tuşunu kullanın")
    End Sub

Private Sub ListeSaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeSaklaBtn.Click
        '   LİSTEYİ SAKLA
        Dim dosyaBoyut As IO.FileInfo
        dosyaBoyut = My.Computer.FileSystem.GetFileInfo(ListeYolVeDsyAdi)

If dosyaBoyut.Length <= 0 Then
            Me.Text = "Dosya Boyut: " & dosyaBoyut.Length & " bayt"
            Exit Sub
        End If

Try
            Dim Yaz As StreamWriter
            Yaz = New StreamWriter(ListeYolVeDsyAdi, False, System.Text.Encoding.Default)
            Dim i As Integer

For i = 0 To Me.ListBox1.Items.Count - 1
                Yaz.WriteLine(ListBox1.Items.Item(i))
            Next
            Yaz.Close()

Catch exp As Exception
            MessageBox.Show(exp.Message, "Hata oluştu.")
        End Try

End Sub

Private Sub LstEkleTxt_MouseHover(sender As System.Object, e As System.EventArgs) Handles LstEkleTxt.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(LstEkleTxt, "Text kutusuna Ad ve Soyad girip" & vbCrLf & "Listeye Eklemek için Entere Basınızt")
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Liste.txt")
        My.Computer.FileSystem.CopyFile(Application.StartupPath & "\Liste_YDK.txt", Application.StartupPath & "\Liste.txt")  '(kaynak dosya, hedef dosya)
        kayitSayisi = 0
        Call ListeYukle()
    End Sub

Private Sub ListeyiYedekleBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeyiYedekleBtn.Click
        Try
            Dim Yaz As StreamWriter
            Yaz = New StreamWriter(Application.StartupPath & "\Liste_YDK.txt", False, System.Text.Encoding.Default)
            Dim i As Integer

For i = 0 To Me.ListBox1.Items.Count - 1
                Yaz.WriteLine(ListBox1.Items.Item(i))
            Next
            Yaz.Close()

Catch exp As Exception
            MessageBox.Show(exp.Message, "Hata oluştu.")
        End Try
    End Sub

Private Sub TxtOlarakSaklaBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles TxtOlarakSaklaBtn.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(TxtOlarakSaklaBtn, "Listeyi Text Olarak Sakla")
    End Sub

Private Sub DosyaAcBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles DosyaAcBtn.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(DosyaAcBtn, "Liste ve text Dosyalarını gör")
    End Sub

Private Sub ListeyiYedekleBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles ListeyiYedekleBtn.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(ListeyiYedekleBtn, "Listenin bir yedeğini Oluştur")
    End Sub

Private Sub Button1_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button1.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button1, "Yedek Listeden Yükle.")
    End Sub

Private Sub ListeSaklaBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles ListeSaklaBtn.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(ListeSaklaBtn, "Listeye kayı ekledikten sonra sakla.")
    End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        On Error Resume Next
        Me.LblIndex.Text = ListBox1.SelectedIndex

If ListBox1.Items.Count < kayitSayisi_Lbl.Text.ToString Then  'kayitSayisi_Lbl.Text.ToString
            ListeSaklaBtn.Enabled = True
        Else
            ListeSaklaBtn.Enabled = False
        End If
    End Sub

End Class

Modul Kodları

DLL uygulaması ve Class modul Kod örneği İNDİR

Dll Kodları

DLL Uygulama kodları

Imports islemlerDLL
Public Class Form1
    Public Dll As New islemlerDLL.Islemler
    Public ilksayi As Integer
    Public ikincisayi As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ilksayi = ilksayiTxt.Text.ToString
        ikincisayi = ikincisayitxt.Text.ToString

Button5.PerformClick()
        ilksayiTxt.Select()

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = ilksayi & "+" & (ikincisayi) & " ="
        TextBox1.Text = (Dll.HesapMakinesi("Topla", ilksayi, ikincisayi))
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Label2.Text = ilksayi & "X" & (ikincisayi) & " ="
        TextBox2.Text = (Dll.HesapMakinesi("Carp", ilksayi, ikincisayi))
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Label3.Text = ilksayi & "/" & (ikincisayi) & " ="
        TextBox3.Text = (Dll.HesapMakinesi("Bol", ilksayi, ikincisayi))
        ' Sayı küsüratlı ise Tam sayı olarak Yuvarlatılır
        Dim sayi1 As Double
        sayi1 = CDbl(TextBox3.Text)
        TextBox3.Text = sayi1
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Label4.Text = ilksayi & "-" & (ikincisayi) & " ="
        TextBox4.Text = (Dll.HesapMakinesi("Cikar", ilksayi, ikincisayi))
    End Sub

Private Sub ilksayiTxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles ilksayiTxt.TextChanged
        On Error Resume Next
        ilksayi = ilksayiTxt.Text.ToString

End Sub

Private Sub ikincisayitxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles ikincisayitxt.TextChanged
        On Error Resume Next
        ikincisayi = ikincisayitxt.Text.ToString
       
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False

TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

ilksayiTxt.Text = ""
        ikincisayitxt.Text = ""

Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        ilksayiTxt.Select()
    End Sub

Private Sub ilksayiTxt_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ilksayiTxt.KeyDown, ikincisayitxt.KeyDown
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
    End Sub

End Class

8 Temmuz 2015 Çarşamba

LİSTEDEN TEXT 'E VERİ AKTARMA ÖRNEĞİ

6 Temmuz 2015 Pazartesi

DLL uygulaması ve Class modul Kod örneği

DLL uygulaması ve Class modul Kod örneği İNDİR

Dll Kodları