ListBox Verilerini Text Dosyasına Yazdırma ve Okutma örneği

KOD İNDİR

Public Class Form1 Dim DsyYolu As String = Application.StartupPath Dim DsyAdi As String = "\Listem.txt" Private Sub SaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles SaklaBtn.Click Dim liste As New List(Of String) For Each i In ListBox1.Items liste.Add(i) Next System.IO.File.WriteAllLines(DsyYolu & DsyAdi, liste.ToArray) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim dosya As New System.IO.StreamReader(DsyYolu & DsyAdi) Dim str As String = dosya.ReadToEnd() TextBox1.Text = str dosya.Close() End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.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) 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 If LstEkleTxt.Text = "" Then Beep() : LstEkleTxt.Focus() : Exit Sub ListBox1.Items.Add(LstEkleTxt.Text) LstEkleTxt.Text = "" End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click TextBox1.Text = Nothing End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load LstEkleTxt.Focus() 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() End If End Sub Private Sub SatirSil() 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 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 End Class