0

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

我想简化我的代码，这样我就不必多次声明相同的变量。我尝试将我的代码移动到一个类以获得更多的全局访问权限，而不必多次重新定义变量。下面是我的代码片段，我将不胜感激。

Dim MJBLoaderIni as String
MJBLoaderIni = tbBaseMMInstall.Text & "\MJBLoader\MJBLoader.ini"
Dim ConfigDisplayCustomerNumber As String
Dim DisplayCNumber As String
DisplayCNumber = Space(1)

ConfigDisplayCustomerNumber = ApplicationLog.GetPrivateProfileString("MJBLOADER", "DISPLAYCUSTOMERNUMBER", "$", DisplayCNumber, 255, MJBLoaderIni)
4

2 回答 2

1

尝试使用“公共”变量类型并在模块级别声明它..像这样

你可以把它做成Mymodule.vb

Public MJBLoaderIni as String

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

样品在您的Form1 ..

Class Form1
  MJBLoaderIni = tbBaseMMInstall.Text & "\MJBLoader\MJBLoader.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

在你的Form2 ..

Class Form2
  Private Sub Button1_Click( .. ) handles Button1.Click

    Msgbox(MJBLoaderIni)  '------> this will show your MJBLoaderIni

  End Sub
End Class
于 2013-07-17T02:14:15.657 回答
0

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

于 2015-02-03T18:29:00.853 回答