---

Hallo,

ich versuche verzweifelt ein Untermenü im Contextmenü zu erstellen. Ich meine das mit dem schwarzen Pfeil dahinter so wie bei "Auswahl" oder "Stücklistenstruktur". Bis jetzt habe ich es ohne große Schwierigkeiten geschafft einen Button in das Kontextmenü einzufügen, aber bei dem Untermenü komme ich einfach nicht weiter.

Ich hab's schon mit 'CommandControl.ChildControls' versucht, aber in der Hilfe steht, daß ChildControls nich beim Typ kButtonContol verfügbar sind. Wenn man sich aber von sämtlichen Controls (auch die mit dem schwarzen Pfeil) die Typen anschaut sind diese als kButtonContol definiert.

Daß es irgenwie trotzdem gehen muß ist deutlich, bloß wie?

Folgender Code liefert das Ergebnis darunter:

Code:

---

    'Iterate each controls in linear menu
    For Each ctrl As CommandControl In LinearMenu
        Debug.Print("Control: " + ctrl.DisplayName + " [" + ctrl.InternalName + "]  " + ctrl.ControlType.ToString)
    Next

ERGEBNIS:

Control:  &wiederholen [AppRepeatCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Kopieren [AppCopyCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Zeichnung öffnen [CMxOpenDrawingCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: &Löschen [AppDeleteCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Zu neuem Ordner hinzufü&gen [AppAddToFolderCtxCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Auswahl []  kButtonControl
Control: Isolieren [AssemblyIsolateCmd]  kButtonControl
Control: Isolieren rückgängig [AssemblyIsolateUndoCmd]  kButtonControl
Control: &Ersetzen [CMxSubstituteCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Darstellung... [AssemblyRepresentationsCmd]  kButtonControl
Control: Komponente []  kButtonControl
Control: ---- [----]  kButtonControl
Control: &Messen []  kButtonControl
Control: ---- [----]  kButtonControl
Control: Noti&z erstellen [NotebookCreateNoteCtxCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Stücklistenstruktur []  kButtonControl
Control: &Sichtbarkeit [AssemblyVisibilityCtxCmd]  kButtonControl
Control: Sichtbarkeit iMate-Zeic&hen [AssemblySetiMateVisibilityCtxCmd]  kButtonControl
Control: Fi&xiert [AssemblyGroundCtxCmd]  kButtonControl
Control: Ada&ptiv [AssemblyAdaptiveCtxCmd]  kButtonControl
Control: &Aktiviert [AssemblyToggleEnabledStateCtxCmd]  kButtonControl
Control: &Kontaktsatz [AssemblyContactSetCtxCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: Unterdrücken [AssemblyCompSuppressionCtxCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: &In Browser suchen [AppFindInBrowserCtxCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: &iProperties... [AssemblyPropertiesCmd]  kButtonControl
Control: ---- [----]  kButtonControl
Control: &Verfahren... [AppHowToCmd]  kButtonControl

---

Hoffentlich kann mir jemand helfen.

Gruß
Andi
 

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

---

Hallo

Normalerweise erstellt man eine funktionslose ButtonDefinition, die die Beschriftung für die erste Ebene erzeugt und sagen wir mal 2 ButtonDefinitions für die Befehle der zweiten Ebene. Das Ganze fügt man mit der AddSplitButton-Methode ins Kontextmenü ein.

Zitat:

---

CommandControls.AddSplitButton( DisplayedControl As ButtonDefinition, ButtonDefinitions As ObjectCollection, [UseLargeIcon] As Boolean, [ShowText] As Boolean, [TargetControlInternalName] As String, [InsertBeforeTargetControl] As Boolean ) As CommandControl

---

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

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

---

Hallo

leider komme ich mit AddSplitButton noch nicht ans Ziel. Auch mit allen anderen Buttontypen bekomme ich nur eine Fehlermeldung.

Hier sind Auszüge von meinem Code:

Code:

---

            m_copyCodiceButtonDef = m_inventorApplication.CommandManager.ControlDefinitions.AddButtonDefinition( _
                "Codice -> Clipbpard", _
                "CopyCodiceIntName", _
                CommandTypesEnum.kEditMaskCmdType, _
                m_ThisGuidString, _
                "Copy the codice to the clipboard", _
                "Copy the codice to the clipboard")

            AddHandler m_copyCodiceButtonDef.OnExecute, AddressOf CopyCodiceCommand

            m_checkSelectButtonDef = m_inventorApplication.CommandManager.ControlDefinitions.AddButtonDefinition( _
                "Check Selection", _
                "CheckSelectionIntName", _
                CommandTypesEnum.kEditMaskCmdType, _
                m_ThisGuidString, _
                "Provide info of the selection", _
                "Provide info of the selection")

            AddHandler m_checkSelectButtonDef.OnExecute, AddressOf CheckSelectionCommand

            m_splitButtonDef = m_inventorApplication.CommandManager.ControlDefinitions.AddButtonDefinition( _
                "SplitButton", _
                "SplitButtonIntName", _
                CommandTypesEnum.kEditMaskCmdType, _
                m_ThisGuidString, _
                String.Empty, _
                String.Empty)

Private Sub m_UserInputEvents_OnLinearMarkingMenu(ByVal SelectedEntities As Inventor.ObjectsEnumerator, _
                                                          ByVal SelectionDevice As Inventor.SelectionDeviceEnum, _
                                                          ByVal LinearMenu As Inventor.CommandControls, _
                                                          ByVal AdditionalInfo As Inventor.NameValueMap) _
                                                          Handles m_UserInputEvents.OnLinearMarkingMenu

        Dim selectedEntity As Object = SelectedEntities.Item(1)
        If TypeOf selectedEntity Is Inventor.ComponentOccurrence OrElse _
            TypeOf selectedEntity Is WeldmentComponentDefinition OrElse _
            TypeOf selectedEntity Is AssemblyComponentDefinition OrElse _
            TypeOf selectedEntity Is PartComponentDefinition Then

            Dim buttonDefinitions As ObjectCollection
            buttonDefinitions = m_inventorApplication.TransientObjects.CreateObjectCollection
            buttonDefinitions.Add(m_copyCodiceButtonDef)
            buttonDefinitions.Add(m_checkSelectButtonDef)

            LinearMenu.AddSplitButton(m_splitButtonDef, buttonDefinitions, False, True)

        End If

End Sub

---

 

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

---

Ich habe heute noch ein bißchen rumprobiert. Leider ohne Erfolg.

Ins Kontextmenü bekomme ich immer nur einen normalen Button mit CommandControls.AddButton(...)

Alle anderen möglichen Buttons wie SplitButton, Popup oder TogglePopup bekommen ich mit meinen Buttondefinitionen ohne Probleme in ein Ribbonpanel aber eben nicht ins Kontextmenü. Keine Ahnung was da nicht paßt.

Vielleicht fällt euch noch was ein, was ich probieren könnte. Im Netz kann ich auch leider keine brauchbaren mehr Informationen finden.

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