Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples
- Bing Maps
- Countdown Timer - Dialog
- Date and Time Picker Sample
- Detect Right Click on Control in WIL Dialog
- Determine Dialogs Window State
- Determine When a Control Gets Focus
- Display Contents of a Text File
- Display Row of Data From Excel
- File Browse Alternative
- Get handle to WIL Dialog Control
- Hotspot Dialog Demo
- IP Address Dialog Sample
- Job Control Panel
- Menu Sample
- Microsoft InkEdit COMCONTROL
- Mouseover Static Control
- Move Item in ITEMBOX Using Buttons
- MSHTML Button Click
- Open Dialog Relative to Another Window
- Photo Player COMCONTROL
- Photo Viewer COMCONTROL
- Poor Mans Grid
- ReportView Control Sub Item Edit
- Resizable AskItemList Box
- Resize Controls
- Resize Dialog and Controls Dynamically- Global Variables
- Resize Dialog and Controls Dynamically
- RichTextbox COMCONTROL Sample
- Select All REPORTVIEW Checkboxes with Duplicate Values
- Select All Rows In ReportView
- Select Checkboxes of All Duplicates
- Selected Text in a MULTILINEBOX
- Temporarily Hide WIL Dialog
- Track Bar Sample
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
IP Address Dialog Sample
Keywords: IP Address Dialog Dot . Octet Focus Tab Editbox
;============================================================
;
; IP Address Dialog Sample
;
; NOTE: This code allows the user to type a dot '.' to
; move between each octet in an IP Address.
;
; This code assumes the edit boxes have incremental id names
; EditBox_1, EditBox_2, EditBox_3, EditBox_4
;
; Deana.Falk.2009.08.14
; written using WinBatch 2009B
;============================================================
#DefineSubRoutine InitDialogConstants()
;DialogprocOptions Constants
MSG_INIT=0 ; The one-time initialization
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 DialogProcOptions 1002
MSG_FILEBOXDOUBLECLICK=12 ; Get double-click message on a FileListBox
MSG_ITEMBOXDOUBLECLICK=13 ; Get double-click message on an ItemBox
MSG_COMEVENT=14 ; COMCONTROL Event notification from DialogObject (NOT DialogProcOptions)
DPO_DISABLESTATE=1000 ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
DPO_CHANGEBACKGROUND=1001 ; -1=Get Current 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 ; Set/Get Dialog Title - (-1 to get)
;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
DCSTATE_MOVEMOUSEOVER=6 ; Move the mouse over the control
DCSTYLE_DEFAULT=0 ; Set Default Style
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 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_NOADJUST=256 ; Turns off auto-height adjustment ITEMBOX FILELISTBOX
DCSTYLE_TEXTCENTER=512 ; Center text in control VARYTEXT STATICTEXT
DCSTYLE_TEXTRIGHT=1024 ; Flush-Right text in control VARYTEXT STATICTEXT
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_RADIOVALUE=16 ; RADIOBUTTON
;DialogObject constants
DLGOBJECT_ADDEVENT=1 ; Call dialog callback when the specified event occurs
DLGOBJECT_STOPEVENT=2 ; Stop calling dialog callback when an event previously requested with
DLGOBJECT_GETOBJECT=3 ; Return an object references to the specified control
DLGOBJECT_GETPICTURE=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
Return
#EndSubRoutine
;============================================================
#DefineFunction MyDialogCallbackProc(MyDialog_Handle,MyDialog_Message,MyDialog_Name,MyDialog_EventInfo,rsvd)
InitDialogConstants() ; Initialize Dialog Constants
ON_EQUAL = @TRUE ; Initialize variable ON_EQUAL
Switch MyDialog_Message ; Switch based on Dialog Message type
Case MSG_INIT ; Standard Initialization message
; DialogProcOptions(MyDialog_Handle,MSG_TIMER,1000)
DialogProcOptions(MyDialog_Handle,MSG_BUTTONPUSHED,@TRUE)
DialogProcOptions(MyDialog_Handle,MSG_EDITBOX,@TRUE)
Return(RET_DO_DEFAULT)
Case MSG_BUTTONPUSHED
Switch ON_EQUAL
Case MyDialog_Name == "PushButton_OK" ; ID "PushButton_OK" PushButton_OK
Return(RET_DO_DEFAULT)
Case MyDialog_Name == "PushButton_Cancel" ; ID "PushButton_Cancel" PushButton_Cancel
Return(RET_DO_DEFAULT)
EndSwitch ; MyDialog_Name
Return(RET_DO_DEFAULT)
Case MSG_EDITBOX
;--------------------------------------
; Check if user typed a dot '.'
;
; NOTE: This code assumes the edit boxes have incremental id names
; EditBox_1, EditBox_2, EditBox_3, EditBox_4
;--------------------------------------
userstr = DialogControlGet( MyDialog_Handle, MyDialog_Name, DC_EDITBOX )
If StrIndex( userstr, '.', 1, @FWDSCAN )
;--------------------------------------
; Change focus
;--------------------------------------
; Get Control Number
controlnum = DialogProcOptions( MyDialog_Handle, 1005, MyDialog_Name )
;only change focus if control is with the range (not last Editbox)
If controlnum >=3 && controlnum <=5
;Remove dot from current editbox
userstr = StrReplace( userstr, '.', '' )
DialogControlSet( MyDialog_Handle, MyDialog_Name, DC_EDITBOX, userstr )
;Validate octet
If userstr < 0 || userstr > 255 || !IsNumber(userstr)
Pause('Notice', 'Invalid Octet try again')
Return(RET_DO_NOT_EXIT)
EndIf
;Change Focus to next editbox
rootname = ItemExtract( 1, MyDialog_Name, '_' )
number = ItemExtract( 2, MyDialog_Name, '_' )
DialogControlState( MyDialog_Handle, rootname : "_" : number+1, DCSTATE_SETFOCUS, "")
Else ;last editbox
;Remove dot from current editbox
userstr = StrReplace( userstr, '.', '' )
DialogControlSet( MyDialog_Handle, MyDialog_Name, DC_EDITBOX, userstr )
;Validate octet
If userstr < 0 || userstr > 255 || !IsNumber(userstr)
Pause('Notice', 'Invalid Octet try again')
Return(RET_DO_NOT_EXIT)
EndIf
EndIf
EndIf
Return(RET_DO_NOT_EXIT)
EndSwitch ; MyDialog_Message
Return(RET_DO_DEFAULT)
#EndFunction ; End of Dialog Callback MyDialogCallbackProc
MyDialogFormat=`WWWDLGED,6.2`
MyDialogCaption=`IP Address`
MyDialogX=191
MyDialogY=042
MyDialogWidth=302
MyDialogHeight=151
MyDialogNumControls=007
MyDialogProcedure=`MyDialogCallbackProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`095,089,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`139,089,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`055,063,036,012,EDITBOX,"EditBox_1",ebVariable1,DEFAULT,DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`095,063,036,012,EDITBOX,"EditBox_2",ebVariable2,DEFAULT,DEFAULT,40,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`135,063,036,012,EDITBOX,"EditBox_3",ebVariable3,DEFAULT,DEFAULT,50,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog006=`175,063,036,012,EDITBOX,"EditBox_4",ebVariable4,DEFAULT,DEFAULT,60,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog007=`037,041,220,012,STATICTEXT,"StaticText_1",DEFAULT,"Enter the dotted quad ippaddress. Each time you type '.' it will change focus to next edit box",DEFAULT,70,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog")
Pause("IP Address =", ebVariable1:'.':ebVariable2:'.':ebVariable3:'.':ebVariable4)
Article ID: W17747
Filename: IP Address Dialog Sample.txt
File Created: 2009:08:14:10:32:14
Last Updated: 2009:08:14:10:32:14