Передать фокус TextBox

[Source]

Надо передать фокус TextBox при клике на Item ListView. Всё бы ничего, но вот почему 2 раза вызывается ListView1_ItemClick?

[Lumen]

А зачем передавать фокус текстбоксу в событии MouseUp, если можно (и наскока я понял из условия задачи нужно) его передавать и в событии Click?

[Source]

а ты попробуй и увидишь что получится

[EUGY]

Похоже срабатывает внутренний таймер в listview, в этом можно убедиться через spy+. И похоже он нужен для того, чтоб начать редактирвание ячейки после mouseup даже если .LabelEdit = lvwManual.
Попробуй исправить так:

Код: Выделить всё

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Debug.Print "ListView1_MouseUp"
   Text1.SetFocus
   ListView1.StartLabelEdit
End Sub


[Source]

а почему ты ставишь ListView1.StartLabelEdit после передачи фокуса? Если добавить ещё Items, повторный вызов ListView1_ItemClick прекращается, т.е. повторный вызов существует при одном Item. Интересно, почему?

[EUGY]

1. А в чем разница?
2. Эффект тот-же при любом кол-ве items, если курсор мыши над item