Question

使用VB如何在窗体上右键实现类似于“在桌面点击右键出现下拉菜单”的效果？

我是新手，回答的清楚一些具体一些。

Answer 1

这个是弹出菜单，菜单在窗体上不显示，单击右键时弹出，所以需要将所有菜单做成子菜单。
1、先在VB里打开菜单编辑器（在窗体显示的情况下，在工具菜单里点“菜单编辑器"
2、新建菜单：（1）先做一个总菜单项，标题中填写”弹出",名称中填写mymenu，该菜单项是不显示的，用来弹出。（2）做如图子菜单，标题中填写菜单中显示的内容，比如：排列图标，刷新等等，名称内输入你自定义的名称，比如：排列图标的名称mnu_pailie，名称用来在编写代码时识别该菜单。横线在VB中标题内输入减号（-），名称也需要输入。（3）下级菜单（如排列图标有下级菜单），用向右的箭头调整
只要是标题和名称输入好了，就是合法的。其它不符合要求可以慢慢修改，不影响你条试验。
3、编写代码：
Private Sub Form_Load()
mymenu.Visible = False‘mymenu是要弹出总菜单的名称，在窗体上禁止显示，当然，你也可以让它显示
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗体的鼠标按键抬起事件，当鼠标按键向上抬起时发生
If Button = vbRightButton Then‘button参数是按键，如果抬起的是鼠标右键时
Me.PopupMenu mymenu’弹出mymenu
End If
End Sub
‘鼠标点击后索要完成的功能，在该菜单名称的click中编写代码：
Private Sub mnu_pailie_Click()
’这里编写排列图标代码

End Sub

Answer 2

看书，书上都有

追问

我没有。你答么。

追答

我就是做作业看书做，做完就给忘了

追问

书名是什么啊

追答

vb6.0面向对象程序设计，你要是电脑方便，网上搜一下课件就行，和书差不多，方便好多