Resolved WinForms - Listbox list items paired values

[JamesBowen]

The native behaviour of a MS List box is to allow single list items.

I have found a solution on statckoverflow, but I unsure how to translate the C# into ABL.

Bind List<KeyValuePair> to combobox

I cannot create a class or my own object so I thought I would use a List<KeyValuePair> to store two properties and then bind this object to a combobox. However, I cannot see how I can set the

stackoverflow.com

C# - Cannot do Key-Value in a ListBox in WinForms

I'm writing a C# app using a ListBox in WinForms. I get my data (id and full name) from an XML file. I want to show full names in the listbox and when I select one of them, I want to get the rel...

stackoverflow.com

 

[BobyIsProgress]

Do going from VBA is more is o understand?

Code Converter C# to VB and VB to C# – Telerik

Telerik Code Converter by Progress is free online code converter from C# to VB and from VB to C#. No registration required. Check it out.

converter.telerik.com

 

[JamesBowen]

Do going from VBA is more is o understand?

Code Converter C# to VB and VB to C# – Telerik

Telerik Code Converter by Progress is free online code converter from C# to VB and from VB to C#. No registration required. Check it out.

converter.telerik.com

Thanks. That sort of helped. Shame there is no C#/VB.NET to ABL converter.
It was still a bit of a rosetta stone excise in converting VB.NET to ABL

 

[JamesBowen]

If anyone is interested here is my working code.

A snippet of the code see attached for a full example.

method private void InitializeComponent(  ):

...

        /*  */
        /* lbItems */
        /*  */
        this-object:lbItems:FormattingEnabled = true.
        this-object:lbItems:ItemHeight = 16.
        this-object:lbItems:Location = new System.Drawing.Point(195, 514).
        this-object:lbItems:Name = "lbItems".
        this-object:lbItems:SelectionMode = System.Windows.Forms.SelectionMode:MultiSimple.
        this-object:lbItems:Size = new System.Drawing.Size(108, 68).
        this-object:lbItems:TabIndex = 3.
        this-object:lbItems:SelectedIndexChanged:Subscribe(this-object:lbItems_SelectedIndexChanged).
        
...       
        
end method.

method private void populateSelectionList(  ):
        
        //define variable list as class "System.Collections.Generic.SortedDictionary<character, character>".
        define variable list as class "System.Collections.Generic.Dictionary<character, character>".
        
        //list = new "System.Collections.Generic.SortedDictionary<character, character>"().
        list = new "System.Collections.Generic.Dictionary<character, character>"().
        
        list:Add("ALL", "All").
        list:Add("item 3", "Item 3").
        list:Add("item 2", "Item 2").
        list:Add("item 1", "Item 1").
    
        lbItems:DataSource = new System.Windows.Forms.BindingSource(list, "") .
        lbItems:ValueMember = "Key".
        lbItems:DisplayMember = "Value".
        
        return.

    end method.

method private void GetSelectedItems(  ):
        
        define variable iLoop                as integer                                                         no-undo.
        define variable listBoxSelectedItems as class                                                           System.Windows.Forms.ListBox+SelectedObjectCollection.
        define variable selectedItem         as "System.Collections.Generic.KeyValuePair<character, character>" no-undo.
        
        listBoxSelectedItems = lbItems:SelectedItems.
        
        //message lbItems:SelectedItems:Count           view-as alert-box info.
        
        //selectedItem = new "System.Collections.Generic.KeyValuePair"( class1:Item[iLoop] ):
        
        do iLoop = 0 to lbItems:SelectedItems:Count - 1:
            
            selectedItem = cast( listBoxSelectedItems:Item[iLoop], "System.Collections.Generic.KeyValuePair<character, character>"  ).
            
            message
                selectedItem:key skip
                selectedItem:value
                view-as alert-box info.
                
        end.
        
        return.

    end method.

 

[BobyIsProgress]

Thank you, I can't wait to be able to do class