如何提高效率？

Question

Private Sub btnOne_Click(sender As Object, e As EventArgs) Handles btnOne.Click
    txtAnswer.AppendText(1)
End Sub

所以这是我的代码（它是0到9的小数点和小数点的一个点）。

我正在使用计算器进行作业，我的问题是，我能否提高效率，因此我没有很多代码做同样的事情？

我曾考虑设置一个函数来读取按钮的内容并将它们添加到文本框中，但操作按钮和清除按钮只会添加到文本框而不是执行分配给它们的代码。

Answer 1

您可以为数字按钮创建一个方法，并将其值添加到Tag对象。然后，您可以引用标记对象以附加到文本

Private Sub NumericButtons_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim btn As Button
    btn = sender
    txtAnswer.AppendText(btn.Tag)
End Sub

Answer 2

您可以像这样创建一个函数，但它应该从发件人的Text属性中读取数字，并且只在OnClick事件中为该函数指定数字按钮。

其他按钮将有自己的OnClick方法，你应该在这种情况下创建一个通用函数，当你在其中一些中找到一个共同的行为时。也许您可以为所有+ - / x运算符执行另一个通用函数，这是合适的。