Проблема в том что он на выходе показывает нулевую строку и Integer равный 0. Помогите пожалуйста!
- Код: Выделить всё
Structure типСпортсмен
Dim фамилия As String
Dim дата As DateTime
Dim Мужчина As Boolean
Dim вес As Integer
End Structure
Dim Sp(4) As типСпортсмен
Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Sp(i).фамилия = TextBox1.Text
Sp(i).Мужчина = chb1.Checked
Sp(i).вес = CInt(TextBox4.Text)
i = i + 1
FileOpen(77, "C:\Doc\Gennady\Файлы Бэйсик\Shablon\bin\new.ctv", OpenMode.Random)
FilePut(77, Sp(i))
FileClose(77)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim int As Integer = InputBox("Введите номер записи:", "Проба")
Dim S As типСпортсмен
FileOpen(77, "C:\Doc\Gennady\Файлы Бэйсик\Shablon\bin\new.ctv", OpenMode.Random)
FileGet(77, S, int)
FileClose(77)
Label1.Text = S.фамилия
Label2.Text = S.вес
End Sub
