Duda con VB.net y ComboBox

[xanubisx]

Buenas, hace poco comencé a programar en vb.net (antes lo hacia con VB6)

Y mi duda es la sig:

Como no encontré en un combobox la propiedad ItemData, buscando encontré este código:

Código:

    Public Class ValueDescriptionPair

        Private m_Value As Object
        Private m_Description As String

        Public ReadOnly Property Value() As Object
            Get
                Return m_Value
            End Get
        End Property

        Public ReadOnly Property Description() As String
            Get
                Return m_Description
            End Get
        End Property

        Public Sub New(ByVal NewValue As Object, ByVal NewDescription As String)
            m_Value = NewValue
            m_Description = NewDescription
        End Sub

        Public Overrides Function ToString() As String
            Return m_Description
        End Function

    End Class

   Private DD_Array As New ArrayList


        DD_Array.Add(New ValueDescriptionPair("5", "Descripcion"))

        With cmb1
            .DisplayMember = "Description"
            .ValueMember = "Value"
            .DataSource = DD_Array
        End With

Lo cual funciona de 10!

El problema es que cuando cambio los valores del array, no puedo hacer que el combobox me los actualice también :S

Alguna idea?

Gracias !

[erick_arcini]

Tendrías que darle in Items.Clear para formatear tu control y posteriormente volver a agregar tu array al combobox.

[xanubisx]

lo intente, pero me da error.

dice que al estar usando un DataSource, no se puede usar esa propiedad.

[erick_arcini]

Fácil, coloca la propiedad datasource en null y aplicas un items.clear(), aunque no entiendo por que no te actualiza, haber, entonces coloca el código que estas utilizando.

[xanubisx]

Iniciado por erick_arcini

Fácil, coloca la propiedad datasource en null y aplicas un items.clear(), aunque no entiendo por que no te actualiza, haber, entonces coloca el código que estas utilizando.

Muchisimas gracias !
funciono !!

Ahora tengo otra dudita :D
se puede hacer que al ir escribiendo en el combobox vallan apareciendo las opciones que tiene?

Gracias!

[nephilim2612]

El combo box tiene dos propiedades que se ocupan de eso, AutocompleteMode y AutocompleteSource :)

[xanubisx]

Mil Gracias :D

Tema solucionado

[zeroyevi]

alguien save como sacar los valores desde el Combobox.SelectedItem(..)


la clase contiene el valor

valor texto = Combobox.text
valor indice = Combobox.SelectedValue.ToString

en eso estoy OK
sin embargo si quiero sacar el valor no del texto "Combobox.text "si no del item "clase" puedo colocar otro valor distinto , por ejemplo poder contener un tercer valor , se los digo porque modifique la clase y la veo tiene los 3 valores pero no puedo selecionarla


Public Class Cl_CboValuesTres
Private m_Value As Object
Private m_Description As String
Private m_DescriptionTres As String

Public ReadOnly Property Value() As Object
Get
Return m_Value
End Get
End Property

Public ReadOnly Property Description() As String
Get
Return m_Description
End Get
End Property
Public ReadOnly Property DescriptionTres() As String
Get
Return m_DescriptionTres
End Get
End Property

Public Sub New(ByVal NewValue As Object, ByVal NewDescription As String, ByVal NewDescriptionTres As String)
m_Value = NewValue
m_Description = Trim(NewDescription)
m_DescriptionTres = Trim(NewDescriptionTres)
End Sub

Public Overrides Function ToString() As String
Return m_Description
Return m_DescriptionTres
End Function



End Class

[email protected]

[xanubisx]

@zeroyevi
no, lo que intentas ya no se puede hacer.

lo que si:
La propiedad value esta definida como Object osea que puedes guardar cualquier cosa dentro (como un array, que puede tener el valor1 valor2 valor3)

despues recuperas el array y tienes tus 3 valores!

Código:

Dim Value AsNew ArrayList
Value.Add("VALOR1")
Value.Add("VALOR2")
Value.Add("VALOR3")
 
Dim DD_Array AsNew ArrayList
DD_Array.Add(New ValueDescriptionPair(Value, "Descripcion"))
 
With ComboBox1
.DisplayMember = "Description"
.ValueMember = "Value"
.DataSource = DD_Array
EndWith

ComboBox1.SelectedValue(0) 'devuelve VALOR1
ComboBox1.SelectedValue(1) 'devuelve VALOR2
ComboBox1.SelectedValue(2) 'devuelve VALOR3
 

Saludos