Database Search

TechHome

• Advancing Through a Series of Dialogs
• Align Dialog in Corner
• Animated GIF in Dialog
• Auto Configure Dialog
• Auto Resize Dialog Based on Size of Text
• Background Colors - Red Alert Heartbeat
• Background Colors - Slowly Shifting
• BeforeNavigate Event Sample Code
• Calculate Width of Given Text
• Calendar Popup
• Change a Control Color
• Change Dialog PushButton Text
• Check Value of Checkbox In Dialog Callback Procedure
• Colored Multi Line Dialog
• Custom AskItemList
• Date Range Selection
• Determine Which Dialog Control Previously Had Focus
• Dialog Grid Navigation
• Dialog Resize Demo
• Display Data in Columns
• Display Hyperlinks in Dialog
• DllCall Rich Edit Control
• Editbox Text Changed Event
• Expandable Dialog
• Field Validation Example
• Field validation with WinBatch Dialog
• File Copy Progress Bar In Winbatch Dialog
• File Save As Dialog
• Get Size of Dialog in Dialog Units
• Grid Navigate
• Grid Sample - Office Web Component
• GridNavigate
• Horizontal Scroll Bars
• Managing a pair of Dynamic ItemBoxes
• Menu Buttons in Dialog
• menubut
• Move Controls in Dialog
• MultilineButtonText
• Multiple Dependent Listboxes
• Only Use Mouse to Exit Dialog
• Panel Placement Manager.
• PushButton Causes Dialog to Minimize
• Resize Dialog and Move Controls
• Resize Dialog Toolbar with Buttonpush
• Resize Dialog
• Resize the Dialog Based on Length of Text and Font
• Scrollable Dialog using MSHTML
• Scrolling Listbox In Dialog
• Spiffy Progress Meter
• Trade Mark Symbol in Dialog
• Transparent Images in Dialogs
• Transparent Progress Dialog
• UDF - ItemBox ToolTips
• Using Standard Windows bitmaps in dialogs
• Viewing More than Bitmaps in Dialogs

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

BeforeNavigate Event Sample Code

;Created by Jim Taylor(jtaylor@jtdata.com) -- Requires WinBatch 2005E or higher.


Home_Path = DirScript()
DirChange(Home_Path)
GoSub Load_Routines
url = "http://www.jtdata.com"

JTBrowseFormat=`WWWDLGED,6.1`

JTBrowseCaption=`JTBrowse`
JTBrowseX=001
JTBrowseY=001
JTBrowseWidth=502
JTBrowseHeight=305
JTBrowseNumControls=002
JTBrowseProcedure=`JTBrowse_Sub`
JTBrowseFont=`DEFAULT`
JTBrowseTextColor=`DEFAULT`
JTBrowseBackground=`DEFAULT,DEFAULT`
JTBrowseConfig=0

JTBrowse001=`469,001,026,012,PUSHBUTTON,DEFAULT,"Exit",0,2,0,DEFAULT,DEFAULT,"217|217|217"`
JTBrowse002=`003,017,492,280,COMCONTROL,DEFAULT,"Shell.Explorer",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`

ButtonPushed=Dialog("JTBrowse")

Exit

:Load_Routines

#DefineSubRoutine Get_BeforeNavigate2(p1,p2,p3,p4,p5,p6,p7)

  Message("Is this headed in the direction you wanted?",p2)

#EndSubRoutine


#DefineSubRoutine JTBrowse_Sub(JTB_Handle,DMsg,DCID,DEInfo,resvd5)

Switch (DMsg)
    Case msg_init                 ; Dialog Initialization
    DialogProcOptions(JTB_Handle, msg_buttonpushed,1)                ; PushButton/PictureButton.

    JTBrowse_Init_Variables()

    obrowser = DialogObject(JTB_Handle,browser_object,dobj_getobjecttype)

    If url<>""
      obrowser.navigate(url,0,"","","")
    EndIf
    ObjectEventAdd(obrowser,"BeforeNavigate2","Get_BeforeNavigate2")
    ;##################################

    Break
  Case msg_buttonpushed         ; PushButtion
    Switch(DCID)
      Case pb_JTB_Exit
        ObjectEventRemove(obrowser,"BeforeNavigate2")
        Return -1
        Break
    EndSwitch
    Break
EndSwitch

Return -2

#EndSubRoutine


#DefineSubRoutine JTBROWSE_Init_Variables()

  pb_JTB_Exit                              = 1
  browser_object                           = 2

#EndSubRoutine


   ;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   ; COM Event

   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_DEFAULTBUTTON  = 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

   DOBJ_CALLBACK=1           ; Call dialog callback when the specified event occurs
   DOBJ_STOPCALLBACK=2       ; Stop calling dialog callback when an event previously requested with
   DOBJ_GETOBJECTTYPE=3      ; Return an object references to the specified control
   DOBJ_GETPICTUREREF=4      ; Create and return an object reference to a picture object

   ;Return code constants
   RET_DO_CANCEL=0           ; Cancels dialog
   RET_DO_DEFAULT= -1        ; Continue with default processing for control
   RET_DO_NOT_EXIT= -2       ; Do not exit the dialog


   com_BeforeNavigate        = 1000    ; Fires before navigation occurs in the given object (on either a window or frameset element).
   com_BeforeNavigate2       = 1001    ; Fires before navigation occurs in the given object (on either a window or frameset element).
   com_ClientToHostWindow    = 1002    ; Fires to request that the client window size be converted to the host window size.
   com_CommandStateChange    = 1003    ; Fires when the enabled state of a command changes.
   com_DocumentComplete      = 1004    ; Fires when a document has been completely loaded and initialized.
   com_DownloadBegin         = 1005    ; Fires when a navigation operation is beginning.
   com_DownloadComplete      = 1006    ; Fires when a navigation operation finishes, is halted, or fails.
   com_FileDownload          = 1007    ; Fires to indicate that a file download is about to occur.
                                   ;     If a file download dialog is to be displayed, this event is fired prior to the display of the dialog.
   com_NavigateComplete      = 1008    ; Fires after a navigation to a link is completed on either a window or frameSet element.
   com_NavigateComplete2     = 1009    ; Fires after a navigation to a link is completed on either a window or frameSet element.
   com_NavigateError         = 1010    ; Fires when an error occurs during navigation.
   com_NewWindow             = 1011    ; Fires when a new window is to be created.
   com_NewWindow2            = 1012    ; Fires when a new window is to be created.
   com_NewWindow3            = 1013    ; Raised when a new window is to be created. Extends NewWindow2 with additional information about the new window.
   com_PrintTemplateInstantiation=1014 ; Fires when a print template has been instantiated.
   com_PrintTemplateTeardown =1015     ; Fires when a print template has been destroyed.
   com_PrivacyImpactedStateChange=1016 ; Fired when an event occurs that impacts privacy or when a user navigates away from a URL that has impacted privacy.
   com_ProgressChange        =1017     ; Fires when the progress of a download operation is updated on the object.
   com_SetSecureLockIcon     =1018     ; Fires when there is a change in encryption level.
   com_StatusTextChange      =1019     ; Fires when the status bar text of the object has changed.
   com_TitleChange           =1020     ; Fires when the title of a document in the object becomes available or changes.
   com_UpdatePageStatus      =1021     ; Not currently implemented.
   com_WindowClosing         =1022     ; Fires when the window of the object is about to be closed by script.
   com_WindowSetHeight       =1023     ; Fires when the object changes its height.
   com_WindowSetLeft         =1024     ; Fires when the object changes its left position.
   com_WindowSetResizable    =1025     ; Fires to indicate whether the host window should allow or disallow resizing of the object.
   com_WindowSetTop          =1026     ; Fires when the object changes its top position.
   com_WindowSetWidth        =1027     ; Fires when the object changes its width.

Return

;   DialogObject(JTB_Handle,browser_object,dobj_callback,"BeforeNavigate2",   com_BeforeNavigate2)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"StatusTextChange",  com_StatusTextChange)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"CommandStateChange",com_CommandStateChange)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"DocumentComplete",  com_DocumentComplete)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"DownloadBegin",     com_DownloadBegin)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"DownloadComplete",  com_DownloadComplete)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"FileDownload",      com_FileDownload)
;   DialogObject(JTB_Handle,browser_object,dobj_callback,"NavigateComplete2", com_NavigateComplete2)

Article ID:   W16940

File Created: 2007:07:03:14:27:08

Last Updated: 2007:07:03:14:27:08