تنزيل vb2clr - تنزيل كود المصدر vb2clr

vb2clr

فيجوال بيسك

1.0.0

تنزيل

vb2clr

الفئة المساعدة CLRHost لـ Visual Basic for Applications (VBA) 7.0، مما يوفر الوصول إلى تجميعات وفئات CLR (.NET Framework).

لاستخدام ‎.NET (المعروف سابقًا باسم ‎.NET Core)، فكر في استخدام vb2net.

متطلبات

Visual Basic للتطبيق 7.0 (مضمن في Microsoft Office 2010 أو أعلى)

(لم يتم اختباره) لاستخدامه في Visual Basic 6.0، أعد كتابة LongPtr إلى Long وقم بإزالة كافة محددات PtrSafe .

الاستخدام

قم باستيراد CLRHost.cls وExitHandler.bas إلى مشروع VB/VBA الخاص بك
أضف مرجع مكتبة النوع "محرك تنفيذ لغة وقت التشغيل المشترك" (ربما الإصدار 2.4) و"mscorlib.dll"
اكتب الكود الخاص بك باستخدام فئة CLRHost

ملاحظات وتحذيرات

يجب عليك تحرير مثيل CLRHost أو استدعاء أسلوب Terminate عند الانتهاء من استخدام CLR.
- قد يحدث سلوك غير متوقع بسبب مثيلات CLR الحية إذا لم تقم بتحريرها أو إنهائها.
إذا قمت بتمرير معلمة True to 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