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


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

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

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

加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编辑过]