---

Guten Morgen,

ich versuche in Inventor einen Button zu erstellen. Diesen in einen Ribbon einzufügen klappt super. Ich brauche den aber in der Quickstartleiste. Ralf hat das schonmal hinbekommen, aber leider den Quellcode nicht mitgepostet.

http://forum.cad.de/foren/ubb/Forum465/HTML/000356.shtml

Vielleicht hat ja jemand einen Beispielcode für mich, wie ich auf die Quickstartleiste zugreifen kann.

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

Chris

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

---

Hallo

hier ist ein Beispiel

Code:

---

' Get the assembly ribbon.
Dim assemblyRibbon As Inventor.Ribbon = InventorApplication.UserInterfaceManager.Ribbons.Item("Assembly")

' Add the buttons to the QAT. (assembly environment)
assemblyRibbon.QuickAccessControls.AddButton(...)

---

Gruß
Andi

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

---

Hallo Andi,

ich denke das dürfte mir schon deutlich weiter helfen.

Ist der Button denn dann bloß während einer geöffneten Baugruppe zu sehen?

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

Chris

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

---

Ja genau, der Button ist nur in der Baugruppenumgebung vorhanden.
Bei Bauteilen und Zeichnungen muß du ihn separat in die entsprechende Ribbonumgebung einfügen.

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

---

Ah ok, danke dir, das hilft mir weiter.

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

Chris

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

---

OK, jetzt habe ich meinen Button in der Leiste, aber ich kriege es ums Verrecken nicht hin, dass der mir das Bild drauf anzeigt. Langsam verzweifle ich. Habe schon alle möglichen Sachen probiert und auch die Sachen hier aus dem Forum versucht, aber irgendwie geht es nicht...

Code:

---

        Public Sub Activate(ByVal addInSiteObject As Inventor.ApplicationAddInSite, ByVal firstTime As Boolean) Implements Inventor.ApplicationAddInServer.Activate
            Dim m_ClientID As String
            Dim controlDefs As ControlDefinitions
            Dim Buttonimage As System.Drawing.Icon = My.Resources.Sweet_angel
            Dim largePicture As System.Drawing.Icon = My.Resources._64_41
            Dim oForm As New InsertBoltForm

            ' Liest die ClassID aus und übergibt sie an die Variable 
            m_ClientID = AddInGuid(GetType(StandardAddInServer))

            ' This method is called by Inventor when it loads the AddIn.
            ' The AddInSiteObject provides access to the Inventor Application object.
            ' The FirstTime flag indicates if the AddIn is loaded for the first time.

            ' Initialize AddIn members.
            m_inventorApplication = addInSiteObject.Application
            m_Project = m_inventorApplication.ApplicationEvents

            controlDefs = m_inventorApplication.CommandManager.ControlDefinitions

            ' Erzeugt die Button-Definition.

            m_ButtonDef = controlDefs.AddButtonDefinition("Startform", "UIRibbonSampleOne", CommandTypesEnum.kQueryOnlyCmdType, m_ClientID, "Ruft die Startform auf", "Hilfe", Buttonimage, , )

...

---

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

Chris

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

---

Private WithEvents oButtonDefinition As ButtonDefinition

Dim smallIcon As IPictureDisp = PictureDispConverter.ToIPictureDisp(My.Resources.Bild_16_16)
Dim olargeIcon As IPictureDisp = PictureDispConverter.ToIPictureDisp(My.Resources.Bild_32_32)

oButtonDefinition = oControldefinitions.AddButtonDefinition("Test123", "Name", CommandTypesEnum.kQueryOnlyCmdType, m_ClientID, "Test123", "Name", smallIcon, olargeIcon)

'Quick Access Tool Bar (QAT)
Dim ribbon1 As Ribbon = oUiManager.Ribbons.Item("Assembly")
ribbon1.QuickAccessControls.AddButton(oButtonDefinition)

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

---

Hallo Georg,

danke, das hat jetzt funktioniert.

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

Chris

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