Подключите к проекту MS Windows Common Controls 6.0 (SP6) и бросьте на форму ListView1. В коде формы напишите:
Private Sub Form_Load()
With ListView1
.ColumnHeaders.Add , , "Header"
.ListItems.Add , , "aaa"
.ListItems.Add , , "bbb"
.ListItems.Add , , "ccc"
End With
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView1.Visible = False
End Sub
Запустите проект и щёлкните на любом из трёх элементов листвью: он и не подумает скрыться! Почему?!
PS: А в MouseUp (вместо ItemClick) всё работает, как надо.
Ответить
|