VBA模块和传递参数

Question

我有一个模块，可以从应用程序的任何部分调用该模块，以检查用户系统上是否安装了特定字体；如果没有，请安装该字体并在继续之前再次检查

主要应用

if RequiredFont.Run(strFontName) = FALSE Then '(error message and exit sub)

模块“ RequiredFont”

Public Function Run(Font As String) As Boolean
    if check(Font) = FALSE Then
        Run = FALSE
        Install(Font)
        if check(Font) = TRUE Then Run = TRUE
    Else
        Run = TRUE
    End If


Private Function Check(Font as String) as Boolean
'code to check the font exists on the users localmachine, returns true/false
End Sub

Private Sub Install(Font as String)
'code to install the font on the users localmachine,
End Sub

我的第一个问题是：

是使参数可用于所有函数和子函数，并在每次调用时传递它们的最好方法吗？ （如上所示）....还是调用Run（）时有简单的方法将参数声明为整个模块的变量？

我的第二个问题是：

有没有一种方法可以完全避免Run（），而直接直接调用模块名称“ RequiredFont”，我记得在其他语言中，以某个名称调用子程序会在调用模块时自动运行该子程序

谢谢

编辑-这是我的代码现在的样子：

Private FontName As String
Private FontFile As String


Public Function Run(strFontName As String, strFontFile As String) As Boolean

    FontName = strFontName
    FontFile = strFontFile
    Run = False

    If CheckFont() = False Then InstallFont
    If CheckFont() = True Then
        Run = True
    Else
        'message error"
    End If

End Function


Private Function CheckFont() As Boolean
    'code to check if the font is installed
    On Error Resume Next
    'Create a temporary StdFont object
    With New StdFont
        ' Assign the proposed font name
        .Name = FontName
        ' Return true if font assignment succeded
        If (StrComp(FontName, .Name, vbTextCompare) = 0) = False Then
            CheckFont = False
        Else
            CheckFont = True
        End If
    End With
End Function

Private Sub InstallFont()
' code to install the font
    MsgBox "You need the following font installed to continue." _
    & vbNewLine _
    & vbNewLine & "'" & FontName & "'" _
    & vbNewLine _
    & vbNewLine & "Click OK to launch the font. Please click the INSTALL button at the top"
    OpenFile (PATH_TO_FONTS & FontFile)

End Sub

Answer 1

使用函数参数是一种很好的编码习惯，这样您就可以准确知道函数的内容和结果。

但是，您可以使用全局变量，该全局变量将在调用Run时设置一次，并且其他功能仍然可以访问。

'could also be Private to hide it from other modules
Public myFont As String

Public Function Run(Font As String) As Boolean
    myFont = Font
    '...
End Sub


Private Function Check() as Boolean
' you can access myFont here
End Sub

Private Sub Install()
'idem
End Sub

关于第二个问题，我认为你不能。

Answer 2

您可以声明可选功能，并设置默认值：

Public Function fxMyFunction _
    (Optional lngProj As Variant, _
     Optional strFruit As Variant = "banana", _
     Optional booTest As Boolean = False) As String

   '' IsMissing requires that lngProj be a Variant
   booNoProject = IsMissing(lngProj)  

   fxMyFunction = strFruit

End Function

Optional参数必须在非可选参数之后。

关于“基于包含”运行的功能

您必须按名称调用函数和子程序。 VBA标准模块没有“自运行功能”功能。 VBA在编译时“包括”所有模块。

在VBA类模块中，您可以找到等效的构造函数。 投资VBA的面向对象版本似乎对您当前的需求没有帮助。 如果您确实朝着这个方向发展，那么某些方面将开始让您看起来很熟悉（尽管可能足以令人沮丧，因为OO仍然是后来添加的功能，看起来很一部分）。

Answer 3

如@z所述，您可以使用全局变量，尽管这是不好的做法。

关于问题2，您可以给函数指定一个唯一的名称，并省略命名模块以运行它，例如

findOrInstallFont(Fontname)