Database Search

TechHome

	MSHTML
	WebBrowser

• A Basic Grid Tutorial
• ActiveWidget Grid Sample
• Animated Clock in Dialog
• Append RTF files Using COM
• Create Menus Using MSCIMenu
• Dialog Grid Example Using TrueDBGrid COM Object
• Disable the Context Menu on a WebPage in Dialog
• Display File in Dialog
• DIsplay Word Document in WIL Dialog
• Excel In WIL Dialog
• Handle NewWindow3 Event
• Holiday Sample Dialog using COM
• ImageList in TreeView
• Microsoft Hierarchical Grid Control
• MstGrid ActiveX Control
• OWC Spreadsheet Control Tutorial
• RTF COMCONTROL in Dialog
• Tabbed Dialog
• TreeView Control Sample
• TrueDBGrid Control Sort Issues
• Users Thoughts about COMCONTROLs in WinBatch
• Using Excel in a Dialog Com Control
• Using Windows Explorer Shell in a Dialog Com Control

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Animated Clock in Dialog

;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