Erro checkbox
Enviado: 16 Jul 2012 11:04
Olá (:
Estou tendo o seguinte problema com o checkbox.... qnd eu um checkbox simples, e vou executar o programa, eu recebo este erro:
Estou tendo o seguinte problema com o checkbox.... qnd eu um checkbox simples, e vou executar o programa, eu recebo este erro:
o código que estou utilizando é este:+--------------------------------------------------------------------------------
|
|Error BASE/1072 Argument error: <> Arguments: ( [ 1] = Type: P Val: 0 [ 2] = Type: N Val: 0)
|
|Error at ...: HCHECKBUTTON:ONEVENT(147) in Module: C:\develop\prj\hwgui\source\h
|check.prg
|Called from : HWG_DLGBOXINDIRECT(0) in Module:
|Called from : HDIALOG:ACTIVATE(185) in Module: C:\develop\prj\hwgui\source\hdial
|og.prg
|Called from : _AS(23) in Module: as.prg
|Called from : AS(5) in Module: as.prg
Código: Selecionar todos
#include "hwgui.ch"
STATIC Thisform
FUNCTION as( p1, p2, p3, p4 )
RETURN _as( p1, p2 ,p3 ,p4)
FUNCTION _as
LOCAL vCheck1 := .T.
LOCAL oCheck1
INIT DIALOG oDlg TITLE "fdsfds" ;
AT 0,130 SIZE 526,138 NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER
INIT DIALOG oDlg TITLE "Form2" ;
AT 0,130 SIZE 453,120 NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER
@ 10,10 GET CHECKBOX oCheck1 VAR vCheck1 CAPTION "Transporte" SIZE 92,22
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult