在 VB.NET/VS2008中定义"Global Variables"

Question

我正在使用"GetPrivateProfileString"成功读取.ini文件。我发现自己不得不在多个过程中重新使用各种变量，例如表单加载和其他各种点击事件。

我想简化我的代码，这样我就不必多次声明相同的变量。我尝试将代码移动到类中，以获得更多的全局访问权限，而无需多次重新定义变量。下面是我的代码片段，如果能深入了解如何实现这一点，我们将不胜感激。

Dim MJBLoaderIni as String
MJBLoaderIni = tbBaseMMInstall.Text & "MJBLoaderMJBLoader.ini"
Dim ConfigDisplayCustomerNumber As String
Dim DisplayCNumber As String
DisplayCNumber = Space(1)
ConfigDisplayCustomerNumber = ApplicationLog.GetPrivateProfileString("MJBLOADER", "DISPLAYCUSTOMERNUMBER", "$", DisplayCNumber, 255, MJBLoaderIni)

Answer 1

尝试使用"Public"变量类型，并在模块级别中声明它。。像这个

您可以将其设置为Mymodule.vb

Public MJBLoaderIni as String

因此，您的MJBLoaderIni将在同一项目中的所有应用程序中识别

表格1中的样本。。

Class Form1
  MJBLoaderIni = tbBaseMMInstall.Text & "MJBLoaderMJBLoader.ini"
  Dim ConfigDisplayCustomerNumber As String
  Dim DisplayCNumber As String
  Private Sub Form_Load( .. ) handles Form.Load
    DisplayCNumber = Space(1)
    ConfigDisplayCustomerNumber = ApplicationLog.GetPrivateProfileString("MJBLOADER",   "DISPLAYCUSTOMERNUMBER", "$", DisplayCNumber, 255, MJBLoaderIni)
  End Sub
End Class

在您的表格2中。。

Class Form2
  Private Sub Button1_Click( .. ) handles Button1.Click
    Msgbox(MJBLoaderIni)  '------> this will show your MJBLoaderIni
  End Sub
End Class

Answer 2

我创建了一个Global Variables类，在其中我通过应用程序创建所需的全局变量，然后在表单加载中填充我需要的值。