求个vb CreateWindow 复选listbox
方便动态创建UI。其次VB自带的复选listbox在XP样式下有个BUG


点击超过 ListCount 时 最后一项 会被勾选或者去掉勾选，且不激发 ItemCheck

点击超过 ListCount 时 ListIndex 勾选会被去掉，且不激发 ItemCheck

允许多选的情况下，一般都是在 list1_Click 事件里，遍类所有的选项，判断是否选中。
一般不使用 ItemCheck 事件。

它把ListIndex 那项也点了。没有启用XP样式都是正常的

我在WIN7下面，没这个BUG。所以不知道问题出在哪。估计是控件自身的问题。。。。。

加XP风格了吗，不加没这个BUG的，事件里放个msgbox

Private Sub Form_Load()
    For i = 0 To 10
        List1.AddItem i
    Next
End Sub

Private Sub List1_Click()
    MsgBox "List1_Click", , List1.ListIndex
End Sub

Private Sub List1_ItemCheck(Item As Integer)
    MsgBox "List1_ItemCheck"
End Sub

[此贴子已经被作者于2021-5-6 13:05编辑过]