VB ListView 复选框问题!

Private Sub Command2_Click()

    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems.Item(i).Checked = False

    Next

End Sub

Private Sub Command1_Click()

    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems.Item(i).Checked = True

    Next

End Sub

Private Sub Form_Load()

    For i = 1 To 100

        ListView1.ListItems.Add , i & "h", i

        ListView1.ListItems.Item(i).Checked = False

        ListView1.Checkboxes = True

    Next

End Sub

comboBox

　在VB中，Combo Box(组合框)控件很简单，可以节省空间。从用户角度来看，这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。

利用函数 AddString（）向 Combo Box 控件添加Items

---