vb2clr

vb2clr

Вспомогательный класс CLRHost для Visual Basic для приложений (VBA) 7.0, обеспечивающий доступ к сборкам и классам CLR (.NET Framework).

Чтобы использовать .NET (ранее .NET Core), рассмотрите возможность использования vb2net.

Требования

Visual Basic для приложений 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 параметру TerminateOnExit CLRHost.Initialize , вы не должны останавливать отладчик при прерывании или приостановке приложения.
  • Код в модуле ExitHandler не может быть запущен, если он остановлен во время паузы, и приложение (включая хост VBA, например Excel) может привести к сбою.
• Кодировки файлов 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

Подробнее

• (На японском языке) Использование CLR (.NET) из VB

Автор

самолет (@jet2jet)

Лицензия

Новая лицензия BSD (или лицензия BSD из 3 пунктов)