38.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 41 行

给TreeView控件添加弹式菜单 

如果你想为你的应用程序添加类似于Windows资源浏览器的功能的话，相信你十有
八九会用到TreeView控件。问题在于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