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

Giúp em cách khai báo biến

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

Các bác giúp em vấ đề này với..Em vừa rẽ ngang xương sang VBA nên lại tập toẹ ^^

Cụ thể là trong 1 module em khai báo

 

Global Const TEXTTHUONG = 2 'height text

Global Const TEXTHOA = 4 'height text

 

Trong 1 module khác có function vẽ đường bao text phụ thuộc vào chiều cao chữ:

Function baotext(layer,loaitext)

 

Em có thể khai báo như thế nào để khi sử dụng hàm baotext,đối số loaitext sẽ chỉ chấp nhận nhập 2 giá trị TEXTTHUONG,TEXTHOA?

Và khi gán Caotext = loaitext thì Caotext sẽ nhận giá trị của loại TEXTTHUONG,TEXTHOA tương ứng (2,4)

Cám ơn các bác

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

CHưa hiểu ý của ketxu lắm

Tại sao function rồi mà chỉ đc lấy 2 giá trị đó nhỉ

 

Nếu cần ketxu thử đặt cái này trong modul

public texhoa,textthuong as byte

 

sau đó có thể dùng đc , thay giá trị 1 lần sẽ ko đổi trong quá trình chạy, không bị cố định như Const

  • 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
Các bác giúp em vấ đề này với..Em vừa rẽ ngang xương sang VBA nên lại tập toẹ ^^

Cụ thể là trong 1 module em khai báo

 

Global Const TEXTTHUONG = 2 'height text

Global Const TEXTHOA = 4 'height text

 

Trong 1 module khác có function vẽ đường bao text phụ thuộc vào chiều cao chữ:

Function baotext(layer,loaitext)

 

Em có thể khai báo như thế nào để khi sử dụng hàm baotext,đối số loaitext sẽ chỉ chấp nhận nhập 2 giá trị TEXTTHUONG,TEXTHOA?

Và khi gán Caotext = loaitext thì Caotext sẽ nhận giá trị của loại TEXTTHUONG,TEXTHOA tương ứng (2,4)

Cám ơn các bác

 

Dùng kiểu dữ liệu liệt kê như sau:

 

Enum LOAI_TEXT

TEXTTHUONG = 2 'height text

TEXTHOA = 4 'height text

End Enum

 

Sub Baotext(layer, loaitext As LOAI_TEXT)

Select Case loaitext

Case LOAI_TEXT.TEXTHOA

... làm cái gì đó

 

Case LOAI_TEXT.TEXTTHUONG

... làm cái gì đó

End Select

End Sub

  • Vote tăng 2

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  

×