用哪个控件!?
我想做一个带复选框的列表,用哪个控件最好啊??谢谢。
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
MsgBox List1.List(i)
End If
Next
End Sub
Private Sub Form_Load()
'List1.Style = 1 '带CheckBox.只读属性,所以在设计里设置.
Dim i As Integer
For i = 1 To 10
List1.AddItem CStr(i)
Next
End Sub