嘉定都市网

标题: 再次！！！！！请教VB（版主别删帖！！！） [打印本页]

作者: 冷光蓝的水 时间: 2002-5-28 23:02
标题: 再次！！！！！请教VB（版主别删帖！！！）
如何做一个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
不可能和什么版有什么关系的……我觉得好像是某个环节出了些问题，别的没什么的

作者: dogndong7 时间: 2002-5-30 09:57
应该在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
这样可以吗？这个事件名和那个事件名有什么区别吗？

欢迎光临嘉定都市网 (http://www.jiading.com.cn/)