vb2clr ดาวน์โหลด - ดาวน์โหลด vb2clr ซอร์สโค้ด

vb2clr

วิชวลเบสิก

1.0.0

ดาวน์โหลด

vb2clr

คลาสตัวช่วย CLRHost สำหรับ Visual Basic for Applications (VBA) 7.0 ให้การเข้าถึงแอสเซมบลีและคลาส CLR (.NET Framework)

หากต้องการใช้ .NET (เดิมคือ .NET Core) ให้ลองใช้ vb2net

ความต้องการ

Visual Basic สำหรับ Application 7.0 (รวมอยู่ใน Microsoft Office 2010 หรือสูงกว่า)

(ไม่ได้ทดสอบ) หากต้องการใช้กับ Visual Basic 6.0 ให้เขียน LongPtr ใหม่เป็น Long และลบตัวระบุ PtrSafe ทั้งหมด

การใช้งาน

นำเข้า CLRHost.cls และ ExitHandler.bas ไปยังโปรเจ็กต์ VB/VBA ของคุณ
เพิ่มการอ้างอิงไลบรารีประเภท 'Common Runtime Language Execution Engine' (อาจเป็นเวอร์ชัน 2.4) และ 'mscorlib.dll'
เขียนโค้ดของคุณโดยใช้คลาส CLRHost

หมายเหตุและคำเตือน

คุณควรปล่อยอินสแตนซ์ CLRHost หรือเรียกใช้เมธอด Terminate เมื่อคุณใช้ CLR เสร็จแล้ว
- ลักษณะการทำงานที่ไม่คาดคิดอาจเกิดขึ้นเนื่องจากอินสแตนซ์ 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