Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
506509

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

Các bài được khuyến nghị

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
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×