• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Print text tại một vị trí có tọa độ xác định

Các thủ thuật về âm thanh, đồ họa, truyền thông đa phương tiện...
Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Print text tại một vị trí có tọa độ xác định

Gửi bàigửi bởi Dang Minh Du » CN 09/08/2009 2:50 pm

Thủ thuật: Print text tại một vị trí có tọa độ xác định (lên form, picturebox, ...) (tương đối)
Tác giả: Đặng Minh Dự
Mô tả: 'Hàm dưới đây sẽ print lên DrwObj một đoạn text là sText từ vị trí posX, posY.



Mã: Chọn hết

  1. Private Function PrintAPos(posX As Single, posY As Single, sText As String, DrwObj As Variant)
  2.     Dim iLine As Integer: iLine = DrwObj.TextHeight(vbCrLf)
  3.     Dim iSpace As Integer: iSpace = DrwObj.TextWidth(" ")
  4.     Dim i As Integer
  5.     For i = 0 To posY \ iLine
  6.          DrwObj.Print vbCrLf
  7.     Next i
  8.     For i = 0 To posX \ iSpace
  9.         sText = " " & sText
  10.     Next i
  11.      DrwObj.Print sText
  12. End Function
  13. 'Có thể thay vbCrLf bằng " ", có thể thêm Int() để lấy nguyên kết quả các phép chia cho "chặt chẽ" (cũng ko cần thiết lắm!)
  14. 'Test:
  15. Private Sub Form_Load()
  16.     PrintAPos 1000, 1000, "My ''Cute Grass''", frm
  17. End Sub


~°Dòng Sông Mùa Thu°~
Studying...!

Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 time
Been thanked: 69 time
Liên hệ:

Re: Print text tại một vị trí có tọa độ xác định

Gửi bàigửi bởi vietteiv » T.Hai 10/08/2009 12:52 pm

bạn xem lại đoạn code trên nhé. bị lỗi nè
error.JPG

Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Re: Print text tại một vị trí có tọa độ xác định

Gửi bàigửi bởi Dang Minh Du » T.Hai 10/08/2009 1:02 pm

vietteiv đã viết:bạn xem lại đoạn code trên nhé. bị lỗi nè
error.JPG

"Object required" - a đặt form tên là frm chưa?
DrwObj là đối tượng cần print text lên, code test dùng đối tượng form, tên là frm!
~°Dòng Sông Mùa Thu°~
Studying...!


Quay về “[VB] Âm thanh và Đồ họa”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách