查看:1242 回复:3
发表于 2002-5-30 23:13
|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
如何做一个VB的弹出式菜单！
就是导入一个form1和一个mdi窗口，然后在form1里选择mdichild，再用菜单编辑,做一个不可见的下拉式菜单，再在form1里打入
private sub form1_mouseup(button as integer,shift as integer,x as single,y as single)
if button=2 then
popupmenu mnucolor （那个菜单的内部名称是mnucolor）
end if
end sub
为什么总显示popupmenu mnucolor错误？？？？？
此贴由 冷光蓝的水 在 2002-05-29 08:17:46 最后编辑
|
|
|
|
|
|
|
|
|
|
|
|
沙发
楼主 |
发表于 2002-5-29 08:58:16
|
只看该作者
不可能和什么版有什么关系的……我觉得好像是某个环节出了些问题，别的没什么的  |
|
|
|
|
|
|
|
|
|
|
|
应该在MOUSEDOWN事件里面用些代码
Private Sub Form1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 2 Then
Form1.PopupMenu mnucolor
End If
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
地板
楼主 |
发表于 2002-5-30 23:13:50
|
只看该作者
|
|
|
|
|
|
|
|
|
发表于 2002-5-28 23:02:30
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
转播
淘帖
支持
反对
变色卡
