---

Hallo

Kann mir bitte einer erklären, wie ich das Event für den Abbrechen-Knopf der ProgressBar definiere? Für ApplicationEvents mache ich es so:

Code:

---

Private myInventorEvents As ApplicationEvents
myInventorEvents = myInventor.ApplicationEvents
AddHandler myInventorEvents.OnDocumentChange, AddressOf Me.InventorEvents_OnDocumentChange

---

Ich finde nur keine ProgressBarEvents.

------------------
MfG
RK

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach

So geht's:

Code:

---

Dim oProgressBar As Inventor.ProgressBar

Private Sub MyCommand() 
    oProgressBar = m_inventorApplication.CreateProgressBar( False , 50, "Test" , True )

    AddHandler  oProgressBar.OnCancel, AddressOf  oProgressBar_OnCancel
   
    Dim i As Long
    For i = 1 To 50
        System.Threading.Thread.Sleep(200)
        oProgressBar.UpdateProgress()
    Next
        oProgressBar.Close()

Private Sub oProgressBar_OnCancel()
    MsgBox( "Exit ProgressBar" )
    oProgressBar.Close()
End Sub

---

------------------
MfG
RK

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP