| |
Сохранение данных из ListBox'а в виде простого текста |
|
| |
Данный пример отвечает на вопрос "Как мне сохранить данные из ListBox'а в файл на диске". Вот этот небольшой пример и отвечает на вопрос.
Для выполнения данного примера вам понадобится элемент ListBox и элемент TextBox.
Private Sub Command1_Click()
Dim i
For i = 1 To 10
List1.AddItem "item" & i
Next
Dim text
For i = 0 To List1.ListCount - 1
text = text & List1.List(i) & vbCrLf
Next
Text1.text = text
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "C:\1.txt"
Open FName For Output As #FN
Print #FN, Text1.text
Close #FN
End Sub
|
|
| |
|
|
|
|