0

Visual Basicを初めて使用し、アイテムボックスの値をラベル表示に表示するのに苦労しています。何か案は？

http://i49.tinypic.com/n368ut.png

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
4

1 に答える 1

1

コードを MainForm.MouseClick イベントから lstNames.ItemSelected に移動してみます

デザイン ビューで lstNames コントロールをダブルクリックすると、デフォルトでこのイベントが作成されます。

于 2013-03-04T23:30:59.780 に答える