vb2clr

vb2clr

La clase auxiliar CLRHost para Visual Basic para Aplicaciones (VBA) 7.0, que proporciona acceso a ensamblados y clases de CLR (.NET Framework).

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

Requisitos

Visual Basic para la aplicación 7.0 (incluido en Microsoft Office 2010 o superior)

• (no probado) Para usarlo en Visual Basic 6.0, reescriba LongPtr a Long y elimine todos los especificadores PtrSafe .

Uso

1. Importe CLRHost.cls y ExitHandler.bas a su proyecto VB/VBA
2. Agregue la referencia de la biblioteca de tipos 'Common Runtime Language Execution Engine' (tal vez versión 2.4) y 'mscorlib.dll'
3. Escribe tu código usando la clase CLRHost

Notas y advertencias

• Debe liberar la instancia CLRHost o llamar al método Terminate cuando termine de usar CLR.
  • Es posible que se produzca un comportamiento inesperado debido a instancias CLR activas si no las libera ni las cancela.
• Si pasa True al parámetro TerminateOnExit de CLRHost.Initialize , no debe detener el depurador al interrumpir o pausar la aplicación.
  • El código del módulo ExitHandler no se puede ejecutar cuando se detiene durante la pausa y la aplicación (incluido el host VBA como Excel) puede provocar un bloqueo.
• Las codificaciones de archivos VB son Shift-JIS; Si tiene problemas con las codificaciones, verifique los archivos .utf8.* , elimine los comentarios en japonés e impórtelos.

Ejemplo

 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

Más detalles

• (En japonés) Usando CLR(.NET) de VB

Autor

jet (@jet2jet)

Licencia

Nueva licencia BSD (o licencia BSD de 3 cláusulas)