需要显示Itembox值的帮助

对于visual basic和im，我有一个难以将itembox值显示到我的标签显示的新品。有任何想法吗？需要显示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

来源

2013-03-04 Steven Thach

问题是什么？ – 2013-03-04 23:19:39

你的意思是处理Form.MouseClick事件，或者是一个Button.Click事件？正如您现在所使用的，当我单击窗体上的任何位置时，此代码适用于我（更改标签文本）。 – djv 2013-03-04 23:29:02

我想尝试从MainForm.MouseClick事件移动你的代码lstNames.ItemSelected

在lstNames双击控制在设计视图应该为你创造这个事件默认。

来源

2013-03-04 23:30:59

+1好抓，大概是这个问题 – Steve 2013-03-04 23:35:00

需要显示Itembox值的帮助

回答

相关问题