VB里记事本的复制 粘贴 查找...
我想模拟个Windows的记事本功能！前面都差不多解决了
就这行菜单如图：求高手指点！感谢感谢！
我是说实现 这些功能的代码，
我已经设计出来了，
比如我单击复制就实现复制的功能！
第1个回答 2010-11-06
你可以用菜单编辑器设计出该框架，并把它的可见性设为false
用
Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = MouseButtonConstants.vbRightButton Then
PopupMenu mymenu, 标志, X, Y, 默认菜单(即加粗的菜单项)
End If
End Sub
来弹出菜单
用
Private Sub 控件名_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = MouseButtonConstants.vbRightButton Then
PopupMenu mymenu, 标志, X, Y, 默认菜单(即加粗的菜单项)
End If
End Sub
来弹出菜单
相似回答