• Creator
    Topic
  • #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

  • Author
    Replies
  • #6638
    Support 1a
    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

    #6639
    Anonymous

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

    #6640
    Support 1a
    Participant

    Glad to be of assistance!

    Advansys Support

Viewing 3 replies - 1 through 3 (of 3 total)
  • You must be logged in to reply to this topic.