先用 菜单编辑器 作一个顶级菜单,就象下拉菜单一样,然后把他的VISIBLE设成FALSE
然后在程序中用POPUPMENU方法Just lisk this:
=========================================Private Sub Form_Load()
Me.菜单名.Visible = False
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu Me.菜单名
End Sub
然后在程序中用POPUPMENU方法Just lisk this:
=========================================Private Sub Form_Load()
Me.菜单名.Visible = False
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Me.PopupMenu Me.菜单名
End Sub
解决方案 »
- 初涉vba,请问这句哪里错了?——Range("C"& i":E" & i).Select—— 在线等,愁死我了
- VB中怎样使用SFTP传输文件,Windows没有相关的API呀!!!高分悬赏解决方案!!
- shell执行的dos程序如何实现重定向输出?
- 怎样用API来控制打印报表的缩放百分比(ZOOM),急,谢
- winsock问题,请指点
- 关于combox的小问题,请教!
- 如何缩短控件的toolsTiptext 显示延时?赐教
- 请问如何通过程序打开网络上的一个ACCESS数据库?
- 如何用vb做到监视文件的输入与输出
- 高手!求助!谁能告诉我怎样用VB来计算CRC码! (特急)
- 无线网络与普通的局域网,在编程上有什么不同?
- 诚聘版主
在你要显示级联菜单(怎么叫这个名?)的控件的mouse_down事件中添加如下代码:
if button=2 then
popupmenu YourMenuName
endif