Página 9 de 23
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 "hmg.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