ms-access - 如何在VBA中隐藏按钮控件

Question

这里有人还在编程 VBA 吗？

我正在尝试使此代码正常工作

Private Sub button3_click()

    'hide main buttons
    button1.Visible = False
    button2.Visible = False
    button3.Visible = False

    'show submenu buttons
    button4.Visible = True;
    button5.Visible = True;

End Sub

我想要做的基本上是我有一个主窗体，它有 5 个主按钮控件。其中 2 个在启动时隐藏。因此，当我单击按钮 3 时，我想隐藏前 3 个主按钮，并“取消隐藏”另外两个按钮。
尝试执行此事件时，出现错误

“ 运行时错误 2165 - 您无法隐藏具有焦点 的控件”。

有没有人遇到过这方面的编程？我确定这是可行的。我只是不明白这里出了什么问题......

Answer 1

在隐藏当前控件之前，将焦点更改为可见控件之一

Private Sub button3_click()

    'show submenu buttons
    button4.Visible = True
    button5.Visible = True

    DoEvents          'execute any pending events, to make sure the button 4 and 5 are really visible
    button4.SetFocus  'change the focus to a now visible control
    DoEvents          'execute any pending events, to make sure that button4 really has the focus

    'now you can hide the other buttons

    'hide main buttons
    button1.Visible = False
    button2.Visible = False
    button3.Visible = False

End Sub

也许你可以跳过 DoEvents 命令，你应该试试