
怎么在VB treeview 的节点上设置鼠标左击,右击,双击 这三个不同的事件? 30
比如我对某个子节点,单击它出来窗体1.我双击它,出来的是窗体2.我右击它,出来的是窗体3.------------------------------请问哪位高手,不知道...
比如我对某个子节点,单击它出来窗体1.
我双击它,出来的是窗体2.
我右击它,出来的是窗体3.
------------------------------请问哪位高手,不知道的就不要乱回答
跪求 高手 谢谢 展开
我双击它,出来的是窗体2.
我右击它,出来的是窗体3.
------------------------------请问哪位高手,不知道的就不要乱回答
跪求 高手 谢谢 展开
3个回答
展开全部
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 And isNode Then
msgbox "右键单击"
End If
isNode = False
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
CurrentNode = Node.Index
isNode = True
End Sub
If Button = 2 And isNode Then
msgbox "右键单击"
End If
isNode = False
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
CurrentNode = Node.Index
isNode = True
End Sub
展开全部
Private
Sub
TreeView1_MouseUp(Button
As
Integer,
Shift
As
Integer,
x
As
Single,
y
As
Single)
If
Button
=
2
And
isNode
Then
msgbox
"右键单击"
End
If
isNode
=
False
End
Sub
Private
Sub
TreeView1_NodeClick(ByVal
Node
As
MSComctlLib.Node)
CurrentNode
=
Node.Index
isNode
=
True
End
Sub
Sub
TreeView1_MouseUp(Button
As
Integer,
Shift
As
Integer,
x
As
Single,
y
As
Single)
If
Button
=
2
And
isNode
Then
msgbox
"右键单击"
End
If
isNode
=
False
End
Sub
Private
Sub
TreeView1_NodeClick(ByVal
Node
As
MSComctlLib.Node)
CurrentNode
=
Node.Index
isNode
=
True
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
好像的设置KEYCODE属性吧你试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询