Fryazino.NET Forum || Hard&Soft || Вопрос по VB 6.0
>> Привет, Гость! Войдите! : вход | поиск | правила | банлист
Автор
Вопрос по VB 6.0 (1) 1 для печати | RSS 2.0
DMX
Участник
1570
отправлено: 20-12-2002 14:17:00 |     инфо • правка • ссылка • сообщить модератору
Как мне сохранить фаил данные с лист бокса , не путать с текстбоксом там бы было всё легко....вот я примерно накатал кодик фаил создаётся а вот данные в него не сохраняются.

Private Sub mnuSaveFile_Click()
Open "C:\test2.txt" For Output As #2
Dim Y As Integer
Do Until Y = ExitList.Count

Print #2, ExitList.List(Y)
Y = Y + 1
Loop
Close #2
End Sub

[Сообщение изменил DMX 20-12-2002.]
IP
Dima
Участник
1027
отправлено: 21-12-2002 00:54:00 |     инфо • правка • ссылка • сообщить модератору
В ACCESSe на VBA это выглядит так:

Private Sub mnuSaveFile_Click()
Open "C:\test2.txt" For Output As #2
Dim Y As Integer
Y = 0
Do Until Y = ExitList.ListCount
Print #2, ExitList.Column(0, Y)
Y = Y + 1
Loop
Close #2
End Sub

P.S. Причем работает, а на VB я не знаю как, может также.

[Сообщение изменил Dima 21-12-2002.]
IP
DMX
Участник
1570
отправлено: 21-12-2002 00:56:00 |     инфо • правка • ссылка • сообщить модератору
To Dima
Спасибо Диман , это я ламер написал Count , а надо было ListCount
IP
DMX
Участник
1570
отправлено: 21-12-2002 01:06:00 |     инфо • правка • ссылка • сообщить модератору
To All
и ещё вопросик, а как в VB 6.0 сохранить прогу чтоб был тока один EXEшный фаил ну чтоб мона было запустить обычному пользователю по виндами 98 ХР Ми
IP
DMX
Участник
1570
отправлено: 21-12-2002 01:42:00 |     инфо • правка • ссылка • сообщить модератору
а вот нашёл.
IP
Страницы(1): 1

Хотите создавать темы и отправлять сообщения? Выполните Вход или Зарегистрируйтесь!




Напишите нам

µƒorum © fryazino.net