vb2clr

VB2CLR

Visual Basic for Applications (VBA) 7.0 的帮助程序类CLRHost ，提供对 CLR (.NET Framework) 程序集和类的访问。

要使用 .NET（以前称为 .NET Core），请考虑使用 vb2net。

要求

Visual Basic for Application 7.0（包含在 Microsoft Office 2010 或更高版本中）

• （未测试）要在 Visual Basic 6.0 上使用，请将LongPtr重写为Long并删除所有PtrSafe说明符。

用法

1. 将 CLRHost.cls 和 ExitHandler.bas 导入到 VB/VBA 项目中
2. 添加类型库引用“通用运行时语言执行引擎”（可能是版本 2.4）和“mscorlib.dll”
3. 使用CLRHost类编写代码

注意事项和警告

• 当您使用完 CLR 后，您应该释放CLRHost实例或调用Terminate方法。
  • 如果您不释放或终止活动的 CLR 实例，则可能会出现意外行为。
• 如果将True传递给CLRHost.Initialize的TerminateOnExit参数，则在中断或暂停应用程序时不得停止调试器。
  • ExitHandler模​​块中的代码在暂停期间停止时无法运行，并且应用程序（包括Excel等VBA主机）可能会导致崩溃。
• VB文件的编码是Shift-JIS；如果您有编码问题，请检查.utf8.*文件，删除日语注释，然后导入它们。

例子

 Public Sub RegexSample()
    Dim host As New CLRHost
    Call host.Initialize(False)

    On Error Resume Next
    Dim asmSys As mscorlib.Assembly
    Set asmSys = host.CLRLoadAssembly("System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")

    Dim cobjRegex As mscorlib.Object
    Set cobjRegex = host.CLRCreateObjectWithParams("System.Text.RegularExpressions.Regex", _
        "([0-9])+")

    Dim cobjColl As mscorlib.Object
    Set cobjColl = host.CLRInvokeMethod(cobjRegex, "Matches", "10 20 50 1234 98765")

    Dim vMatch As Variant
    For Each vMatch In host.ToEnumerable(cobjColl)
        Dim cobjMatch As mscorlib.Object
        Set cobjMatch = vMatch
        Debug.Print "Matches: "; host.CLRProperty(cobjMatch, "Value")
        Set cobjMatch = Nothing
    Next vMatch
    vMatch = Empty
    Set cobjColl = Nothing
    Set cobjRegex = Nothing

    'Call host.Terminate
    Set host = Nothing
End Sub

更多详情

• （日语）从 VB 使用 CLR(.NET)

作者

喷气机（@jet2jet）

执照

新 BSD 许可证（或 3 条款 BSD 许可证）