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
- 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.
Advancing Through a Series of Dialogs
Keywords: control dialog next back button
This is an example of using a "State Machine" for controlling a series of dialogs that have back/next buttons for advancing through a series of dialogs, and allowing the user to backtrack when required.
;Cancel handling
IntControl(72,2,0,0,0)
;State machine Example
State=1
MaxState=5
while State <= MaxState
Statex=strcat(state,"/",MaxState)
switch State
case 1
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`State Machine`
MyDialogX=002
MyDialogY=031
MyDialogWidth=196
MyDialogHeight=092
MyDialogNumControls=003
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`079,066,033,011,PUSHBUTTON,DEFAULT,"Next >>",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`121,066,033,011,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
;;;;MyDialog003=`039,066,033,011,PUSHBUTTON,DEFAULT,"<< Back",2,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`057,015,046,032,VARYTEXT,StateX,"1/5",DEFAULT,4,DEFAULT,"Microsoft Sans Serif|16384|40|34","0|0|0",DEFAULT`
ButtonPushed=Dialog("MyDialog")
if ButtonPushed==1 then State=State+1
if ButtonPushed==2 then Message("Debug","State 1 cannot go back. Should not have a back button")
break
case 2
case 3
case 4
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`State Machine`
MyDialogX=002
MyDialogY=031
MyDialogWidth=196
MyDialogHeight=092
MyDialogNumControls=004
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`079,066,033,011,PUSHBUTTON,DEFAULT,"Next >>",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`121,066,033,011,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`039,066,033,011,PUSHBUTTON,DEFAULT,"<< Back",2,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`057,015,046,032,VARYTEXT,StateX,"1/5",DEFAULT,4,DEFAULT,"Microsoft Sans Serif|16384|40|34","0|0|0",DEFAULT`
ButtonPushed=Dialog("MyDialog")
if ButtonPushed==1 then State=State+1
if ButtonPushed==2 then State=State-1
break
case 5
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`State Machine`
MyDialogX=002
MyDialogY=031
MyDialogWidth=196
MyDialogHeight=092
MyDialogNumControls=004
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`079,066,033,011,PUSHBUTTON,DEFAULT,"Finished",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`121,066,033,011,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`039,066,033,011,PUSHBUTTON,DEFAULT,"<< Back",2,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`057,015,046,032,VARYTEXT,StateX,"1/5",DEFAULT,4,DEFAULT,"Microsoft Sans Serif|16384|40|34","0|0|0",DEFAULT`
ButtonPushed=Dialog("MyDialog")
if ButtonPushed==1 then State=State+1
if ButtonPushed==2 then State=State-1
break
case state
Message("Debug","Error: Unhandled state")
state=999999
break
endswitch
endwhile
Message("All","Done")
exit
;************
;More cancel handline
:CANCEL
cancelxxx=Pause("CANCEL?","If you really want to cancel, press cancel again. To go back and continue, press OK")
IntControl(72,2,0,0,0)
return
Article ID: W16417
File Created: 2005:02:18:12:20:28
Last Updated: 2005:02:18:12:20:28