ms-access - Access VBA。如何使用一个按钮执行多个按钮？

Question

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

Answer 1

不要将代码放入对象的事件(例如单击事件)中是一种良好的编程习惯。相反，代码应该放入它们自己的方法中，这些方法由单击事件调用。然后，当您需要运行一大堆按钮时，您不需要调用每个按钮的单击事件，而是直接运行单击事件调用的每个方法。

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 应用程序内部特别可测试。但这是常用的行业最佳实践。