سؤال في listbox

قم بفتح مشروع جديد وأضف TextBox و ListBox ثم أضف هذا الكود

Public Class Form1

    Private Structure ItemData
        Public Text As String
        Public Value As Object

        Public Sub New(ByVal text As String, ByVal value As Object)
            Me.Text = text
            Me.Value = value
        End Sub

        Public Overrides Function ToString() As String
            Return Me.Text
        End Function
    End Structure

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListBox1.Items.Add(New ItemData("One", 1))
        Me.ListBox1.Items.Add(New ItemData("Two", 2))
        Me.ListBox1.Items.Add(New ItemData("Three", 3))
        Me.ListBox1.Items.Add(New ItemData("Four", 4))
        Me.ListBox1.Items.Add(New ItemData("Five", 5))
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex > -1 Then
            TextBox1.Text = CType(ListBox1.SelectedItem, ItemData).Value.ToString
        End If
    End Sub
End Class

اخي الكريم بارك الله فيك

الإجابة كانت رائعة