Is it better to show ProgressBar UserForms in VBA as modal or modeless?

Question

Is it better to show ProgressBar UserForms in VBA as modal or modeless? What are the best practices for developing progress indicators in VBA?

Modeless UserForms req

Answer 1

I think that the initial topic is worth of replying since the question was formulated so nicely that google finds it first.

Section 1 - Theory

The first thing to say is that to transfer the variables between the modules is not difficult at all.

The only thing you need to do is to create a separate module and put there all the global variables. Then you will be able to read them everywhere in all forms, sheets, modules.

The second thing is the window should be a MODELESS. Why that? The answer is to keep the mobility of the code, i.e.

1. the function where the most routine process is executed is not to be located in the UserForm module
2. you can call the window with progress bar from everywhere and
3. the only connection between the routine function/procedure are the global variables

This is a great advantage to be versatile here.

Section 2 - Practice

1) Create a module "Declaration" with the global variables:

Public StopForce As Integer 'this variable will be used as an indicator that the user pressed the cancel button

Public PCTDone As Single ' this is the % of the work that was done already

Public CurrentFile As String ' any other parameter that we want to transfer to the form.

2) Create the form with the button. In OnClick event of the button there should be a code where we refer to the global variable StopForce in Declaration module

 Private Sub CommandButton1_Click()

 Declaration.StopForce = 1
  End Sub

3) Add one procedure where you update the progress bar

Sub UpdateProgressBar(PCTDone_in As Single)
With UserForm1
    ' Update the Caption property of the Frame control.
    .FrameProgress.Caption = Format(PCTDone_in, "0%")
    ' Widen the Label control.
    .LabelProgress.Width = PCTDone_in * _
        (.FrameProgress.Width)
    ' Display the current file from global variable   
    .Label1.Caption = Declaration.CurrentFile
End With
End Sub

4) in any other module we must have the functions or the procedure/sub where the routine is done:

 For i=1 to All_Files

 Declaration.CurrentFile = myFiles (i)

 FormFnc.UpdateProgressBar (i / .Range("C11").Value)


 DoEvents

 If Declaration.StopForce = 1 Then
    GoTo 3
 End If

 Next i