• 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

Vẽ hình, viết chử lên màn hình

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Vẽ hình, viết chử lên màn hình

Gửi bàigửi bởi QuangHoa » T.Hai 07/04/2008 8:56 am

Thủ thuật: Vẽ hình, viết chử lên màn hình
Tác giả: Sưu tầm
Mô tả: Vẽ hình, viết chử lên màn hình


Mở form mới, đem 1 cái timer vô, sau đó dán mã vào, F5 xem thử: :)

Mã: Chọn hết

  1.  
  2. Private Declare Function GetDesktopWindow Lib "user32" () As Long
  3. Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  4. Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
  5. Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
  6. Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
  7. Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  8. Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  9. Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  10. Private Sub Form_Load()
  11. Timer1.Interval = 100
  12. Form1.Show
  13. Timer1.Interval = 60
  14. Form1.WindowState = vbMinimized
  15. End Sub
  16. Private Sub Timer1_Timer()
  17. Dim dc As Long
  18. dc = GetWindowDC(GetWindow(GetDesktopWindow(), 1))
  19. a = TextOut(dc, Rnd * 900, Rnd * 500, "Caulacbovb.com", 14)
  20. a = LineTo(dc, 1000, 2000)
  21. End Sub
  22.  


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 518 time

Re: Vẽ hình, viết chử lên màn hình

Gửi bàigửi bởi truongphu » T.Hai 07/04/2008 4:41 pm

1- Vinhphuoc91 cũng gởi một bài cùng đề tài trong thư mục nầy
2- nếu căn cứ vào code hoạt động được, bạn khai báo dư 3 hàm API: GetDC, SetPixel và GetPixel
và Timer1.Interval = 60
3- Khi thoát nên có thêm hàm refresh desktop vì chúng nó vẽ bậy lên màn hình nhiều quá!
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

giongto35
Thành viên danh dự
Thành viên danh dự
Bài viết: 194
Ngày tham gia: T.Năm 19/04/2007 10:17 am
Đến từ: Đà Nẵng City
Been thanked: 1 time
Liên hệ:

Re: Vẽ hình, viết chử lên màn hình

Gửi bàigửi bởi giongto35 » T.Hai 07/04/2008 9:18 pm

Code Refresh desktop là
Private Declare Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
________________________________________________________________________________________________
. . . . . . . . . . . . .. .


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