Llenado de combo manualmente

[jhonwilliams]

Si estas usando el framework 3.5, acabo de hacer este ejemplo en C# (basado en este link http://www.vbforums.com/showthread.p...ontrol-a-Timer

Creamos esta Clase

Código C#:

class ComboBoxItem
        {
            public string Text { get; set; }
            public object Value { get; set; }
        }
 

Y hacemos esto para carga el combo

Código C#:

List<ComboBoxItem> lista = new List<ComboBoxItem>();
                lista.Add(new ComboBoxItem { Text = "Masculino", Value = "M" });
                lista.Add(new ComboBoxItem { Text = "Femenino", Value = "F" });
 
                comboBox1.DataSource = lista;
                comboBox1.DisplayMember = "Text";
                comboBox1.ValueMember = "Value";
 

Ahora eso en tu funcion seria mas o menos asi: (OJO ESTOY MESCALDO LENGUAJES), es solo para ubicar mas o menos lo que debes hacer

Código vb:

'ACA LA PROPIEDAD LISTA, 
List<ComboBoxItem> lista = new List<ComboBoxItem>();
 
    Public Shared Function FillComboManual(ByRef cmb As ComponentFactory.Krypton.Toolkit.KryptonComboBox, ByVal valueField As String, ByVal TextField As String)
 
                lista.Add(new ComboBoxItem { Text = TextField , Value = valueField  });  
                cmb .DataSource = lista;
                cmb .DisplayMember = "Text";
                cmb .ValueMember = "Value";          
 
        End Function
 

El tener la propiedad lista fuera de la funcion garantiza que no se limpie cada que se llama a la funcion y permanescan los datos.

Si estas usando el framerwork 2, creo que es mucho mas facil, pero esta es solo una idea porque no tengo como probar la funcion en este momento, pero FUNCIONA!!!

Public Shared Function FillComboManual(ByRef cmb As ComponentFactory.Krypton.Toolkit.KryptonComboBox, ByVal valueField As String, ByVal TextField As String)

cmb .Items.Add(TextField ,valueField )


End Function
[/HIGHLIGHT]

Saludos