Saludos
Puedes mostrar el .hbp como se construye el ejecutable.

Moderador: Moderadores
PROCEDURE Main
hb_ThreadStart( { || module() } )
hb_ThreadStart( { || module() } )
hb_ThreadStart( { || module() } )
hb_ThreadWaitForAll()
RETURN
PROCEDURE Module
LOCAL oControl, nKey := 0, oTime
hb_gtReLoad( "WVG" )
SetMode( 25, 90 )
SetColor("N/W")
CLS
...
The Microsoft DataGrid is usually seen associated with VB when you start searching for information on how to implement the MS DataGrid in Visual C++. There is not a lot of information out there and therefore many Visual C++ programmers tend not to use this excellent and easy to use database control.
When I had to use the flexgrid for the first time, I was frustrated to find out that no proper documentation existed on the Net. The ones available were too complicated for me to understand. And the ones that were easy were in VB. This article is to help persons who are going to use the flexgrid in their applications using VC++
oControl := TstTrackbar():New()
oControl:Create( , , { -20, -61 }, { -3, -15 } )
oControl:SendMessage( TBM_SETRANGE, 1, WIN_MAKELONG( 1, 10 ) )
oControl:SendMessage( TBM_SETSEL, 0, WIN_MAKELONG( 1, 10 ) )
oControl:SendMessage( TBM_SETPOS, 1, 1 )
CREATE CLASS TstBitmap INHERIT TstAny
VAR ClassName INIT "STATIC"
VAR ObjType INIT objTypeStatic
VAR Style INIT WIN_WS_CHILD + WIN_WS_GROUP + SS_BITMAP + SS_CENTERIMAGE + BS_NOTIFY
VAR nIconBimap INIT WIN_IMAGE_BITMAP
ENDCLASS
oControl := TstBitmap():New()
oControl:cImage := "tstbmp"
oControl:Create( , , { -19, -41 }, { -3, -8 } )
CREATE CLASS TstButton INHERIT TstAny
VAR className INIT "BUTTON"
VAR objType INIT objTypePushButton
VAR style INIT WIN_WS_CHILD + BS_PUSHBUTTON + BS_NOTIFY + BS_FLAT
ENDCLASS
oControl := TstButton():New()
oControl:cText := "OK"
oControl:Create( , , { -20, -50 }, { -1, -8 } )
wvgSetAppWindow():Refresh()
CREATE CLASS TstCheckBox INHERIT TstAny
VAR ClassName INIT "BUTTON"
VAR objType INIT objTypeCheckBox
VAR Style INIT WIN_WS_CHILD + WIN_WS_TABSTOP + BS_AUTOCHECKBOX
ENDCLASS
oControl := Tstcheckbox():New()
oControl:cText := "Satisfied?"
oControl:Create( , , { -19, -15 }, { -1, -10 } )
oControl := TstCheckBox():New()
oControl:cText := "Not Satisfied?"
oControl:Style += BS_LEFTTEXT
oControl:Create( , , { -21, -15 }, { -1, -10 } )
CREATE CLASS TstCombobox INHERIT TstAny
VAR ClassName INIT "COMBOBOX"
VAR ObjType INIT objTypeComboBox
VAR Style INIT WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_GROUP + CBS_DROPDOWNLIST
ENDCLASS
oControl := TstComboBox():New()
oControl:Create( , , { -5, -43 }, { -6, -17 } )
oControl:SendMessage( CB_ADDSTRING, 0, "First" )
oControl:SendMessage( CB_ADDSTRING, 0, "Second" )
oControl:SendMessage( CB_ADDSTRING, 0, "Third" )
oControl:SendMessage( CB_ADDSTRING, 0, "Fourth" )
oControl:SendMessage( CB_ADDSTRING, 0, "Fifth" )
oControl:SendMessage( CB_SETCURSEL, 0 /* first */, 0 )
CREATE CLASS TstCommandLink INHERIT TstAny
VAR ClassName INIT "BUTTON"
VAR objType INIT objTypePushButton
VAR Style INIT WIN_WS_CHILD + WIN_WS_BORDER + WIN_WS_TABSTOP + WIN_WS_GROUP + BS_COMMANDLINK
ENDCLASS
oControl := TstCommandLink():New()
oControl:cText := "Cmd Link"
oControl:Create( , , { -13, -63 }, { -5, -15 } )
oControl:SendMessage( BCM_SETNOTE, 0, "Vista and Above" )
Usuários vendo este fórum: Google [Bot] e 6 visitantes