Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ListBox Добавлено: 25.06.02 08:29  

Автор вопроса:  Smith | Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. | ICQ: ненавижу 

Вот так я сохраняю информацию из ListBox в текстовый файл:

Dim text
For i = 0 To List1.ListCount - 1
text = text & List1.List(i) & vbCrLf
Next
Text4.text = text

Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = CommonDialog1.FileName
Open FName For Output As #FN
Print #FN, Text4.text
Close #FN

А как мне сделать наоборот, из файла в ListBox?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Иван



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 25.06.02 09:10

Здесь нет ничего сложного:

Dim FN As Integer
Dim FName As String
Dim s As String

FN = FreeFile
FName = CommonDialog1.FileName
Open FName For Input As #FN
Do While Not EOF(FN)
    Line Input #FN, s
    List1.AddItem s
Loop
Close #FN

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: ненавижу 

Вопросов: 28
Ответов: 317
  Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
 Профиль | | #2 		Добавлено: 25.06.02 12:23

Но не для ламера.

Спасибо!

 

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам