• 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

Hiển thị text trên màn hình

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
vinhphuoc91
Thành viên tích cực
Thành viên tích cực
Bài viết: 146
Ngày tham gia: T.Tư 26/03/2008 5:52 pm
Đến từ: Phú Yên
Been thanked: 15 time
Liên hệ:

Hiển thị text trên màn hình

Gửi bàigửi bởi vinhphuoc91 » T.Bảy 05/04/2008 9:31 pm

Thủ thuật: Hiển thị text trên màn hình
Tác giả: Sưu tầm
Mô tả: Thủ thuật giúp bạn hiển thị text trên màn hình Desktop



Add vào module sau :

Mã: Chọn hết

  1. Option Explicit
  2. Private Declare Function CreateDCAsNull Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, lpDeviceName As Any, lpOutput As Any, lpInitData As Any) As Long
  3. Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
  4. Private Type RECT
  5.     Left As Long
  6.     Top As Long
  7.     Right As Long
  8.     Bottom As Long
  9. End Type
  10. Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
  11. Private Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long
  12. Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  13. Public Sub TestDesktopDC()
  14.     Dim hdc As Long
  15.     Dim tR As RECT
  16.     Dim lCol As Long
  17.     hdc = CreateDCAsNull("DISPLAY", ByVal 0&, ByVal 0&, ByVal 0&)
  18.     tR.Left = 0
  19.     tR.Top = 0
  20.     tR.Right = 640
  21.     tR.Bottom = 32
  22.     lCol = GetTextColor(hdc)
  23.     SetTextColor hdc, &HFF&
  24.     DrawText hdc, "Cau Lac Bo Visual Basic", Len("Cau Lac Bo Visual Basic"), tR, 0
  25.     SetTextColor hdc, lCol
  26.     DeleteDC hdc
  27. End Sub
  28.  


Sử dụng nó :

Mã: Chọn hết

  1. TestDesktopDC

:)


My website : http://tinthoitrang.net

Hình đại diện của người dùng
hoangluyen
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 61
Ngày tham gia: T.Năm 03/04/2008 3:26 pm
Đến từ: Hải Hậu - Nam Định
Liên hệ:

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi hoangluyen » T.Sáu 11/04/2008 2:13 pm

Sử dụng nó như thế nào, mình làm mãi không được
..::Chỉ có tình yêu (*) và lao động sẽ làm cho con người trở nên đẹp hoàn mĩ ::..
-------------------------------------------------------------------

Hình đại diện của người dùng
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 319
Ngày tham gia: T.Tư 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 time

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi hdn » T.Sáu 11/04/2008 3:05 pm

Bạn gọi hàm TestDesktopDC trong 1 sự kiện nào đó, ví dụ Form_load()
:|

nowar
Thành viên chính thức
Thành viên chính thức
Bài viết: 33
Ngày tham gia: T.Sáu 21/11/2008 9:45 pm
Đến từ: Tương lai
Been thanked: 1 time
Liên hệ:

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi nowar » T.Bảy 01/08/2009 10:44 pm

sao mình thử nó có vẽ gì ra đâu???
http://teensock.org - Thế giới clips giải trí trực tuyến

Hình đại diện của người dùng
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: CN 17/07/2005 1:40 am
Has thanked: 13 time
Been thanked: 87 time
Liên hệ:

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi vo_minhdat2007 » T.Bảy 01/08/2009 10:53 pm

Đúng là gọi mà nó chẳng hiện =.=

Edit:
À thì ra nó vẽ thật, nhưng phải duy trì sự kiện vẽ, nếu không sẽ bị che mất ngay :))

Hình đại diện của người dùng
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 319
Ngày tham gia: T.Tư 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 time

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi hdn » CN 02/08/2009 11:31 am

form có sự kiện Paint hay Resize gì đó thì bỏ nó vô :))
:|

silver star

Re: Hiển thị text trên màn hình

Gửi bàigửi bởi silver star » T.Sáu 09/10/2009 11:57 am

cho em hỏi tí
1/

Mã: Chọn hết

  1.     tR.Left = 100 ' <--cho nay
  2.     tR.Top = 100 ' <--cho nay
  3.     tR.Right = 640
  4.     tR.Bottom = 32

sao em đổi lại như vậy cái chữ bị che mất tiêu :(
2/ có cách nào cho nền chữ trong suốt không?


Quay về “[VB] Mẹo vặt khác”

Đ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.3 khách