回复 2楼 风吹过b
它把ListIndex 那项也点了。没有启用XP样式都是正常的
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编辑过]