Программирование на 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
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 19