Show Progress Dialog Snippet

/// <summary>
/// Launch a Progress Dialog to display how long it is taking to complete some event.
/// </summary>
/// <param name="application">An IApplication interface.</param>
/// <param name="int32_Minimum">A System.Int32 that is the starting point for the progress display. Example: 0</param>
/// <param name="int32_Maximum">A System.Int32 that is the ending point for a progress display. Example: 10000</param>
/// <param name="string_Message">A System.String that is the message you want to user to see. Example: "Parsing Data, Please Wait.</param>
/// <remarks>
/// Calling this sub/method by itself is only half of the programming effort. Inside of the For loop you do something
/// that requires time to progress.
/// </remarks>
public void ShowProgressDialog(ESRI.ArcGIS.Framework.IApplication application, System.Int32 int32_Minimum, System.Int32 int32_Maximum, System.String string_Message)
{

    // Create a CancelTracker
    ESRI.ArcGIS.esriSystem.ITrackCancel trackCancel=new ESRI.ArcGIS.Display.CancelTrackerClass();

    ESRI.ArcGIS.Framework.IProgressDialogFactory progressDialogFactory=new ESRI.ArcGIS.Framework.ProgressDialogFactoryClass();

    // Set the properties of the Step Progressor
    System.Int32 int32_hWnd=application.hWnd;
    ESRI.ArcGIS.esriSystem.IStepProgressor stepProgressor=progressDialogFactory.Create(trackCancel, int32_hWnd);
    stepProgressor.MinRange=int32_Minimum;
    stepProgressor.MaxRange=int32_Maximum;
    stepProgressor.StepValue=1;
    stepProgressor.Message=string_Message;

    // Create the ProgressDialog. This automatically displays the dialog
    ESRI.ArcGIS.Framework.IProgressDialog2 progressDialog2=(ESRI.ArcGIS.Framework.IProgressDialog2)stepProgressor; // Explict Cast

    // Set the properties of the ProgressDialog
    progressDialog2.CancelEnabled=true;
    progressDialog2.Description="Counting to " + int32_Maximum.ToString() + ".";
    progressDialog2.Title="Counting...";
    progressDialog2.Animation=ESRI.ArcGIS.Framework.esriProgressAnimationTypes.esriDownloadFile;

    // Step. Do your big process here.
    System.Boolean boolean_Continue=false;
    boolean_Continue=true;
    System.Int32 i=0;
    for (i=int32_Minimum; i <= int32_Maximum; i++)
    {
        ESRI.ArcGIS.esriSystem.IStatusBar statusBar=application.StatusBar;
        statusBar.set_Message(0, i.ToString());

        //TODO:
        //Ideally you would call another sub/function/method from here to do the
        //work. For example read all files of a specified types on disk, loop
        //through a recordset, etc.
        //...


        //Check if the cancel button was pressed. If so, stop process
        boolean_Continue=trackCancel.Continue();
        if (!boolean_Continue)
        {
            break;
        }

    }

    // Done
    trackCancel=null;
    stepProgressor=null;
    progressDialog2.HideDialog();
    progressDialog2=null;

}

''' <summary>
''' Launch a Progress Dialog to display how long it is taking to complete some event.
''' </summary>
''' <param name="application">An IApplication interface.</param>
''' <param name="int32_Minimum">A System.Int32 that is the starting point for the progress display. Example: 0</param>
''' <param name="int32_Maximum">A System.Int32 that is the ending point for a progress display. Example: 10000</param>
''' <param name="string_Message">A System.String that is the message you want to user to see. Example: "Parsing Data, Please Wait.</param>
''' <remarks>
''' Calling this sub/method by itself is only half of the programming effort. Inside of the For loop you do something
''' that requires time to progress.
''' </remarks>
Public Sub ShowProgressDialog(ByVal application As ESRI.ArcGIS.Framework.IApplication, ByVal int32_Minimum As System.Int32, ByVal int32_Maximum As System.Int32, ByVal string_Message As System.String)

  ' Create a CancelTracker
  Dim trackCancel As ESRI.ArcGIS.esriSystem.ITrackCancel=New ESRI.ArcGIS.Display.CancelTrackerClass

  Dim progressDialogFactory As ESRI.ArcGIS.Framework.IProgressDialogFactory=New ESRI.ArcGIS.Framework.ProgressDialogFactoryClass

  ' Set the properties of the Step Progressor
  Dim int32_hWnd As System.Int32=application.hWnd
  Dim stepProgressor As ESRI.ArcGIS.esriSystem.IStepProgressor=progressDialogFactory.Create(trackCancel, int32_hWnd)
  stepProgressor.MinRange=int32_Minimum
  stepProgressor.MaxRange=int32_Maximum
  stepProgressor.StepValue=1
  stepProgressor.Message=string_Message

  ' Create the ProgressDialog. This automatically displays the dialog
  Dim progressDialog2 As ESRI.ArcGIS.Framework.IProgressDialog2=CType(stepProgressor, ESRI.ArcGIS.Framework.IProgressDialog2) ' Explict Cast

  ' Set the properties of the ProgressDialog
  progressDialog2.CancelEnabled=True
  progressDialog2.Description="Counting to " + int32_Maximum.ToString + "."
  progressDialog2.Title="Counting..."
  progressDialog2.Animation=ESRI.ArcGIS.Framework.esriProgressAnimationTypes.esriDownloadFile

  ' Step. Do your big process here.
  Dim boolean_Continue As System.Boolean
  boolean_Continue=True
  Dim i As System.Int32
  For i=int32_Minimum To int32_Maximum

      Dim statusBar As ESRI.ArcGIS.esriSystem.IStatusBar=application.StatusBar
      statusBar.Message(0)=i.ToString

    'TODO:
    'Ideally you would call another sub/function/method from here to do the
    'work. For example read all files of a specified types on disk, loop
    'through a recordset, etc.
    '...


    'Check if the cancel button was pressed. If so, stop process
    boolean_Continue=trackCancel.Continue
    If Not boolean_Continue Then
      Exit For
    End If

  Next i

  ' Done
  trackCancel=Nothing
  stepProgressor=Nothing
  progressDialog2.HideDialog()
  progressDialog2=Nothing

End Sub