树型控件上可不可加右键菜单???

[CS_D_N]

功能比较简单,能实现右键点击节点弹出增删改3个菜单,
然后根据所点的节点分别处理,
我用的是VB6.0,不知道能不能实现,
大家帮忙参考参考~~

[daisy8675]

问题在于TreeView控 件不支持标右键菜单。要想告诉程序鼠标在哪一个节点处单击了右键，从而引发NodeClick事件，并不是件容
易的事。

下面的这段代码利用TreeView的MouseUp事件，捕获特定节点处的鼠标右键单击，
从而使你能为那个节点弹出定制的菜单。

代码如下：

Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As
Single, y As Single)

Dim nod As Node

If Button = vbRightButton Then

Set nod = TreeView1.HitTest(x, y)

On Error GoTo EmptyNode

nod.Selected = True

On Error GoTo 0

'<<下面是你的自定义菜单>>

Me.PopupMenu mnuPopUp

EmptyNode:

On Error GoTo 0

End If

End Sub

[CS_D_N]

谢谢，我试试~

[CS_D_N]

问题搞定，高手就是高手！！佩服哈~~~
谢谢，结帖~~~