Mẹo Viết Vba Xuất Được Ra File .exe Đơn Giản

[506509 1]

Như chúng ta đã biết ưu điểm khi viết chương trình VBA chạy trên Cad hoặc Excel là chạy khá nhanh. Nhưng nó có một nhược điểm chí tử là tính bảo mật quá kém, chính vì vậy mà người lập trình không muốn sử dụng nó để viết nên các phần mềm có tính chất thương mại được. Do đó VB.net ra đời để bù vào vấn đề này. Nhưng mà với những người lười thì việc học VB.net quả là quá mệt,( bản thân VB cũng được viết để cho những người lười sử dụng để lập trình rồi bây giờ muốn chăm chỉ lại thì mệt quá). 

Tuy nhiên chúng ta vẫn còn 1 cách nữa để viết chương trình trên VBA sau đó Export ra dưới dạng ".frm" và chèn thêm đoạn mã ở đầu chương trình để tạo liên kết giữa VB6 và Autocad rồi xuất chương trình ra dưới dạng file .EXE :

- Lưu ý việc kết nối giữa Cad và VB6 bạn cần chọn thêm thư viện Cad cho VB6 bằng cách vào Poject -> Preferences.... nó sẽ hiện lên bảng. bạn di chuyển đến chỗ Auto.... để chọn thư viện "Aotocad 2007 type Library" . 

Dim moACAD As Object
Dim THISDRAWING  As Object


On Error Resume Next

Set moACAD = GetObject(, "AutoCAD.Application")
If Err.Number Then
    Err.Clear
    Set moACAD = CreateObject("AutoCAD.Application")
    If Err.Number Then
        MsgBox "bat cad len di. chuong trinh khong tu mo duoc Cad cua bam"
        Exit Sub
    Else
        moACAD.Visible = True
    End If
End If
'moACAD.Application.Documents.Add

Set THISDRAWING = moACAD.ActiveDocument

moACAD.WindowState = 3