ComboBox
muy bueno,
maito bom
saludos.
#include "FiveWin.ch"
function Main()
local oDlg, oCbx, cDia
DEFINE DIALOG oDlg
@ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo" } ;
STYLE CBS_DROPDOWN ON CHANGE QueDia(cDia)
oCbx:oGet:bKeyChar = { | nKey | oCbx:GetKeyChar( nKey ) }
ACTIVATE DIALOG oDlg CENTERED
return nil
function QueDia(cDia)
MsgAlert("Hoy día es: "+cDia)
Return nil
#include "FiveWin.ch"
function Main()
local oDlg, oCbx, cDia
DEFINE DIALOG oDlg
@ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 ;
ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo" } ;
STYLE CBS_DROPDOWN ON CHANGE QueDia( cDia )
oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
oCbx:GetKeyChar( nKey ) }
ACTIVATE DIALOG oDlg CENTERED
return nil
function QueDia(cDia)
MsgAlert("Hoy día es: "+cDia)
Return nil
oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
oCbx:GetKeyChar( nKey ) }
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 29 guests