Am Montag, den 26.05.2014, 09:52 -0500 schrieb Daniel Quintero: > I use this code (Obviously, without creating a custom combo): > > ' aIDs is an array of Integers, and you can assing that array to a Variant > variable, > ' as is the case of the Tag property of the combobox. > > Public Sub LoadCombo() > Dim aIDs As New Integer[] > Dim sQuery As New String > > cboSample.Clear > > ' Load Data > hResult = $hConn.Exec("select ID, desc from MyTable") > For Each hResult > cboSample.Add(hResult!desc) > aIDs.Add(hResult!ID) > Next > cboSample.Tag = aIDs > > End > > Public Sub cboSample_Change() > If cboSample.Index > -1 Then > Message("ID associated with '" & cboSample.Text & "': " & > cboSample.Tag[cboSample.Index]) > Endif > End > > Regards > > *_________________________* > *Lic. Daniel Quintero Rojas* > > *¡Saludos desde México!________* > > > > On Sun, May 25, 2014 at 2:12 PM, Karl Reinl <karl.re...@fen-net.de> wrote: > > > Salut, > > > > I need an extended Combobox, > > no sorry I would like to have an extended Combobox, > > where I can add elements like > > .Add(Item AS String[,key AS Variant]), > > does anybody made that yet, and want to share ? > > > > -- > > Amicalement > > Charlie > >
Salut Daniel, thanks for that code, I knew it because in a similar case you gave it to the list -- Amicalement Charlie ------------------------------------------------------------------------------ The best possible search technologies are now affordable for all companies. Download your FREE open source Enterprise Search Engine today! Our experts will assist you in its installation for $59/mo, no commitment. Test it for FREE on our Cloud platform anytime! http://pubads.g.doubleclick.net/gampad/clk?id=145328191&iu=/4140/ostg.clktrk _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user