Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.Items.Add("a") ListBox1.Items.Add("b") ListBox1.Items.Add("c") ListBox1.Items.Add("d") ListBox1.Items.Add("e") ListBox1.Items.Add("f") '多选 ListBox1.SelectionMode = SelectionMode.MultiSimple TextBox1.Text = "" End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Dim i As Integer TextBox1.Text = "" For i = 0 To ListBox1.Items.Count - 1 If ListBox1.GetSelected(i) Then TextBox1.Text = TextBox1.Text + ListBox1.Items(i) End If Next i End Sub End Class
http://community.csdn.net/expert/deeptree/RoomForum.asp?roomid=5205
ListBox1.Items.Add("a")
ListBox1.Items.Add("b")
ListBox1.Items.Add("c")
ListBox1.Items.Add("d")
ListBox1.Items.Add("e")
ListBox1.Items.Add("f")
'多选
ListBox1.SelectionMode = SelectionMode.MultiSimple
TextBox1.Text = "" End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim i As Integer
TextBox1.Text = ""
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.GetSelected(i) Then
TextBox1.Text = TextBox1.Text + ListBox1.Items(i)
End If
Next i
End Sub
End Class
另外再问一个
怎样让listbox大小跟主窗口大小一起变化?
是那个属性?