Автор | Сообщение |
|
| |
Пост N: 147
Зарегистрирован: 12.07.06
|
|
Отправлено: 12.03.20 09:41. Заголовок: вопрос знатокам
Программно меняю значение Value ComboBox'а, как обновить его вид на форме? Refresh и ReDraw не отображают изменения при новом значении Value.
|
|
|
Ответов - 2
[только новые]
|
|
|
| постоянный участник
|
Пост N: 3090
Зарегистрирован: 17.02.12
|
|
Отправлено: 12.03.20 19:27. Заголовок: alex_II пишет вопрос..
alex_II пишет " Черный ящик текст — в студию!" (c) цитата: | Программно меняю значение Value ComboBox'а, как обновить его вид на форме? |
| Чуть модифицированный пример BASIC\COMBO_1\demo2.prg Скрытый текст
/* * MiniGUI ComboBox Demo */ #include "minigui.ch" memvar aitems Function Main private aItems := { '1 | Uno A' , '2 | Dos A' , '3 | tres A' } DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 200 ; TITLE 'ComboBox Demo' ; MAIN @ 10,10 COMBOBOX Control_1 ; WIDTH 130 ; ITEMS {} ; LOWERCASE ; FONT 'Courier New' SIZE 12 DEFINE BUTTON Control_2 ROW 10 COL 150 WIDTH 140 CAPTION 'Update Combo' ACTION UpdateCombo( 'Control_1', 'Form_1' ) END BUTTON DEFINE BUTTON Control_3 ROW 40 COL 150 WIDTH 140 CAPTION 'Update Combo 2' ACTION UpdateCombo2( 'Control_1', 'Form_1' ) END BUTTON END WINDOW Form_1.Control_1.SetArray( aItems ) Form_1.Control_1.Value := 1 CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return Nil // Private array Function UpdateCombo( Control, Parent ) aadd(aitems, '4 | quattro') aadd(aitems, '5 | cinque') aadd(aitems, '6 | senco') aadd(aitems, '7 | ses') if len(aitems) > 7 asize(aitems, 7) endif DoMethod( Parent, Control, 'Refresh' ) This.&(Control).Value := 2 Return Nil // Local array Function UpdateCombo2( Control, Parent ) local aNewValues := { '1 | Uno B' , '2 | Dos B' , '3 | tres B', '4 | quattro', '5 | cinque', '6 | senco', '7 | ses' } DoMethod( Parent, Control, 'SetArray', aNewValues ) This.&(Control).Value := 3 Return Nil
| работает
|
|
|
|
| |
Пост N: 148
Зарегистрирован: 12.07.06
|
|
Отправлено: 13.03.20 11:31. Заголовок: Спасибо за пример, н..
Спасибо за пример, нашел у себя ошибку
|
|
|
|