G
goshanoob
Я тут заморочился писать в файл через класс, вводя значения на форме, вызывая диалоговое окно кнопкой. На форме сделал так:
Тогда в классе file так:
В итоге этот злодей при запуске проги первым делом лезет в класс и пытается что-то написать в файл. Естественно получается #ERROR 448#,#ERROR. Далее все по задумке. Видимо я чего-то не понимаю?
Код:
Dim time As New file(famil, country, vrem, popad_lej, popad_sto)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kolvo = InputBox("Количество?")
For i = 1 To kolvo
famil = InputBox("Фамилия")
country = InputBox("Страна")
vrem = InputBox("Время")
popad_lej = InputBox("Попадания один")
popad_sto = InputBox("Попадания два")
time.zapil(famil, country, vrem, popad_lej, popad_sto)
Next i
End Sub
Тогда в классе file так:
Код:
Public Sub New(ByVal famil As String, ByVal country As String, ByVal vrem As Integer, _
ByVal popad_lej As Integer, ByVal popad_sto As Integer)
zapil(famil, country, vrem, popad_lej, popad_sto)
End Sub 'Конструктор
Public Sub zapil(ByVal famil As String, _
ByVal country As String, ByVal vrem As Integer, ByVal popad_lej As Integer, ByVal popad_sto As Integer)
FileOpen(1, "c:\Projects\PIQUE\result.txt", OpenMode.Append) ' заись файла
Write(1, famil)
Write(1, country)
Write(1, vrem)
Write(1, popad_lej)
Write(1, popad_sto)
FileClose(1)
End Sub
В итоге этот злодей при запуске проги первым делом лезет в класс и пытается что-то написать в файл. Естественно получается #ERROR 448#,#ERROR. Далее все по задумке. Видимо я чего-то не понимаю?