Public Structure MyData
Public Text1 As String
Public Text2 As String
Public Text3 As String
Public Option1 As Boolean
Public Option2 As Boolean
End Structure
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim MD As New MyData
MD.Text1 = TextBox2.Text
MD.Text2 = TextBox3.Text
MD.Text3 = ListBox1.SelectedItem
MD.Option1 = Me.CheckBox1.Checked
MD.Option2 = Me.RadioButton1.Checked
FileOpen(1, txtFileName.Text, OpenMode.Random, OpenAccess.Write, OpenShare.Shared, Len(MD))
FilePut(1, MD)
FileClose(1)
End Sub
Private Sub cmdOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpen.Click
Dim MD As New MyData
FileOpen(1, txtFileName.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared, Len(MD))
FileGet(1, MD)
FileClose(1)
TextBox2.Text = MD.Text1
TextBox3.Text = MD.Text2
ListBox1.Text = MD.Text3
CheckBox1.Checked = MD.Option1
RadioButton1.Checked = MD.Option2
End Sub
End Class
|