Visual Basic устанавливает глобальную переменную, делая мой код СУХИМ

Question

Как мне оптимизировать мой код, сделав его сухим. Я хочу, чтобы моя переменная была общедоступной / общей, чтобы я мог повторно использовать ее

Public Class BasicForm

Dim Product1, Product2, Product3, As Integer
Dim firstName, lastName As String

Private Sub btn_getValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_getValue.Click


    'Set variables'
    Product1 = Val(tx_productfield1.Text)
    Product2 = Val(tx_productfield2.Text)
    Product3 = Val(tx_productfield3.Text)


    'Calculate'
    tx_totalValue.Text = Product1 + Product2 + Product3


End Sub End Class

Я хочу переместить переменные (product1, product2) в другое место, чтобы я мог установить его один раз и легко получить к нему доступ с помощью другого элемента управления. Я всегда устанавливал переменные для каждого элемента управления.

Пожалуйста, совет.

Спасибо!

Answer 1

Я не уверен, что получаю ваш вопрос, но вы знаете, что ваши переменные являются переменными экземпляра, потому что вы работаете в классе, верно?

Ваши переменные "product" должны быть частными экземплярами или открытыми свойствами. Если вы используете частные экземпляры, предоставьте способ доступа к этим переменным, скажем, методы Getter. В противном случае "Собственность" просто отлично.

Public Class BasicForm

    Public Function getProduct1() As Integer
        return Product1
    End Function

    '... other getters here


    Private Product1 As Integer
    Private Product2 As Integer
    Private Product3 As Integer
End Class