Сохранение текста в файл из 70 TextBox - VB
Формулировка задачи:
Вопрос такой.
На форме около 70 текстбоксов.
При нажатии кнопки "Сохранить" нужно, чтобы все результаты сохранились в файл.
Решение задачи: «Сохранение текста в файл из 70 TextBox»
textual
Листинг программы
- Private Sub Command1_Click() 'Кнопка ЗАПИСАТЬ
- Dim i As Integer
- Open App.Path + "\" + "1.txt" For Output As #1
- For i = 0 To 70 'Количество Текстбоксов в массиве
- Write #1, Text1(i).Text
- Next i
- Close #1
- End Sub
- Private Sub Command2_Click() ' Кнопка ПРОЧИТАТЬ
- Dim i As Integer, a
- 'On Error Resume Next
- Open App.Path + "\" + "1.txt" For Input As #1
- For i = 0 To 70 'Количество Текстбоксов в массиве
- Input #1, a: Text1(i).Text = a
- Next i
- Close #1: Exit Sub
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
