#include "FiveWeb.ch"
function Main()
local oDlg, oCbx
DEFINE DIALOG oDlg TITLE "Using a combobox"
oCbx = TCombobox():New( 30, 30,,, oDlg,;
ArrTranspose( { { "one", "uno" }, { "two", "dos" }, { "three", "tres" } } ),;
"oCbx" )
@ 220, 220 BUTTON "Ok" OF oDlg ;
ACTION alert( oCbx.value )
ACTIVATE DIALOG oDlg NOWAIT
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 12 guests