topic Re: ComboBox in Ribbon Panel with vb.net in Inventor Programming Forum

ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Wed, 27 Jun 2018 11:51:51 GMT

Hi, iam trying to implement a ComboBox into a user defined additional Inventor Ribbon Panel. The ComboBox is shown in the panel with its entries. But iam not able to catch the selected entry when it is clicked.

I implemented the Combobox in the AddinServer Class with

Public WithEvents comboBox1 As ComboBoxDefinition
......
'Definition ComboBox
comboBox1 = AddinGlobal.InventorApp.CommandManager.ControlDefinitions.AddComboBoxDefinition(
                        My.Resources.Browsernamen_wiederherstellen,
                        My.Resources.BrowserNameUpdate,
                        CommandTypesEnum.kQueryOnlyCmdType,
                        400, Guid.NewGuid().ToString(),
                        "Browsernanmen wiederherstellen", "Stellt den ursprünglichen Display Namen der zugehörigen Datei wieder her",
                        ButtonDisplayEnum.kDisplayTextInLearningMode)

                    comboBox1.AddItem(My.Resources.Alle_Browsernamen_wiederherste)
                    comboBox1.AddItem(My.Resources.selektierte_Browsernamen_wiede)
                    comboBox1.AddItem("ComboBoxItem #3")
                    comboBox1.DescriptionText = My.Resources.Browsernamen_wieder_herstellen
                    comboBox1.ListIndex = 2
.........
 'Add it to the Browser Panel
 'Buttons in Ribbon Panel Browser hinzufügen (Tab "Browser")
                            AddinGlobal.RibbonPanel3DCSBrowserId = "{D2554A9F-2EEB-477B-A469-D40FBE606866}" 'MLHIDE
                            AddinGlobal.RibbonPanel3DCSBrowser = tabBrowser.RibbonPanels.Add(My.Resources.Browser_Panel, "GeneralTools_3DCS_AddIn.RibbonPanel_" & Guid.NewGuid().ToString(), AddinGlobal.RibbonPanel3DCSBrowserId, String.Empty, True) 'MLHIDE
                            Dim cmdCtrlsBrowser As CommandControls = AddinGlobal.RibbonPanel3DCSBrowser.CommandControls
                            cmdCtrlsBrowser.AddComboBox(comboBox1)

When i try to sent the OnSelect Event from AddIn class to my class ButtonActions i couldn't catch the NameValueMap

AddHandler comboBox1.OnSelect, AddressOf ButtonActions.ComboBox1_Execute3

With Buttons it works fine but there is no NameValueMap, for example:

buttonPart5.Execute = AddressOf ButtonActions.buttonPart5_Execute

Did anyone has an idea in which way i have to handle the OnSelect event and receiving the selected Index of the ComboBox from the NameValueMap?

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 12:41:01 GMT

Private Sub ComboBox1_OnSelect(Context As NameValueMap) Handles ComboBox1.OnSelect
            MsgBox(Context.Text)
        End Sub
    End Class

Add this to your code and remove the handler...

Re: ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Wed, 27 Jun 2018 13:27:04 GMT

Thanks at @bradeneuropeArthur

i tried it, but the Context is empty.

MsgBox(Context.Text)

fires an exception because there is Nothing.

Is the AddinServer the correct place monitoring the event object?

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 13:27:31 GMT

you wrote Msgbox ("event handler")

For me the code worked fine I have tested...

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 13:30:31 GMT

this is needed

Private Sub ComboBox1_OnSelect(Context As NameValueMap) Handles ComboBox1.OnSelect
            MsgBox(Context.Text)
        End Sub
    End Class

Re: ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Wed, 27 Jun 2018 13:38:59 GMT

This is the Result here using Context.Text:

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 13:41:57 GMT

What inventor version are you using?

what framework do you use?

What references are missing?

the code works fine by my add ins!!!

Re: ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Wed, 27 Jun 2018 13:48:34 GMT

Inventor 2018

Visual Studio Community 2017

I think references are fine, all other stuff works

I will try it in another test project and with VS 2015

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 13:50:44 GMT

VS 2017 is not supported.

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 13:55:40 GMT

I use VS 2015, because of issues with VS 2017.

Re: ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Wed, 27 Jun 2018 15:27:25 GMT

same with VS2015. There has to be another reason.

Re: ComboBox in Ribbon Panel with vb.net

bradeneuropeArthur — Wed, 27 Jun 2018 16:45:57 GMT

Try to Use a different framework....

Re: ComboBox in Ribbon Panel with vb.net

Martin-Winkler-Consulting — Thu, 28 Jun 2018 10:58:02 GMT

@bradeneuropeArthur

thanks for your help and your solution. It was a good inspiration.

I made a workarround and could get this version which works properly in my AddinServer Class

First i declared comboBox1 as Public with Events

Public Class FreeTools_3DCS
    Implements Inventor.ApplicationAddInServer
    Public WithEvents comboBox1 As ComboBoxDefinition
.........

then defined it and AddHandler to a Sub ComboBox1_OnSelect() in the same Addin Server Class

'Combo Box Definitions
                comboBox1 = AddinGlobal.InventorApp.CommandManager.ControlDefinitions.AddComboBoxDefinition(
                        "Value1", "Value2", CommandTypesEnum.kQueryOnlyCmdType,
                        400, Guid.NewGuid().ToString(),
                        "Browsernanmen wiederherstellen", "Stellt den ursprünglichen Display Namen der zugehörigen Datei wieder her",
                        ButtonDisplayEnum.kDisplayTextInLearningMode)

                comboBox1.AddItem("Value1")
                comboBox1.AddItem("Value2")
                comboBox1.AddItem("ComboBoxItem #3")
                comboBox1.DescriptionText = "Test ComboBox"
                comboBox1.ListIndex = 1
                AddHandler comboBox1.OnSelect, AddressOf ComboBox1_OnSelect

then got it in this Sub

Private Sub ComboBox1_OnSelect()
 MsgBox(comboBox1.Text & " - " & comboBox1.ListIndex.ToString)
End Sub

and here is the result: