Visual Basic设置一个全局变量，使我的代码DRY

Question

如何优化我的代码使其成为DRY方法。我要让我的变量是对公共/一般这样我就可以重新使用它

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 

我想移动的变量（产品1，产品2）到别的地方，我可以将它设置一个时间，轻松地访问它与其他控制。我之前做的是我总是将变量设置为每个控件。

请指教。

谢谢！

Answer 1

我不知道我得到了你的问题，但你知道你的变量是实例变量，因为你正在上课，对吧？

您的“产品”变量应该是私有实例或公共属性。如果您使用私有实例，请给出一种访问这些变量的方法，比如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