你需要做的是在一個模塊中創建你的變量作爲私有變量,然後爲它們生成一些評估者。
例子:
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的消氣:
TextBox.Text = getMyUserNoSTR
要設置strMyUserNoSTR值:
getMyUserNoSTR = someValuePlacedInThisVariable 'This sets it's value.
TextBox.Text = getMyUserNoSTR 'Now it's value is someValuePlacedInThisVariable.
其需求是公共和共享 – Dman