关于VB6弹出菜单的问题

前端之家收集整理的这篇文章主要介绍了关于VB6弹出菜单的问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

写一个小程序,用VB6随意做下界面,离奇的发现弹出菜单居然没有效果,过程如下

创建一个窗体Form1,用菜单编辑器创建一个弹出菜单

弹出菜单菜单项在这里名称为mPopup1,事件代码为:

Option Explicit

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
    PopupMenu mnuPopup1
End Sub

Private Sub mPopup1_Click()
    Dim f As New Form2
    f.Show vbModal
End Sub

创建对应的Form2,同样有弹出菜单mnuPopup2和子菜单项mPopup2,事件代码为:
Option Explicit

Private Sub Form_MouseUp(Button As Integer,Y As Single)
    PopupMenu mnuPopup2
End Sub

这时候会发现,无论在哪个事件调用PopupMenu都无法弹出mnuPopup2菜单,我怀疑过RichEdit,怀疑过ComDlg,N多怀疑

查了下MSDN说明有一句:

显示弹出式菜单时,调用 PopupMenu 方法后面的代码直到用户或者从菜单中选择了命令(这时,该命令的 Click 事件的代码PopupMenu 语句后面的代码先执行)或者取消该菜单时才能执行。此外,每次只能显示一个弹出式菜单,因此,如果已经显示了一个弹出式菜单或打开了一个下拉式菜单时,该方法的其它调用将被忽略。

实践证明,PopupMenu后面的代码是继续执行的,但是多次弹出菜单无效,即弹出一个菜单后的对话框不能再继续弹出对话框

解决的办法也出来了: 不要以模态显示对话框即可.

调整后Form1的代码为:

Option Explicit

Private Sub Form_MouseUp(Button As Integer,Y As Single)
    PopupMenu mnuPopup1
End Sub

Private Sub mPopup1_Click()
    Dim f As New Form2
    'f.Show vbModal
    f.Show
End Sub

这样mPopup1_Click()响应过程能够返回,再调用PopupMenu也就能弹出菜单了,当然了还有其他的解决办法,比如:

Option Explicit

Private Sub Form_MouseUp(Button As Integer,Y As Single)
    PopupMenu mnuPopup1
End Sub

Private Sub mPopup1_Click()
    'Dim f As New Form2
    ''f.Show vbModal
    'f.Show
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim f As New Form2
    f.Show vbModal
End Sub

不过这样做要注意不要Show多个模态窗体,道理也是类似的.

应该就这么多了

猜你在找的VB相关文章