Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
COMCONTROL
 | |
|
- 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 Word Document in WIL Dialog
Home_Path = DirScript()
DirChange(Home_Path)
GoSub Load_Routines
IntControl(49,3,0,0,0)
MSWORD_Init_Var_Rtn()
Init_Dialog_Constants()
DirChange(DirScript())
docs_list = FileItemize("*.doc")
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`Word Viewer`
MyDialogX=002
MyDialogY=038
MyDialogWidth=510
MyDialogHeight=255
MyDialogNumControls=004
MyDialogProcedure=`MSWORD`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`145,237,036,012,PUSHBUTTON,DEFAULT,"OK",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`329,237,036,012,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`117,009,372,222,COMCONTROL,DEFAULT,"Shell.Explorer",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`003,009,108,222,ITEMBOX,docs,DEFAULT,DEFAULT,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog")
:Load_Routines
#DefineSubRoutine MSWORD_Get_List_Rtn()
docs = DialogControlGet(MyD_Handle,ib_MyD_docs,dc_itemboxselect) ; ITEMBOX
#EndSubRoutine
#DefineSubRoutine MSWORD_Set_List_Rtn()
DialogControlSet(MyD_Handle,ib_MyD_docs,dc_itemboxcontents,docs_list) ; ITEMBOX
DialogControlSet(MyD_Handle,ib_MyD_docs,dc_itemboxselect,docs) ; ITEMBOX
#EndSubRoutine
#DefineSubRoutine MSWORD_Init_Var_Rtn()
pb_MyD_OK = 1
pb_MyD_Cancel = 2
co_MyD_ShellExplorer = 3
ib_MyD_docs = 4
ib_MyD_docs_list = 4
#EndSubRoutine
#DefineSubRoutine Init_Dialog_Constants()
;DialogprocOptions Constants
MSG_INIT = 0 ; The one-time initilization
MSG_TIMER = 1 ; Timer event
MSG_BUTTONPUSHED = 2 ; Pushbutton or Picturebutton
MSG_RADIOPUSHED = 3 ; Radiobutton clicked
MSG_CHECKBOX = 4 ; Checkbox clicked
MSG_EDITBOX = 5 ; Editbox or Multilinebox
MSG_FILESELECT = 6 ; Filelistbox
MSG_ITEMSELECT = 7 ; Itembox
MSG_COMBOCHANGE = 8 ; Combobox/Droplistbox
MSG_CALENDAR = 9 ; Calendar date change
MSG_SPINNER = 10 ; Spinner number change
MSG_CLOSEVIA49 = 11 ; Close clicked (Enabled via Intcontrol 49)
MSG_FILEBOXDOUBLECLICK = 12 ; Get double-click message on a FileListBox
MSG_ITEMBOXDOUBLECLICK = 13 ; Get double-click message on an ItemBox
MSG_COMEVENT = 14 ; Get double-click message on an ItemBox
DPO_DISABLESTATE = 1000 ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
DPO_CHANGEBACKGROUND = 1001 ; -1=GetSetting otherise bitmap or color string
DPO_CHANGESYSMENU = 1002 ; -1=Get Current 0=none 1=close 2=close/min 3=close/max 4=close/min/max
DPO_CHANGETITLE = 1003 ; -1=Get Current otherise new title
;DialogControlState Constants
DCSTATE_SETFOCUS = 1 ; Give Control Focus
DCSTATE_QUERYSTYLE = 2 ; Query control's style
DCSTATE_ADDSTYLE = 3 ; Add control style
DCSTATE_REMOVESTYLE = 4 ; Remove control style
DCSTATE_GETFOCUS = 5 ; Get control that has focus
DCSTYLE_INVISIBLE = 1 ; Set Control Invisible
DCSTYLE_DISABLED = 2 ; Set Control Disabled
DCSTYLE_NOUSERDATA = 4 ; Note: Setable via DialogControlState function ONLY SPINNER control only
DCSTYLE_READONLY = 8 ; Sets control to read-only (user cannot type in data) EDITBOX MULTILINEBOX SPINNER
DCSTYLE_PASSWORD = 16 ; Sets 'password mode' where only *'s are displayed EDITBOX
DCSTYLE_MSWORDBUTTON = 32 ; Sets a button as a the default button PUSHBUTTON PICTUREBUTTON
DCSTYLE_DIGITSONLY = 64 ; Set edit box to accept digits only EDITMOX MULTILINEBOX
DCSTYLE_FLAT = 128 ; Makes a 'flat' hyperlink-looking button PUSHBUTTON PICTUREBUTTON
DCSTYLE_HEIGHT = 256 ; Turns off automatic height adjustment on ItemBoxes and FileListBoxes
DCSTYLE_CENTER = 512 ; Center Text in VARYTEXT and STATICTEXT Controls
DCSTYLE_RIGHT = 1024 ; Right Justify Text in VARYTEXT and STATICTEXT Controls
DCSTYLE_NOSELCURLEFT = 2048 ; No selection, cursor left EDITBOX MULTILINEBOX
DCSTYLE_NOSELCURRIGHT = 4096 ; No selection, cursor right EDITBOX MULTILINEBOX
;DialogControlSet / DialogControlGet Constants
DC_CHECKBOX = 1 ; CHECKBOX
DC_RADIOBUTTON = 2 ; RADIOBUTTON
DC_EDITBOX = 3 ; EDITBOX MULTILINEBOX
DC_TITLE = 4 ; PICTURE RADIOBUTTON CHECKBOX PICTUREBUTTON VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON
DC_ITEMBOXCONTENTS = 5 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_ITEMBOXSELECT = 6 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_CALENDAR = 7 ; CALENDAR
DC_SPINNER = 8 ; SPINNER
DC_MULTITABSTOPS = 9 ; MULTILINEBOX
DC_ITEMSCROLLPOS = 10 ; ITEMBOX FILELISTBOX
DC_BACKGROUNDCOLOR = 11 ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FILELISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
DC_PICTUREBITMAP = 12 ; PICTURE PICTUREBUTTON
DC_TEXTCOLOR = 13 ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FIELLISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
DC_ITEMBOXADD = 14 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_ITEMBOXREMOVE = 15 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_RADIOCONTROL = 16 ; RADIOBUTTON
;DialogObject constants
DLGOBJECT_ADDEVENT = 1 ; Call dialog callback when the specified event occurs
DLGOBJECT_REMOVEEVENT = 2 ; Stop calling dialog callback when an event previously requested with
DLGOBJECT_GETOBJECT = 3 ; Return an object references to the specified control
DLGOBJECT_GETPICOBJECT = 4 ; Create and return an object reference to a picture object
;Return code constants
RET_DO_CANCEL = 0 ; Cancels dialog
RET_DO_MSWORD = -1 ; Continue with default processing for control
RET_DO_NOT_EXIT = -2 ; Do not exit the dialog
#EndSubRoutine
#DefineSubRoutine MSWORD_Init_Var_Null()
docs = ""
docs_list = ""
#EndSubRoutine
#DefineSubRoutine MSWORD(MyD_Handle,DMsg,DCID,resvd4,resvd5)
Switch (DMsg)
Case msg_init ; Dialog Initialization
DialogProcOptions(MyD_Handle, msg_timer,0) ; TimerEvent (0- Off).
DialogProcOptions(MyD_Handle, msg_closevia49,-1) ; Close selected (IntControl(49....) (1-On, 0-Off).
DialogProcOptions(MyD_Handle, dpo_disablestate,0) ; Dialog Disable (1-Disable, 2-Wait cursor, 0-Enable).
DialogProcOptions(MyD_Handle, dpo_changebackground,-1) ; Change Dialog Background (Bitmap File or RGB String).
DialogProcOptions(MyD_Handle, msg_buttonpushed,1) ; PushButton/PictureButton.
DialogProcOptions(MyD_Handle, msg_itemselect,1) ; ItemBox.
DialogProcOptions(MyD_Handle, msg_itemboxdoubleclick,1) ; ItemBox Double-Clicked.
;##################################
;BROWSER CONTROL
;##################################
url = StrCat("file:///",DirScript(),ItemExtract(1,docs_list,@TAB))
docs = ItemExtract(1,docs_list,@TAB)
obrowser = DialogObject(MyD_Handle,co_MyD_ShellExplorer,DLGOBJECT_GETOBJECT)
obrowser.navigate("About:Blank",0,'','','')
If url<>""
obrowser.navigate(url,0,"","","")
EndIf
;##################################
MSWORD_Set_List_Rtn()
Break
Case msg_timer ; TimerEvent
Break
Case msg_closevia49 ; Close
obrowser = 0
Exit
Break
Case msg_itemselect ; Item Box
Switch(DCID)
Case ib_MyD_docs
docs = DialogControlGet(MyD_Handle,ib_MyD_docs,dc_itemboxselect)
docs_list = DialogControlGet(MyD_Handle,ib_MyD_docs,dc_itemboxcontents)
url = StrCat("file:///",DirScript(),docs)
obrowser.navigate(url,0,"","","")
Break
EndSwitch
Break
Case msg_buttonpushed ; PushButtion
Switch(DCID)
Case pb_MyD_OK
nSelection = DialogControlGet(MyD_Handle,pb_MyD_OK,dc_title)
Break
Case pb_MyD_Cancel
nSelection = DialogControlGet(MyD_Handle,pb_MyD_Cancel,dc_title)
obrowser = 0
Exit
Break
EndSwitch
Break
EndSwitch
Return -2
#EndSubRoutine
Return
Article ID: W16930
File Created: 2007:07:03:14:27:06
Last Updated: 2007:07:03:14:27:06