vb.net - 需要帮助显示 Itembox 值

Question

我是 Visual Basic 的新手，我很难将 itembox 值显示到我的标签显示中。有任何想法吗？

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'fill the list box with values
    lstNames.Items.Add("Smith, Joe")
    lstNames.Items.Add("Jones, Mary")
    lstNames.Items.Add("Adkari, Joel")
    lstNames.Items.Add("Lin, Sue")
    lstNames.Items.Add("Li, Vicky")
    lstNames.SelectedIndex = 0
End Sub

Private Sub MainForm_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    Select Case (lstNames.SelectedIndex)
        Case 0
            lblDisplay.Text = "3388"
        Case 1
            lblDisplay.Text = "3356"
        Case 2
            lblDisplay.Text = "2487"
        Case 3
            lblDisplay.Text = "1111"
        Case 4
            lblDisplay.Text = "2222"
    End Select
End Sub

Answer 1

我会尝试将您的代码从 MainForm.MouseClick 事件移动到 lstNames.ItemSelected

默认情况下，双击设计视图中的 lstNames 控件应该会为您创建此事件。