Question

我有这个代码来修改当前路径：

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保留在模块中的和 NOT 中，并再一次，我希望在 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

vb6 Const“App.Path”

1 个答案: