说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

给TreeView控件添加弹式菜单 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
给TreeView控件添加弹式菜单 -VB资料

如果你想为你的应用程序添加类似于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


备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘