Dim nod As node Set nod = TreeView1.HitTest(X, Y) '没有节点,进入错误处理部分 On Error GoTo EmptyNode '设置你所点击的Node对象被选中 nod.Selected = True '检测鼠标的点击 If Button = vbRightButton Then '右键 '写入你的处理代码 ElseIf Button = vbLeftButton Then '左键 '写入你的处理代码
End If
Exit SubEmptyNode: '错误处理代码
Exit Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) a = Button End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox IIf(a = 1, "左", "右") End Sub
Set nod = TreeView1.HitTest(X, Y)
'没有节点,进入错误处理部分
On Error GoTo EmptyNode
'设置你所点击的Node对象被选中
nod.Selected = True '检测鼠标的点击
If Button = vbRightButton Then '右键
'写入你的处理代码
ElseIf Button = vbLeftButton Then '左键
'写入你的处理代码
End If
Exit SubEmptyNode:
'错误处理代码
Exit Sub
a = Button
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox IIf(a = 1, "左", "右")
End Sub
就是在按键之后,根据Botton的值进行判断