vb 弹出窗体

Private Sub Command1_Click()
MsgBox "确认要弹出窗体2吗？"
Form2.Show
End Sub
如果我不想弹出窗体2,代码怎么写?

Private Sub Command1_Click()
If MsgBox("确认要弹出窗体2吗？", vbYesNo) = vbYes Then Form2.Show
End Sub

1.在"菜单编辑器窗口"中建立一个将要作为弹出式菜单的主菜单项,如你所说的,就是"编辑"主菜单项,此菜单项的标题为"编辑",名称为"edit",所包含的菜单项为"剪切","复制","粘贴".建立弹出式菜单所需的菜单后,可以把"编辑"的visible属性设置为false,也可以设置为true,关键看你需要. 2.为建立好的菜单编写程序代码,要显示弹出式菜单,可以使用popupmenu方法,大概代码如下: private sub form_mouseup(button as integer,shift as integer,x as single,y as single) if button=2 then '检查是否按下的是鼠标右键 popupmenu edit 'edit是"编辑"菜单的控制名,将其激活显示在窗体上 end if end sub