说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

HitTest的妙用 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
HitTest的妙用 -VB资料
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:Schunte@sina.com"
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----编译运行,看看是不是不同的项对应不同的提示。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘