Hide Table of Contents

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



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Start, Update, and Stop User Progress Indicator Example (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2013 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.