0

Current Path を const する次のコードがあります。

Option Explicit
Const CurPath As String = App.Path 'not working and higlight ".Path" for error.

Private Sub Form_Load() 'just for test with Label1 Caption
Label1.Caption = CurPath
End Sub

何が悪いのかわかりませんが、うまくいきませんが、多くの場合に使用する現在のパスの定数を設定したいのですがSUB and Function、何か提案はありますか?

注:このconstをModuleではなくFormにとどめたいと思います。別の const にもこれが必要なので、もう一度、これを に入れたいと思います。const

4

1 に答える 1

2

モジュールでConstを使用したくないとおっしゃっていたと思いますが、モジュールでメソッドを使用することをお勧めします。モジュールにパブリックメソッドを配置すると、アプリケーションのすべてのフォームおよびその他のモジュールで使用できるようになります。以下は、私が頻繁に使用する一般的なメソッドを含むモジュールに作成して追加した関数です。新しいプロジェクトを開始するたびに、このモジュールが自動的に追加されます。

Public Function AppPath() As String
   Dim sAppPath As String

   sAppPath = App.Path
   If Right$(sAppPath, 1) <> "\" Then  'check that I'm not in the root
      sAppPath = sAppPath & "\"
   End If

   AppPath = sAppPath

End Function

使用するには：

Private Sub Form_Load() 'just for test with Label1 Caption
Label1.Caption = AppPath
End Sub
于 2012-12-14T22:41:17.580 に答える