Status Box 1

[SeaRay]

How do I show a status box showing the % completed of a funtion?

 

[Jon4747]

Hi SeaRay,
I don't know of a control called StatusBox as oppose to a StatusBar which is a control that typically displays information about an object being viewed on the form, the object's components, or contextual information that relates to that object's operation.
Another control that you might be interested in is a ProgressBar (that thingy you see when downloading a file which graphically indicates the progress).Here's an example from msdn on using one.

Private Sub Command1_Click()
Dim Counter As Integer
Dim Workarea(250) As String
ProgressBar1.Min = LBound(Workarea)
ProgressBar1.Max = UBound(Workarea)
ProgressBar1.Visible = True

'Set the Progress's Value to Min.
ProgressBar1.Value = ProgressBar1.Min

'Loop through the array.
For Counter = LBound(Workarea) To UBound(Workarea)
'Set initial values for each item in the array.
Workarea(Counter) = "Initial value" & Counter
ProgressBar1.Value = Counter
Next Counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub

Private Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar1.Visible = False
Command1.Caption = "Initialize array"
End Sub

Jon

 

[SeaRay]

Yes, I meant progressbar. Thank You!