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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!