实现弹出式菜单？

在MDI窗体中怎样实现弹出式菜单，在 不添加子窗体的情况下

解决方案 »

  1.   

    添加一个菜单(invisible) mnuMyMenu, 然后给它添加子菜单。这样用：PopupMenu mnuMyMenu
      

  2.   

    写一个有子菜单的菜单项,把它的VISIBLE画掉,让它不可见,
    然后在MDIFORM的CLICK事件里写
    popupmenu 你的菜单名
    就OK拉!很简单!
      

  3.   

    有主菜单项名为popup，不可见，且其下有子菜单：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then PopupMenu popup, 2
    End Sub
      

  4.   

    对呀
    我试过了
    可是在MDI窗体中却不行的 得添加子窗体？？？？/
      

  5.   

    那怎样使AniGif1控件与数据库帮定呀？？？？
      

  6.   

    MDI也可以的，我试过啊
    菜单为　file,有两个子菜单，new和openPrivate Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = vbRightButton Then
            PopupMenu file
        End If
    End Sub
      

  7.   

    哦，是在MDIForm_MouseUp的中呀
    我以为是在MDIForm_Mousedown中呢 ？
    谢谢了
     小弟是初学者呀
    不耻下问！
      

  8.   

    那怎样使AniGif1控件与数据库帮定呀