---

Hallo
Ich bin daran eine Minitoolbar in VBA zu realieren, aber leider geht mein Button nicht!

Weis jemand wie man den "Button1" abfragen kann?

Modul:

Code:

---

Sub meine_minibar()

Dim uMiniToolbar As Minitoolbar
Set uMiniToolbar = ThisApplication.Commandmanager.CreateMiniToolbar
    uMiniToolbar.ShowOK = True
    uMiniToolbar.ShowApply = False
    uMiniToolbar.ShowCancel = True
   
Dim controls As MiniToolbarControls
Set controls = uMiniToolbar.controls
controls.Item("MTB_Options").Visible = False
   
Dim bStop As Boolean

   
   
    button1 = controls.AddButton("MiniToolbarTest_Button1", "Button1", "Info")
     
   
    ' Position
    Dim oPosition As Point2d
    Set oPosition = ThisApplication.TransientGeometry.CreatePoint2d(ThisApplication.ActiveView.Left, ThisApplication.ActiveView.Top)
    uMiniToolbar.Position = oPosition
    uMiniToolbar.Visible = True
     
Dim uMiniToolbarEvents As New Minibar
     
Call uMiniToolbarEvents.Init(uMiniToolbar)
       

End Sub

---

Klassenmodul insert NAME = Minibar

Code:

---

' ClassModule = Minibar
Private WithEvents oInteractionEvents As InteractionEvents
Private WithEvents oSelectEvents As SelectEvents
Private WithEvents m_MiniToolbar As Minitoolbar
Private WithEvents button1 As ButtonDefinition

Private bStop As Boolean
'Dim WithEvents button1 As MiniToolbarButton
'Private WithEvents button2 As MiniToolbarButton
Public Sub Init(meineMiniToolbar As Minitoolbar)
  Set m_MiniToolbar = meineMiniToolbar
 
  Set m_AppEvents = ThisApplication.ApplicationEvents

   
    bStop = False
   
    Do
    ThisApplication.UserInterfaceManager.DoEvents
    Loop Until bStop
   
End Sub
Private Sub m_MiniToolbar_OnCancel()
    bStop = True
        MsgBox ("Abbruch")
End Sub
Private Sub m_MiniToolbar_OnOK()
    bStop = True
      MsgBox ("ok")
End Sub
Private Sub button1_OnClick()

        MsgBox ("Button1")
    End Sub

---

Hoffentlich kann man das in VBA überhaupt lösen

Gruß
Berno

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

---

Hallo,

probier mal das hier:

Code:

---

Private Sub button1_OnClick(ByVal Context As Inventor.NameValueMap) Handles button1.Click
        MsgBox ("Button1")
End Sub

---

------------------
MFG

Chris

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

---

Hallo Chris

Ich schaue am Montag ob es geht, aber soweit ich weis geht in VBA

Code:

---

Handles button1.Click

---

nicht.

Danke für die Antwort!

Gruß
Berno

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

---

Hallo

Ich habe es gerade ausprobiert, es geht nicht!

Danke nochmals für die Antwort

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

---

Hi, schon mal mit

Code:

---

Private Sub button1.OnClick()

        MsgBox ("Button1")
    End Sub

---

probiert?
So steht es zumindest in der Hilfe von Inventor

------------------
MFG

Chris

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

---

Hi

Ja hab ich auch schon versucht,geht aber auch nicht, danke.

Gruß
Berno

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

---

Hallo

Ich behaupte mal, das button1 in deinem Klassenmodul nicht angesprochen werden kann. Kannst du mal das Hinzufügen deines button1 in die Sub Init deines Klassenmoduls verlagern?

Code:

---

Private WithEvents Button1 As MiniToolbarButton
  Set Button1 = m_MiniToolbar.controls.AddButton("MiniToolbarTest_Button1", "Button1", "Info")

---

Und in Sub meine_minibar mal button1 auskommentieren.

------------------
MfG
Ralf

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

---

Hallo Ralf

danke, ich habe den Button1 so wie du geschrieben hast in die Klasse verfrachtet, geht aber auch nicht!

Ich hab auch schon viele Sachen probiert

mit Set, ohne Set
Set Button1 = .....
    Button1 = .....

Private Sub button1_Onok()
Private Sub button1_OnClick()
Private Sub button1_OnClick1()
Private Sub button1_pressed()
Private Sub button1_Onpressed()

Auch schon probiert....

Private WithEvents button1 As MiniToolbarButton
+ : button1 :  : Variant/Object/MiniToolbarButtonObject

Private WithEvents button1 As Minitoolbar
+ : button1 :  : Variant/Object/MiniToolbarButtonObject

Ich habe den Button1 auch schon per VBA gedrückt er wird blau aber die Sub's funktionieren irgendwie nicht!

Code:

---

meineMiniToolbar.controls.Item("MiniToolbarTest_Button1").Pressed = True

---

Gruß
Berno

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

---

Schau Dir mal das Beispiel an:
http://modthemachine.typepad.com/my_weblog/2012/03/create-a-mini-toolbar.html

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

---

Hallo

Also die Sub:

Code:

---

Sub meine_minibar()

Dim uMiniToolbar As MiniToolbar
Set uMiniToolbar = ThisApplication.CommandManager.CreateMiniToolbar
    uMiniToolbar.ShowOK = True
    uMiniToolbar.ShowApply = False
    uMiniToolbar.ShowCancel = True
 
Dim controls As MiniToolbarControls
Set controls = uMiniToolbar.controls
controls.Item("MTB_Options").Visible = False
 
Dim bStop As Boolean
 
    ' Position
    Dim oPosition As Point2d
    Set oPosition = ThisApplication.TransientGeometry.CreatePoint2d(ThisApplication.ActiveView.Left, ThisApplication.ActiveView.Top)
    uMiniToolbar.Position = oPosition
    uMiniToolbar.Visible = True
   
Dim uMiniToolbarEvents As New Minibar
   
Call uMiniToolbarEvents.Init(uMiniToolbar)
     

End Sub

---

und das Klassenmodul:

Code:

---

'Option Explicit

' ClassModule = Minibar
Private WithEvents oInteractionEvents As InteractionEvents
Private WithEvents oSelectEvents As SelectEvents
Private WithEvents m_MiniToolbar As MiniToolbar
Private WithEvents Button1 As MiniToolbarButton

Private bStop As Boolean
'Dim WithEvents button1 As MiniToolbarButton
'Private WithEvents button2 As MiniToolbarButton
Public Sub Init(meineMiniToolbar As MiniToolbar)
  Set m_MiniToolbar = meineMiniToolbar

  Set m_AppEvents = ThisApplication.ApplicationEvents

  Set Button1 = m_MiniToolbar.controls.AddButton("MiniToolbarTest_Button1", "Button1", "Info")
 
    bStop = False
 
    Do
    ThisApplication.UserInterfaceManager.DoEvents
    Loop Until bStop
 
End Sub

Private Sub Button1_OnExecute(ByVal Context As NameValueMap)
    MsgBox ("Button1")
End Sub

Private Sub Class_Initialize()

End Sub

Private Sub m_MiniToolbar_OnCancel()
    bStop = True
        MsgBox ("Abbruch")
End Sub
Private Sub m_MiniToolbar_OnOK()
    bStop = True
      MsgBox ("ok")
End Sub
Private Sub Button1_OnClick()
    MsgBox ("Button1")
End Sub

---

Und das funktioniert nicht? 

------------------
MfG
Ralf

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

---

Hallo Ralf

Danke für die Hilfe!

Ich hab keinen blassen Schimmer warum das bei mir nicht funktioniert hatte, so funktioniert es auf jeden Fall.

Eigentlich hatte ich es genau so, komisch.

Auf jeden Fall jetzt geht es, ich bin glücklich :-)
Tausendmal Danke für deine Mühe!

Gruß
Berno

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