关于vb listbox复选框事件

VB\u7684listbox\u91cc\u590d\u9009\u6846\u95ee\u9898\uff01\uff01

\u4f60\u60f3\u628a\u6587\u4ef6\u6539\u6210\u4ec0\u4e48\u5c5e\u6027\uff1f\u53ef\u4ee5\u7528SetFileAttributes\u5b9e\u73b0\u5c5e\u6027\u7684\u66f4\u6539\u3002\u8bf7\u4f60\u628a\u4f60\u5199\u597d\u7684\u4ee3\u7801\u53d1\u4e0a\u6765\uff0c\u770b\u60c5\u51b5\u6211\u53ef\u4ee5\u7ed9\u4f60\u4fee\u6539\u4fee\u6539\u3002

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then List1.RemoveItem (i)
Next
End Sub

改MultiSelect属性的值
在默认的情况下，在一个列表框中只能选择一项，这是因为MultiSelect属性为0。当MultiSelect属性为1或2时允许多项选择。
0-None：禁止多项选择
1-Simple：简单多项选择。鼠标单击或按空格键表示选定或取消选定一个选择项
2-Extended：扩展多项选择。按住Ctrl键，同时用鼠标单击或按空格键表示选定或取消选定一个选择项；按住Shift键同时单击鼠标，或者按住Shift键并且移动光标键，就可以从前一个选定的项扩展选择到当前选择项，即选定多个连续项

把ListBox的Style属性设为1

Private
Sub
List1_Click()
'单击
项目行时触发
（非复选框区)
End
Sub
Private
Sub
List1_ItemCheck(Item
As
Integer)
'单击
那个复选框区域时触发
End
Sub
另外
如果双击项目行
也会触发ItemCheck

private
sub
list1_click()
'单击
项目行时触发
（非复选框区)
end
sub
private
sub
list1_itemcheck(item
as
integer)
'单击
那个复选框区域时触发
end
sub
另外
如果双击项目行
也会触发itemcheck

车视网

关于vb listbox复选框事件