Private Sub Kaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kaydet.Click
Dim FileStream As New System.IO.FileStream("C:\Tercih1.cld", IO.FileMode.Create)
Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)
For i = 0 To Tercih1.Items.Count - 1
BinaryWriter.Write(CStr(Tercih1.Items(i)))
BinaryWriter.Write(CBool(Tercih1.GetItemChecked(i)))
Next
BinaryWriter.Close()
FileStream.Dispose()
End Sub
Private Sub Yukle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yukle.Click
Tercih1.Items.Clear()
Dim FileStream As New System.IO.FileStream("C:\Tercih1.cld", IO.FileMode.Open)
Dim BinaryReader As New System.IO.BinaryReader(FileStream)
Tercih1.BeginUpdate()
Do While FileStream.Position < FileStream.Length
Tercih1.Items.Add(BinaryReader.ReadString)
Tercih1.SetItemChecked(Tercih1.Items.Count - 1, BinaryReader.ReadBoolean)
Loop
Tercih1.EndUpdate()
BinaryReader.Close()
FileStream.Dispose()
End Sub
Mrb Arkadaşlar Gördüğünüz gibi CheckedListBox listesine Kaydet ve Yükle butonu var. Bende iki tane CheckedListBox var bu kodlara nasıl diğer CheckedListBox'ı ilave edebilirim? Tercih2 CheckedListBox'ı nasıl dahil edebilirim?
