Вопрос на засыпку, кто ответит - молодец!

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
xsting
Новичок
Новичок
 
Сообщения: 28
Зарегистрирован: 24.03.2004 (Ср) 16:42
Откуда: Украина, Крым

Вопрос на засыпку, кто ответит - молодец!

Сообщение xsting » 25.03.2004 (Чт) 16:30

Как прочитать из файла информацию, что бы каждая строка этого файла помещалась в отдельный итем(строку) комбобокса?? :?: :?: :?:

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4160
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 25.03.2004 (Чт) 16:38

Открываешь файл "for input", читаешь построчно с помощью "Line Input", каждый раз считанную строку запихиваешь в ComboBox через метод AddItem... следующий вопрос формулируешь, как положено...

v-adix
Постоялец
Постоялец
 
Сообщения: 490
Зарегистрирован: 14.11.2002 (Чт) 15:11

Сообщение v-adix » 28.03.2004 (Вс) 13:03

а точнее, так:

Код: Выделить всё
Public Function ReadData(Filename As String, combo As ComboBox)
    On Error Resume Next
    Dim fileno As Integer
    Dim getvalues() As String
    Dim Counter As Integer
    Counter = 0
    fileno = FreeFile
    Open Filename For Input As fileno
        Do Until EOF(fileno)
            Counter = Counter + 1
            ReDim Preserve getvalues(Counter)
            Line Input #fileno, getvalues(Counter)
        Loop
    Close fileno
    Dim j As Integer
    For j = 1 To UBound(getvalues)
        combo.AddItem getvalues(j)
    Next j
End Function

xsting
Новичок
Новичок
 
Сообщения: 28
Зарегистрирован: 24.03.2004 (Ср) 16:42
Откуда: Украина, Крым

Ухх...

Сообщение xsting » 30.03.2004 (Вт) 16:48

Спасибо большое всем Вам, я уже разобрался, стоило знать только команду Line Input.... Правда код у меня получился поменьше.....
Если надо - скажите.
"Мы верим - этот мир реален"
(Нави)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 14

    TopList