一．在名称为FORM1的窗体上画1个名称为Label1,标题为“列表框的使用”的标签。再画一个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”，“山西”，“辽宁”，“浙江”

Question

一．在名称为FORM1的窗体上画1个名称为Label1,标题为“列表框的使用”的标签。再画一个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”，“山西”，“辽宁”，“浙江”，“广东”，并且可以在列表中同时选择多个表项。

Answer 1

Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "山西"
List1.AddItem "辽宁"
List1.AddItem "浙江"
List1.AddItem "广东"
Label1 = "列表框的使用"

'属性栏里设置MultiSelect为2
End Sub
Private Sub List1_Click()
Dim tmp As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
tmp = tmp + List1.List(i) & vbCrLf
End If
Next
MsgBox tmp

End Sub