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.

Scrolling Listbox In Dialog

 Keywords: Scroll Scrolling Log Window Rolling Multiline Multilinebox

Example 1: Scrolling Multilinebox using a predefined list

#DefineSubRoutine MyDialogProc(Status_Handle, Status_Message, controlnum, res1, res2)
   ; DialogProcOptions Constants
   MSG_INIT         = 0                                  ; The one-time initilization
   MSG_BUTTONPUSHED = 2                                  ; Pushbutton or Picturebutton
   MSG_TIMER        = 1                                  ; Timer call
   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

   Switch Status_Message
      Case MSG_INIT
         DialogProcOptions( Status_Handle,MSG_TIMER,500 )
         Return( -1 )

      Case MSG_TIMER
         DialogContents = DialogControlGet( Status_Handle, 2, 3 )
         newdata = ItemExtract(counter,logdata,@LF)
         If DialogContents =="" Then DialogContents = newdata
         Else DialogContents = StrCat( DialogContents, @CRLF, newdata )
         DialogControlSet( Status_Handle, 2, 3, DialogContents )
         counter = counter + 1
         If counter>maxlines
           DialogProcOptions( Status_Handle,MSG_TIMER,0 );Disable timer
           Return( RET_DO_DEFAULT )
          EndIf
         Return(RET_DO_NOT_EXIT )

      Case MSG_BUTTONPUSHED
         TimeDelay( .5 )
         Return( RET_DO_CANCEL )

   EndSwitch
   Return( 0 )

#EndSubRoutine

maxlines = 100
counter = 1

logData = ''
For item = 1 To maxlines
   If logdata == "" Then logData = 'line ': item : @LF
   Else logData = logData : 'line ': item : @LF
Next

MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Logging Data`
MyDialogX=2001
MyDialogY=2001
MyDialogWidth=284
MyDialogHeight=185
MyDialogNumControls=004
MyDialogProcedure=`MyDialogProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`079,165,120,012,PUSHBUTTON,DEFAULT,"Press to Stop",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`025,067,238,086,MULTILINEBOX,LogBox,DEFAULT,DEFAULT,4,8,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`025,053,044,010,STATICTEXT,DEFAULT,"Status",DEFAULT,5,DEFAULT,"Arial|5632|40|34","0|0|0",DEFAULT`
MyDialog004=`013,005,260,154,GROUPBOX,DEFAULT,DEFAULT,DEFAULT,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Exit

Example 2: Scrolling Multilinebox using ADO to data from a CSV file

#DefineSubRoutine MyDialogProc(Status_Handle, Status_Message, controlnum, res1, res2)
   ; DialogProcOptions Constants
   MSG_INIT         = 0                                  ; The one-time initilization
   MSG_BUTTONPUSHED = 2                                  ; Pushbutton or Picturebutton
   MSG_TIMER        = 1                                  ; Timer call
   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

   Switch Status_Message
      Case MSG_INIT
         DialogProcOptions( Status_Handle,MSG_TIMER,500 )
         Return( -1 )

      Case MSG_TIMER
         DialogContents = DialogControlGet( Status_Handle, 2, 3 )
         newdata = ItemExtract(counter,logdata,@CR)
         If DialogContents =="" Then DialogContents = newdata
         Else DialogContents = StrCat( DialogContents, @CRLF, newdata )
         DialogControlSet( Status_Handle, 2, 3, DialogContents )
         counter = counter + 1
         If counter>maxlines
           DialogProcOptions( Status_Handle,MSG_TIMER,0 );Disable timer
           Return( RET_DO_DEFAULT )
          EndIf
         Return(RET_DO_NOT_EXIT )

      Case MSG_BUTTONPUSHED
         TimeDelay( .5 )
         Return( RET_DO_CANCEL )

   EndSwitch
   Return( 0 )

#EndSubRoutine


counter = 1

adOpenStatic = 3
adLockOptimistic = 3
adCmdText = 1

objConnection = CreateObject("ADODB.Connection")
objRecordSet = CreateObject("ADODB.Recordset")

strPathtoTextFile = DirScript()
textfile = DirScript():"sample.csv"

objConnection.Open(StrCat('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=', strPathtoTextFile,';Extended Properties="text;HDR=YES;FMT=CSVDelimited"'))  ;''
objRecordset.Open(StrCat("SELECT * FROM ",textfile), objConnection, adOpenStatic, adLockOptimistic, adCmdText)

logdata = objRecordset.GetString()
maxlines = ItemCount( logdata, @CR )-1

objRecordset.Close()
objRecordset = 0
objConnection.Close()
objConnection = 0


MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Logging Data`
MyDialogX=2001
MyDialogY=2001
MyDialogWidth=300
MyDialogHeight=185
MyDialogNumControls=004
MyDialogProcedure=`MyDialogProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`079,165,120,012,PUSHBUTTON,DEFAULT,"Press to Stop",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`015,067,270,086,MULTILINEBOX,LogBox,DEFAULT,DEFAULT,4,8,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`015,053,044,010,STATICTEXT,DEFAULT,"Status",DEFAULT,5,DEFAULT,"Arial|5632|40|34","0|0|0",DEFAULT`
MyDialog004=`013,005,275,154,GROUPBOX,DEFAULT,DEFAULT,DEFAULT,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Exit

CustID,LastName,FirstName,Address,City,State,Zip
1000,Flintstone,Fred,1230 Stone Road,BedRock,AZ,85000
1001,Rubble,Barney,4560 Pebble Street,BedRock,AZ,85000
1002,Flintstone,Wilma,1230 Stone Road,BedRock,AZ,85000
1003,Rubble,Betty,4560 Pebble Street,BedRock,AZ,85000
1004,Ball,Lucille,55 Love Lane,TelevisionCity,CA,90201
1005,Arnez,Desi,55 Love Lane,TelevisionCity,CA,90201
1006,Boop,Betty,1930 Boop-Boop-A-Doop Loop,Hollywood,CA,90068
1007,Dean,James,1960 Desire Street,Hollywood,CA,90068
1008,Monroe,Marilyn,1962 Norma Jean Ave.,Hollywood,CA,90068
1009,Marley,Bob,333 Reggae Road,St. Ann's Parish,Jamaica,10101

Article ID:   W16426

File Created: 2012:04:18:14:43:44

Last Updated: 2012:04:18:14:43:44