Download vb2clr - download do código-fonte vb2clr

vb2clr

Visual Básico

1.0.0

Baixar

vb2clr

A classe auxiliar CLRHost para Visual Basic for Applications (VBA) 7.0, fornecendo acesso a assemblies e classes CLR (.NET Framework).

Para usar o .NET (anteriormente .NET Core), considere usar o vb2net.

Requisitos

Visual Basic for Application 7.0 (incluído no Microsoft Office 2010 ou superior)

(não testado) Para usar no Visual Basic 6.0, reescreva LongPtr como Long e remova todos os especificadores PtrSafe .

Uso

Importe CLRHost.cls e ExitHandler.bas para seu projeto VB/VBA
Adicionar referência à biblioteca de tipos 'Common Runtime Language Execution Engine' (talvez versão 2.4) e 'mscorlib.dll'
Escreva seu código usando a classe CLRHost

Notas e Avisos

Você deve liberar a instância CLRHost ou chamar o método Terminate quando terminar de usar o CLR.
- Comportamento inesperado pode ocorrer devido a instâncias CLR vivas se você não liberá-las ou encerrá-las.
Se você passar True para o parâmetro TerminateOnExit de CLRHost.Initialize , não deverá parar o depurador ao interromper ou pausar o aplicativo.
- O código no módulo ExitHandler não pode ser executado quando interrompido durante a pausa e o aplicativo (incluindo host VBA como Excel) pode causar travamento.
As codificações de arquivos VB são Shift-JIS; se você tiver problemas com codificações, verifique os arquivos .utf8.* , remova os comentários em japonês e importe-os.

Exemplo

 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