vb 子菜单无法使上一级已经隐藏的菜单显示

前端之家收集整理的这篇文章主要介绍了vb 子菜单无法使上一级已经隐藏的菜单显示前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

建立菜单如下

文件

...............变化 (不可见)

............................................显示

...............退出


下面通过弹出“变化”菜单,触发"显示"事件,使得上一级菜单”变化“可以显示出来

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
    If Button = vbRightButton Then
        PopupMenu menuchange
    End If
End Sub

Private Sub menuDisplay_Click()
    menuchange.Visible = True
End Sub

可以看到,没有效果,”变化“菜单仍然处于不可见,为什么呢?代码没有错啊。


把点击事件的代码去掉,跟踪发现

尽管”变化“是不可见的,当弹出菜单时,会发现可见为真,当弹出菜单完成后会发现,可见为假。

那么,我们把弹出菜单时置为假时,最后再置真时,就会发现它就会始终保持最后一句的状态。

于是改为下面

Private Sub menuDisplay_Click()
    menuchange.Visible = False
    menuchange.Visible = True
End Sub
这样,就可以激活上一级可见菜单

猜你在找的VB相关文章