Combox + Item key

[FireFenix]

Возможно глупая тема...... но у меня возник вопрос - возможно ли в комбобоксе использовать элементы с параметрами имя и ключ, как в listview? т.е. чтобы получилось как у <select> в html, при выборе элемента по текстовому значению, можно было получить его значение + индекс

как вариант - привязать массив и юзать вместе с комбиком...... но хотелось бы использовать только комбик

[amokr]

Возможно глупая тема...... но у меня возник вопрос - возможно ли в комбобоксе использовать элементы с параметрами имя и ключ, как в listview? т.е. чтобы получилось как у <select> в html, при выборе элемента по текстовому значению, можно было получить его значение + индекс

как вариант - привязать массив и юзать вместе с комбиком...... но хотелось бы использовать только комбик

имхо только массив+комбобокс... практически уверен что комбобокс не может принимать двумерные данные, ни явно ни скрыто...

Кстати а в чем проблема с массивом? код то вообще элементарный:

Код: Выделить всё

        Dim ElementName As String
        Dim ElementIndex As Integer
        ElementName = ComboBox1.SelectedItem
        ElementIndex = AccompanyArray(ComboBox1.SelectedIndex)


[Ronin]

Я, например делаю так:

Код: Выделить всё

    ''' <summary>
    ''' Обобщенная структура для занесения в простые листы, комбобоксы
    ''' </summary>
    ''' <remarks></remarks>
    Public Structure ListItemObject
        Public _ID As Long
        Public _Text As String

        Public Property ID() As Long
            Get
                Return _ID
            End Get
            Set(ByVal value As Long)
                _ID = value
            End Set
        End Property

        Public Property Text() As String
            Get
                Return _Text
            End Get
            Set(ByVal value As String)
                _Text = value
            End Set
        End Property

        Public Sub New(ByVal ID As Long, ByVal Text As String)
            _ID = ID
            _Text = Text
        End Sub

        Public Overrides Function ToString() As String
            Return _Text
        End Function
    End Structure


Можешь модифицировать и использовать под свои нужды.

В коде используется примерно так:

Код: Выделить всё

        DT = _OrderDBProv.GetOrderTypes

        tscbOrderType.Items.Clear()

        For Each Row As DataRow In DT.Rows
            tscbOrderType.Items.Add(New ListItemObject(NormalizeToLong(Row(0)), NormalizeToString(Row(1))))
        Next

и

Код: Выделить всё

MsgBox("ID выбранной записи: " & CStr(CType(tscbProblemState.SelectedItem, ListItemObject).ID))

[amokr]

[quote="Ronin"]Я, например делаю так:

Код: Выделить всё

    ''' <summary>
    ''' Обобщенная структура для занесения в простые листы, комбобоксы
    ''' </summary>
    ''' <remarks></remarks>
    Public Structure ListItemObject
        Public _ID As Long
        Public _Text As String

        Public Property ID() As Long
            Get
                Return _ID
            End Get
            Set(ByVal value As Long)
                _ID = value
            End Set
        End Property

        Public Property Text() As String
            Get
                Return _Text
            End Get
            Set(ByVal value As String)
                _Text = value
            End Set
        End Property
    End Structure


А смысл прописывать properties, если переменные объявлены public?:) очепятка?:)

[FireFenix]

Угу, спасибо....
Но работая через массив, нада много кода для динамики работы с элементами =\, а если комбиков больше одного, то вообще сплошные макароны ;D

[Ronin]

А смысл прописывать properties, если переменные объявлены public?:) очепятка?:)

Спс, поправил =) Невнимательный рефакторинг =)

[Emzari]

Если у тебя комбобокс заполняется данными из таблици в базе данных то можно вот так:

Допустим у нас имеется DataTable c именем DataTable1 а в нем два столбца ID и FullName тогда данные из таблицы можно привязать к ComboBox таким образом:

Код: Выделить всё

'привязка к комбобоксу
ComboBox1.DataSource = DataTable1
ComboBox1.DisplayMember = "ID"
ComboBox1.ValueMember = "FullName "

'получение данных из комбобокса
Dim id as Long
id = ComboBox1.SelectedValue


[ndemidov]

Как насчёт хранения "имя и ключ" в св-ве .Tag, разделяя их символом ControlChars.NullChar