您需要做的是在模块中将变量创建为私有变量,然后为它们生成一些评估器。
例子:
Module modVariables
Private strUserNoSTR as String = New String(String.Empty)
Public Property getUserNoSTR() As String
Get
Return strUserNoSTR
End Get
Set(ByVal strUserNo As String)
strUserNoSTR = strUserNo
End Set
End Property
Private strMyUserNoSTR As String = New String(String.Empty)
Public Property getMyUserNoSTR As String
Get
Return strMyUserNoSTR
End Get
Set(ByVal strMyUserNo As String)
strMyUserNoSTR = strMyUserNo
End Set
End Property
End Module
生成 getter 和 setter 公共方法后,您会注意到您的两个私有变量在其中,当您创建变量时,它们可以从任何形式访问。
你不断丢失变量值的原因是因为当你尝试从另一个表单访问它的值(基本上你是从另一个类调用它)时,编译器必须创建该变量的一个新实例,当这种情况发生时,变量是设置回其类型的原始值empty string
。从模块中调用它们可以防止它们被重新实例化。
如何使用它们:
要获取 strMyUserNo 的值,请调用 strMyUserNoSTR 的 getter:
TextBox.Text = getMyUserNoSTR
设置 strMyUserNoSTR 的值:
getMyUserNoSTR = someValuePlacedInThisVariable 'This sets it's value.
TextBox.Text = getMyUserNoSTR 'Now it's value is someValuePlacedInThisVariable.