Crear un combobox manualmente

[locojars]

HOla de nuevo,

Bueno "pensando" un poco y con unos ejemplos que me mostraron hoy, pues decidi resolverlo de la siguiente manera:

1- Cree un datatable para almacenar los valores que necesito(el ejemplo es con otro combobox)

Código:

        Dim tabla As DataTable
        tabla = New DataTable("Operadores")
        Dim row1, row2, row3, row4 As DataRow

Dim valor As DataColumn = New DataColumn("Valor")
            valor.DataType = System.Type.GetType("System.String")
            Dim vineta As DataColumn = New DataColumn("Vineta")
            vineta.DataType = System.Type.GetType("System.String")
            tabla.Columns.Add(valor)
            tabla.Columns.Add(vineta)

            row1 = tabla.NewRow()
            row1.Item("Valor") = "LIKE"
            row1.Item("Vineta") = "Como"
            tabla.Rows.Add(row1)
            row2 = tabla.NewRow()
            row2.Item("Valor") = "="
            row2.Item("Vineta") = "Igual"
            tabla.Rows.Add(row2)
            row3 = tabla.NewRow()
            row3.Item("Valor") = ">"
            row3.Item("Vineta") = "Mayor que"
            tabla.Rows.Add(row3)
            row4 = tabla.NewRow()
            row4.Item("Valor") = "<"
            row4.Item("Vineta") = "Menor que"
            tabla.Rows.Add(row4)

2- Con el data table creado ya puedo utilizar utilizarla como si fuese una tabla de una BD, y utilizar la otra rutina que ya tengo para llenar combobox desde un datatable

Código:

            Dim ds As New DataSet
            ds = New DataSet
            ds.Tables.Add(tabla)
            cboperadores.DataSource = ds.Tables(0)
            cboperadores.DisplayMember = "Vineta"
            cboperadores.ValueMember = "Valor"

Listo.. ya tengo mi combobox creado y funcionando como yo necesitaba.

Saludos,

Jars