Có sự khác biệt giữa VBA CAD với VBA Office

[hoa35ktxd 38]

Trong Word hay Excel ta có thể dùng đoạn mã sau để đưa Form về vị trí BottomRight của màn hình (Góc dưới, bên phải):

Me.move Application.Width - Me.Width, Application.Height - Me.Height

Nhưng trong Cad thì không đúng, form sẽ chạy ra khỏi màn hình, vậy không hiểu có sự khác nhau như thế nào giữa CAD và các ứng dựng của Microsoft.

Mới làm quen với VBA CAD nên còn nhiều lúng túng, rất mong nhận được sự giúp đỡ của mọi người.

[phantuhuong 218]

Trong Word hay Excel ta có thể dùng đoạn mã sau để đưa Form về vị trí BottomRight của màn hình (Góc dưới, bên phải):

Me.move Application.Width - Me.Width, Application.Height - Me.Height

Nhưng trong Cad thì không đúng, form sẽ chạy ra khỏi màn hình, vậy không hiểu có sự khác nhau như thế nào giữa CAD và các ứng dựng của Microsoft.

Mới làm quen với VBA CAD nên còn nhiều lúng túng, rất mong nhận được sự giúp đỡ của mọi người.

 

Theo tôi không có gì khác biệt, vì khi tính vị trí của Form, người ta dùng thuộc tính Top, Left với đơn vị là point (1 inch bằng 72 point). Giá trị Application.Width trong AutoCad = 1296, còn giá trị Application.Width trong Excel = 972 thôi. Nghĩa là có sự khác nhau về sử dụng màn hình của 2 ứng dụng. Từ đó bằng kiến thức toán học bạn xác định được vị trí mong muốn.

[hoaletrang 5]

Cảm ơn bạn, vậy là đã xác định được tỷ lệ tương quan giữa 2 APP.

[hoa35ktxd 38]

Thanks phantuhuong, nhìn nick của bác là thấy tin tưởng luôn. Quả thật là tôi cũng đã nghĩ mãi mà không nghĩ ra cách thử kiểm tra giá trị trả về của cái hàm Application.width (heigth) trong Ofice và Cad.