Как добавить новому Item ComboBox - Tag? - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Из за структуры формы я могу добавить только КомбоБокс для выбора человека (ФИО - нет проверки на уникальность). Можно ли как то добавить итем - ФИО и тег, его ID в этот итем?
Я думал над идеей добавлять теги типа в конце каждого итема, для обработки, но думаю есть способ и красивее

Решение задачи: «Как добавить новому Item ComboBox - Tag?»

textual
Листинг программы
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim persons As New List(Of Person)
        persons.Add(New Person("Иванов", 1))
        persons.Add(New Person("Петров", 2))
 
        ComboBox1.DataSource = persons
        ComboBox1.DisplayMember = "FIO"
        ComboBox1.ValueMember = "ID"
    End Sub
 
    Private Sub ComboBox1_SelectedvalueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        Me.Text = CType(ComboBox1.SelectedItem, Person).ID
    End Sub
End Class
 
Public Class Person
    Public Property FIO As String
    Public Property ID As Integer
 
    Public Sub New(ByVal fam As String, ByVal num As Integer)
        FIO = fam
        ID = num
    End Sub
End Class

Оцени полезность:

9   голосов , оценка 4 из 5