Database Search

TechHome

	COMCONTROL
	Samples

• !!A How to Treatise on Dynamic Dialogs
• Add a Status Bar on your Dialog
• Adding CRLF to a Tooltip Message
• Ampersand in Button
• Arrays in Dialogs
• AutoComplete in WinBatch Editboxes
• Autotimeout Example
• Ballon Tool Tips on Dialogs
• Balloon Tool Tips on Dialogs II
• Balloon Tool Tips on Dialogs III
• Bitmap Resizing in Dialog
• Button Dialog With No Default Focus
• Cancel Handler Issues within Dialogs
• Center dialog for any screen resolution
• Change Font in Dialog Controls
• Change Title of Dialog in Call Back Procedure
• Checking Char By Char Input in Dialogs
• Close Dialog Box upon completion of installation
• COMCONTROL Licenses Explained
• De-Activating Dialog Windows
• Dealing with Alt-F4 in Dialog
• Determine Control That Mouse is Hovering Over
• Dialog - Both Single and Multiple Selection Listboxes
• Dialog - Floating Toolbar
• Dialog - ProgressBar example
• Dialog Coordinates
• Dialog Editor 6 and UDS Callbacks
• Dialog Events For Unsupported Controls
• Dialog Significance of Config Parameter
• Dialog Units Explained
• Dialog with No Title bar
• Dialog with two list boxes and buttons to move items
• Dialogs - Adding ToolTips to Controls
• Dialogs - Menus in dialogs
• Disable Entry into DropListBox
• Disable Using ESC Key to Close Dialogs
• Display Dialog Along with RunWait
• Dynamic Dialogs - Creating Controls On The Fly
• Dynamic dialogs and BoxOpen Issue
• Dynamic Dialogs
• EditBox Cursor Placement
• Editbox with Filelistbox
• Error 3220 Dialog Format Version Not Supported
• Event Handling Questions
• File Browser within Dialog
• Get Value of RadioButton in Dialog Callback Procedure
• Hide or Unhide a PICTUREBUTTON
• High CPU Usage and Dialogs
• How to get an Editbox to Appear based on Selection
• How to Use the Spinner Control
• Inherited Check Mark
• IniWrite is Slow in Dialog Callback Procedure
• Japanese Dialog
• Leading 0 in a Spinner Control
• Make WIL Dialog Modal
• Maximized Dialog Hides Taskbar
• More UDFs to Make a Progress Bar Control
• MultiLineBox Limits
• Multiple Dialog Boxes
• Negative numbers in Dialog
• Non rectangular dialogs
• Non Responsive Dialog
• Position Dialog
• Pre-Selected Itembox
• Radio Button Disable Not Working
• Radiobuttons and Tabs
• Remove Border From ItemBox Control
• Right Justify Static or Variable Text
• Setting Spinner Control
• Simple Timer Procedure Example
• Smooth - Rounded Dialog Edges
• Splash Screen - Several Examples
• Start with Focus on Edit with No Selected Text
• Synchronize Two Itemboxes
• Tab Order and GroupBox Controls
• Toolbar UDFs for Drop Down Menus
• Treeview UDFs
• Unable to Load Background Image in Dialog
• Update Font Style in Dialog
• Using a Dialog as a Please Wait Screen
• WaitForKey Inside a Dialog Callback
• WebBrowser Control HTML Dialog
• WebBrowser Inside Dialogs by Guido
• Where are the Bitmaps for Pushbuttons
• Word Wrap

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

Dialog - ProgressBar example.wbt

Keywords:   Dialog - ProgressBar example.wbt

#DefineSubroutine DialogUDF(Handle,DialogMessage,DialogControlID,param4,param5)
   switch (DialogMessage)
      case 0
         DialogProcOptions(Handle,2,1)
      break;

      case 2
      Switch (DialogControlID)
         Case 1
            pbar = ""
            DialogControlSet(Handle,4,4,PBAR)
            fPbar = 1
            Display( 2, "Progressbar", "Performing 100 iterations." )
            For x = 1 to 100 by 1
               TimeDelay(.025)
               switch fPbar
                  case 1
                     pbar = StrCat(pbar, "Ý")
                     fPbar = 2
                     break
               
                  case 2
                     pbar = StrReplace(pbar, "Ý", "Û")
                     fPbar = 1
                     break
               endswitch
               DialogControlSet(Handle,4,4,PBAR)
            Next
            Display( 2, "Progressbar", "Finished!" )
            Break

         Case 2
            Exit
            Break

      EndSwitch
      break;

   endswitch
   return -2
#EndSubroutine

IntControl (62, 0, 0, 0, 0)
MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Progressbar`
MyDialogX=-1
MyDialogY=-1
MyDialogWidth=192
MyDialogHeight=054
MyDialogNumControls=004
MyDialogProcedure=`DialogUDF`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`

MyDialog001=`021,029,036,012,PUSHBUTTON,DEFAULT,"RUN",1,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`121,029,036,012,PUSHBUTTON,DEFAULT,"EXIT",2,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`005,009,024,012,STATICTEXT,DEFAULT,"Progress:",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`031,011,154,010,VARYTEXT,MyVariable1,"",DEFAULT,4,DEFAULT,"Terminal|4096|40|65329","0|0|128",DEFAULT`

ButtonPushed=Dialog("MyDialog")

Article ID:   W15459

File Created: 2003:05:13:11:28:04

Last Updated: 2003:05:13:11:28:04