VB中HitTest方法的应用

 很久没有用过VB6了,最近有人问到一些问题,所以在这里回忆一下

HitTest方法, 在指定的屏幕坐标位置检索子对象。(这个解释是.net下说明,VB6下应该一样的,有什么问题的话朋友们可以回贴告诉我)

在VB6两个用的比较多的控件:ListView TreeView,如果我们通过鼠标移动来获取当前位置的内容,可以利用控件中HitTest方法来获取。下面例子是个显示鼠标位置提示信息,有兴趣的可以参考一下:

1.ListView

Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim li As ListItem
    Set li = ListView1.HitTest(x, y)
   
    If li Is Nothing Then
        ListView1.ToolTipText = ""
    Else
        ListView1.ToolTipText = li.Text
    End If

End Sub

 

2.TreeView

Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim ti As Node
    Set ti = TreeView1.HitTest(x, y)
    If ti Is Nothing Then
        TreeView1.ToolTipText = ""
    Else
        TreeView1.ToolTipText = ti.Text
    End If
End Sub

 

在这里要注意两个事件中定义的部分。另外.NET下此方法仍在使用,可以根据HitTest方法来实现一些需要的功能

 

 

 

你可能感兴趣的:(.net,ListView,Integer,vb,button)