Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;Animated Clock Control - 2005G ; ;Stan Littlefield December 22, 2005 ;//////////////////////////////////////////////////////////////////// cAvi = StrCat(DirWindows(0),"clock.avi") ;should be on most PC's If ! FileExist(cAVI) Then Exit GoSub udfs :Main BRFormat=`WWWDLGED,6.1` BRCaption=`Animation....` BRX=-01 BRY=-01 BRWidth=174 BRHeight=177 BRNumControls=002 BRProcedure=`dlgproc` BRFont=`DEFAULT` BRTextColor=`DEFAULT` BRBackground=`DEFAULT,DEFAULT` BRConfig=0 BR001=`004,004,163,139,COMCONTROL,DEFAULT,"MSComCtl2.Animation.2",DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT` BR002=`062,151,033,011,PUSHBUTTON,DEFAULT,"Cancel",0,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ButtonPushed=Dialog("BR") oAN=0 Exit :udfs #DefineSubRoutine dlgproc(handle,msg,id,p4,p5) Switch msg Case 0 ;Dialog Initialization oAN = DialogObject(handle,1,3) oAN.open(cAVI) oAN.Play() DialogObject(handle, 001, 1,"DblClick",1) Break Case 14 ;COM event message If id==001 oAN.close() Return 9 EndIf Break EndSwitch Return -2 #EndSubRoutine Return ;///////////////////////////////////////////////////////////////////
Article ID: W16927
File Created: 2007:07:03:14:27:06
Last Updated: 2007:07:03:14:27:06