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.

Display File in Dialog

#DefineSubRoutine FILEVIEWER(MyD_Handle,DMsg,DCID,resvd4,resvd5)
   Switch (DMsg)
       Case 0; msg_init                 ; Dialog Initialization
       DialogProcOptions(MyD_Handle, 11,-1) ; Close selected (IntControl(49....) (1-On, 0-Off).
      ;##################################
      ;BROWSER CONTROL
      ;##################################
       co_MyD_ShellExplorer = 1
       obrowser = DialogObject(MyD_Handle,co_MyD_ShellExplorer,3) ;GET OBJECT HANDLE
       obrowser.navigate("About:Blank",0,'','','')
       obrowser.navigate(file,0,"","","")
      ;##################################
       Break
     Case 11          ; Close
       obrowser = 0
       Exit
       Break
   EndSwitch
Return -2

#EndSubRoutine

Home_Path = DirScript()
DirChange(Home_Path)
file = Home_Path :"sample.doc"
;file = Home_Path : "sample.jpg"
;file = Home_Path : "sample.xls"
IntControl(49,3,0,0,0)


MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`File Viewer`
MyDialogX=002
MyDialogY=038
MyDialogWidth=510
MyDialogHeight=255
MyDialogNumControls=001
MyDialogProcedure=`FILEVIEWER`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`003,003,500,247,COMCONTROL,DEFAULT,"Shell.Explorer",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Article ID:   W17394

File Created: 2008:04:10:15:09:14

Last Updated: 2008:04:10:15:09:14