StatusDlg

Creator

Topic
June 4, 2003 at 2:39 pm #3933
Anonymous
I am trying to display a status dialog with a progress bar for a lengthy operation; will you please provide a generalized example of how to use the StatusDlg object.
Thank you,
Steve Stewart
Creator

Topic

Author

Replies

June 4, 2003 at 5:13 pm #6638

Participant

Here is some sample code. You will need to past this into your Sub Main() subroutine:

dim iStatusDlg
  
  set iStatusDlg = Utilities.NewStatusDialog  
    
  iStatusDlg.title = "Initializing...[Please wait]"
  iStatusDlg.ProgressRange = 3
 
  ' Show the cancel button. 
  iStatusDlg.CanCancel = TRUE
  
  iStatusDlg.show
  
  
  ' Main text
  iStatusDlg.MainText = "Main text goes here"
  
  ' Status text and the progress position
  iStatusDlg.StatusText = 1  
  iStatusDlg.ProgressPosition = 1
  msgbox "Status Position: " & 1
    
  iStatusDlg.StatusText = 2     
  iStatusDlg.ProgressPosition = 2
  msgbox "Status Position: " & 2
  
  iStatusDlg.StatusText = 3  
  iStatusDlg.ProgressPosition = 3
  msgbox "Status Position: " & 3
 
  
  ' if the status cancel button pressed
  if iStatusDlg.Cancel then
    msgbox "Cancel button pressed."
  end if
          
  set iStatusDlg = nothing

I hope this helps.

Advansys Support

June 5, 2003 at 2:58 pm #6639

Anonymous

Yes, if helped greatly. Now displaying status dialog. Thanks again.
Steve

June 5, 2003 at 4:32 pm #6640