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

[ketxu 2.984]

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

[KS.PhanThanhTu 76]

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

[anhcos 196]

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

[ketxu 2.984]

Đúng y ý em rồi ấy ạ.Cảm ơn 2 bác ^^