Как сделать это более эффективным?

Question

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

Так что это мой код (это от 0 до 9 и точка для десятичных точек).

Я работаю над калькулятором для задания, мой вопрос в том, могу ли я сделать это более эффективным, чтобы у меня не было много кода, делающего то же самое?

Я решил настроить функцию для чтения содержимого кнопок и добавить их в текстовое поле, но затем кнопки управления и кнопки очистки просто добавят в текстовое поле вместо того, чтобы выполнять назначенный им код.

Answer 1

Вы можете создать один метод для цифровых кнопок и добавить их значение в объект тега. Тогда вы можете просто ссылаться на объекте тегов, добавляемый к тексту

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 операторов, это подходит.