Tutorial | Tutorial |
|
|
Página 5 de 11 Otras Formas de Selección de Opciones Hay varias alternativas para obtener la opción de un usuario además de RadioGroup. Uno de ellos es el control ListBox @ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'} Usando un Listbox, puede agregarse, cambiar o quitar items en tiempo de ejecución. #include "minigui.ch" Function Main DEFINE WINDOW Win_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 200 ; TITLE 'Tutor 07 - ListBox Test' ; MAIN DEFINE MAIN MENU POPUP "First Popup" ITEM 'Change ListBox Value' ACTION Win_1.List_1.Value := 2 ITEM 'Retrieve ListBox Value' ACTION MsgInfo ( Str(Win_1.List_1.Value)) ITEM 'Agregar List Item' ACTION Win_1.List_1.AddItem ('New List Item') ITEM 'Sacar List Item' ACTION Win_1.List_1.DeleteItem (2) ITEM 'Cambiar List Item' ACTION Win_1.List_1.Item (1) := 'New Item Text' ITEM 'Mostrar Cantidad de List Item' ACTION MsgInfo (Str(Win_1.List_1.ItemCount)) END POPUP END MENU @ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'} END WINDOW ACTIVATE WINDOW Win_1 Return Otras Formas de Selección de Opciones II Otro alternativa para obtener la opción de un usuario es el COMBOBOX. @ 10, 10 COMBOBOX Combo_1 ITEMS {'Option 1','Option 2','Option 3'} Usar un Combobox, es similar al ListBox. #include "minigui.ch" Function Main DEFINE WINDOW Win_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 200 ; TITLE 'Tutor 08 - ComboBox Test' ; MAIN DEFINE MAIN MENU POPUP "First Popup" ITEM 'Change ComboBox Value' ACTION Win_1.Combo_1.Value := 2 ITEM 'Retrieve ComboBox Value' ACTION MsgInfo ( Str(Win_1.Combo_1.Value)) SEPARATOR ITEM 'Agragar Combo Item' ACTION Win_1.Combo_1.AddItem ('New List Item') ITEM 'Sacar Combo Item' ACTION Win_1.Combo_1.DeleteItem (2) ITEM 'Cambiar Combo Item' ACTION Win_1.Combo_1.Item (1) := 'New Item Text' ITEM 'Mostar cantidad de Combo Item ' ACTION MsgInfo (Str(Win_1.Combo_1.ItemCount)) END POPUP END MENU @ 10, 10 COMBOBOX Combo_1 ITEMS {'Option 1','Option 2','Option 3'} END WINDOW ACTIVATE WINDOW Win_1 Return |
|||||||||||||