|
|
点击CommandButton1按钮自动将复选框按钮添加到列表框中.
Dim mycheckbox As Control
Private Sub CommandButton1_Click()
Set mycheckbox = ListBox1.Control.Add("forms.checkbox.1", "mycheckbox", True)
End Sub
列表框的 ListStyle 属性设置为“1 - fmListStyleOption”，MultiSelect 为“1 - fmMultiSelectMulti”
运行了说编译错误,求高手帮小弟看看是那里写错还是还有什么设置？谢谢了! |
|
置顶卡
