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

アプリケーションで必要なグローバル変数を作成し、フォームの読み込み時に必要な値を入力する Global Variables クラスを作成しました。

于 2015-02-03T18:29:00.853 に答える