0

我有这段代码来 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 留在Form而不是在Module中，我再次希望这个 in 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 回答