Visual Basic 6. Руководство разработчика


Использование метода - часть 4


ScaleY(Y, vbPixels, vbTwips))

If LItem Is Nothing Then Exit Sub

If ListViewl.View = Ivwicon Or ListViewl.View = IvwSmalllcon Then

LItem.Selected = True

msg = LItem.Text & vbCrLf

For i = 1 To LItem.ListSubItems.Count

msg = msg & "   " & LItem.ListSubItems(i).Text & vbCrLf

Next

MsgBox msg

End If

End Sub

Приведенный пример — не единственный способ использования метода HitTest (и даже не самый типичный). Впрочем, этот пример нетривиален, именно поэтому он столь подробно рассматривался. Этот метод был разработан в основном для обработки события DragDrop. Обработчик события DragDrop сообщает координаты точки, в которую помещен объект. Если объект операции перенести-и-оставить (drag-and-drop) находится в окнах элементов управления типа ListView или TreeView, то требуется знать элемент управления, на который был перемещен объект Ниже приведено объявление обработчика события DragDrop.

Private Sub TreeViewl _ DragDrop(Source As Control, x As Single,_

у As Single)

Поскольку координаты точки, в которую перенесен объект, известны, их можно передать в метод HitTest. чтобы выяснить, на какой из элементов управления был перенесен объект. Заметьте: при этом не требуется преобразовывать или пересчи­тывать значения координат, поскольку обработчик события DragDrop возвращает их значения, выраженные во внутренней системе координат (в твипах).




Начало  Назад  Вперед