预览模式: 普通 | 列表

VB右键选定listview控件中的某一行

作者:admin 日期:2012-06-02

ASP/Visual Basic代码

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 then
ListView1.SelectedItem = ListView1.HitTest(x,y)
End If
End Sub

右键点击空白不弹出菜单

ASP/Visual Basic代码

If ( Button = 2) and (not ListView1.SelectedItem is nothing) then
popupmenu menu...
end if

Tags: vb

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2541

VB中HitTest的用法

作者:admin 日期:2012-06-02

ListView控件和TreeView控件都提供了HitTest方法。这个方法返回对位于x和 y 坐标的 ListItem 对象或 Node 对象的引用。通常与拖放操作或鼠标移动操作一起使用，来确定鼠标下的目标项在当前位置是否可用。
其语法为：
object.HitTest (x As Single, y As Single)

ASP/Visual Basic代码

Private Sub Form_Load()
ListView1.ListItems.Add , , "VB程序测试"
ListView1.ListItems.Add , , "HitTest测试"
ListView1.ListItems.Add , , "Http://www.jlist.cn"
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