04.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 23 行

HitTest的妙用 
     ListView控件和TreeView控件都提供了HitTest方法。这个方法返回对位于x和 y 坐标的 ListItem 对象或 Node 对象的引用。通常与拖放操作或鼠标移动操作一 起使用，来确定鼠标下的目标项在当前位置是否可用。
    其语法为：
    object.HitTest (x As Single, y As Single)
下面的例子实现ListView不同的项具有不同的ToolTipText。
>>步骤1----建立新工程，加入部件“Microsoft common controls 6.0(sp3)”。
>>步骤2----在工程上放置ListView控件。
>>步骤3----编写如下代码：

Private Sub Form_Load()
    ListView1.ListItems.Add , , "程序编制：小马哥"
    ListView1.ListItems.Add , , "EMail:[e-mail]"
    ListView1.ListItems.Add , , "Http://MaJiFeng.Top263.net"
End Sub

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

>>步骤4----编译运行，看看是不是不同的项对应不同的提示。