访问VBA.如何使用单个按钮执行许多按钮？

Question

我有一个带有几个按钮的表单.我想创建一个按钮,在按钮的每个功能完成后,将一个接一个地执行所有按钮.另外,我想更改按钮的颜色以显示正在执行的按钮.我该怎么做呢？

Answer 1

不将代码置于对象事件中(例如click事件)是一种很好的编程习惯.相反,应将代码放入由click事件调用的自己的方法中.然后,当您需要运行其中的一大堆时,您不需要调用每个按钮的click事件,而是运行click事件直接调用的每个方法.

Private Sub DoSomething()

  'Code to do something

End Sub

Private Sub DoSomethingElse()

  'Code to do something else

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs)

  DoSomething

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs)

  DoSomethingElse

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs)

  DoSomething
  DoSomethingElse

End Sub

这也使得更多可测试的代码......而不是代码在Microsoft Office应用程序内部特别可测试.但这是一种常用的行业最佳实践.