Что нового

[Элементы GUI] Создание динамического GUICtrlCreateCombo

panda_911

Только вверх, только вперед!
Сообщения
52
Репутация
8
Здравствуйте!
Подскажите пожалуйста как реализовать следующее:

GUICtrlCreateCombo содержание которого будет динамически изменяться.
Данные беруться из массива куда в свою очередь попадают из файлика.
Циклом через GUICtrlSetData прикрутить не получилось
Вот что имею:

Код:
Dim $test[10]
For $i = 1 To 10 - 1
	$test[$i] = IniRead ($sIni, "Test", $i, "")
Next
$sTest = GUICtrlCreateCombo ("", 200, 40, 200, 20)

For $i = 1 To UBound($test) - 1
GUICtrlSetData (-1, $test[$i])
Next

Такой код не работает.
Хотя такой вот работает :scratch:
Код:
GUICtrlSetData (-1, $test[1])
GUICtrlSetData (-1, $test[2])
GUICtrlSetData (-1, $test[3])
GUICtrlSetData (-1, $test[4])


Хотя по сути тоже цикл вродь
Вобщем нужно чтоб содержимое "комбо" можно было редактировать в текстовом файлике (например ини)
 

agikon

Знающий
Сообщения
789
Репутация
17
может оно не видит куда вписывать, что если если вот так
Код:
GUICtrlSetData ($sTest, $test[$i])

и вот тут
Код:
$sTest = GUICtrlCreateCombo ($test[$i], 200, 40, 200, 20)

я недавно так подобное делал и всё работало.
 
Автор
P

panda_911

Только вверх, только вперед!
Сообщения
52
Репутация
8
agikon
А можно поподробнее код.
 

agikon

Знающий
Сообщения
789
Репутация
17
я его уже не найду, у меня на компе завелось тысячи всяких скриптиков...
но я точно помню что так делал как написал. попробуйте подставить возможно получится.

вот смотрите у вас же в скобках пусто, откуда код знает что там отображать?
Код:
$sTest = GUICtrlCreateCombo ("", 200, 40, 200, 20)
 
Автор
P

panda_911

Только вверх, только вперед!
Сообщения
52
Репутация
8
не работает :(


Добавлено:
Сообщение автоматически объединено:

Вот это то работает
Код:
GUICtrlSetData (-1, $test[1])
GUICtrlSetData (-1, $test[2])
GUICtrlSetData (-1, $test[3])
GUICtrlSetData (-1, $test[4])


*****************************

Сори сам ступил, все работает :smile:
 

La2Angel

Новичок
Сообщения
156
Репутация
1
Вдруг голову еще ломаешь :smile:
Код:
Dim $test[10]
For $i = 1 To 10 - 1
    $test[$i] = IniRead ($sIni, "Test", $i, "")
Next
$sTest = GUICtrlCreateCombo ("", 200, 40, 200, 20)

For $i = 1 To UBound($test) - 1
GUICtrlSetData ($sTest, $test[$i])
Next
 
Верх