VB6常量「App.Path」

Question

我有這樣的代碼爲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，因爲另一個const的需要這一點。

Answer 1

我知道你說你不希望你的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