Подскажите пожалуйста, как сделать так, чтобы данные list(список) загружалить из файла. Пробовал делать так:
ComBox1.List = a$
На эту штуку он ругается. Каким образом происходит заполнение (загрузка) Списка?
ComboBox list
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 12
• Страница 1 из 1
- kuhtiov
- Постоялец
-
- Сообщения: 419
- Зарегистрирован: 03.08.2006 (Чт) 5:31
ComboBox list
kuhtiov » 09.08.2006 (Ср) 5:56
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 09.08.2006 (Ср) 6:35
- Код: Выделить всё
Dim Хрень As String
Dim МассивХреней() As String
Dim frfl as long
Open "file.txt" For Binary as #frfl
Хрень = Space(LOF(frfl))
Get #frfl, 1, Хрень
Close #frfl
МассивХреней = Split(Хрень, "/разделитель хрени/")
For Each Хрень In МассивХреней
List1.AddItem Хрень
Next Хрень
В файле
- Код: Выделить всё
Хрень1/разделитель хрени/Хрень2/разделитель хрени/Хрень 3
Думаю хватит сображалова понять что здесь надо поменять.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 09.08.2006 (Ср) 6:56
.AddItem = (Хрень1)
.AddItem = (Хрень2)
.AddItem = (Хрень3)
А я из-за этого вчера убил 3 часа.
Каждый час по хрени?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Viper
- Артефакт VBStreets
-
- Сообщения: 4394
- Зарегистрирован: 12.04.2005 (Вт) 17:50
- Откуда: Н.Новгород
Viper » 10.08.2006 (Чт) 7:18
В итерации типа
переменная Хрень должна быть типа Variant, либо конструкцию надо переписывать так
Насчет не может отурыть файл. У Хакер пропущено присваивание переменной frfl, должно быть
- Код: Выделить всё
For Each Хрень In МассивХрени
переменная Хрень должна быть типа Variant, либо конструкцию надо переписывать так
- Код: Выделить всё
For i = LBound(МассивХрени) To UBound(МассивХрени)
Насчет не может отурыть файл. У Хакер пропущено присваивание переменной frfl, должно быть
- Код: Выделить всё
Dim frfl As Long
frfl = FreeFile
Весь мир матрица, а мы в нем потоки байтов!
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 10.08.2006 (Чт) 7:39
Гм... ну я типа 49 часов уже не спал. Но ведь нужно сначала дождаться хотя бы 8 часов? 
Хе
Представляю, заходит кто нибудь на этот форум в первый раз, и случайно самой первой открывает эту страницу... и види тут
LOL
Хе
Представляю, заходит кто нибудь на этот форум в первый раз, и случайно самой первой открывает эту страницу... и види тут
For Each Хрень In МассивХрени
переменная Хрень должна быть типа Variant, либо конструкцию надо переписывать так
LOL
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
Сообщений: 12
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Bing-бот и гости: 54