简单封装个DLL试了一下
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
DECLARE LONG _timeSetEvent IN tse LONG, LONG, LONG
DECLARE LONG _timeKillEvent IN tse LONG
of = CREATEOBJECT("form1")
of.show(1)
CLEAR ALL
RETURN
DEFINE CLASS form1 as Form
nID = 0
PROCEDURE init
BINDEVENT(this.HWnd, 0x401, this, "_timer")
this.nID = _timeSetEvent(this.hWnd, 0x401, 10) && 10ms触发一次
ENDPROC
PROCEDURE _timer(hWnd, Msg, wParam, IParam)
**this.Caption = TRANSFORM(SECONDS())
??TRANSFORM(SECONDS())+0h0D
ENDPROC
PROCEDURE Unload
_timeKillEvent(this.nID)
ENDPROC
ENDDEFINE