Start, Update, and Stop User Progress Bar Example (VBA)
This example shows how to create, start, update, and stop a progress
indicator.
A dialog box is displayed. Click the buttons to start, update, and stop
the progress indicator, which is shown on the SolidWorks status bar.
Forms - UserForm1
______________________________________________________________________________
Dim swApp As SldWorks.SldWorks
Dim pb As SldWorks.UserProgressBar
Dim pb1 As SldWorks.UserProgressBar
Dim Position As Integer
Dim retVal As Boolean
______________________________________________________________________________
Private Sub cmdExit_Click()
Unload
Me
End Sub
______________________________________________________________________________
Private Sub cmdPBTitile_Click()
pb.UpdateTitle (TextBox1.Text)
End Sub
______________________________________________________________________________
Private Sub cmdStartPB_Click()
Dim
boolstatus As Boolean
boolstatus
= pb.Start(0, 160, "Analysis")
Position
= 0
End Sub
______________________________________________________________________________
Private Sub cmdStopPB_Click()
pb.End
End Sub
______________________________________________________________________________
Private Sub cmdUpdatePB_Click()
Position
= Position + 10
If
(Position = 160) Then Position = 0
pb.UpdateProgress (Position)
End Sub
______________________________________________________________________________
Private Sub UserForm_Initialize()
Set
swApp = Application.SldWorks
retVal
= swApp.GetUserProgressBar(pb)
End Sub
______________________________________________________________________________
Private Sub cmdUpdatePB_Click()
Dim
lRet As Long
Position
= Position + 10
If
(Position = 160) Then Position = 0
lRet
= pb.UpdateProgress (Position)
If
lRet <> 2 Then
Debug.Print
" Result " & bRet
Else
MsgBox
" User Press Esc Key", vbInformation, "API Msg"
pb.End
End
End
If
End Sub
______________________________________________________________________________
Back to top
Modules
Sub main()
UserForm1.Show vbModeless
End Sub
Back to top