Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 08 November 2010 - 01:01 AM

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
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#2 KS.PhanThanhTu

KS.PhanThanhTu

    biết vẽ point

  • Members
  • PipPip
  • 97 Bài viết
Điểm đánh giá: 76 (tàm tạm)

Đã gửi 09 November 2010 - 10:30 PM

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
  • 1
KS Phan Thanh Tú.Email: Vansulich@yahoo.com

#3 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 09 November 2010 - 11:08 PM

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
  • 2
Clear sky!

MF Rock collection.

#4 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 12 November 2010 - 12:59 PM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC