• 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

Lấy màu tại vị trí chuột

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
tindl88
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 363
Ngày tham gia: T.Bảy 26/04/2008 6:10 pm
Has thanked: 16 time
Been thanked: 10 time

Lấy màu tại vị trí chuột

Gửi bàigửi bởi tindl88 » CN 01/06/2008 8:11 pm

Thủ thuật: Lấy màu tại vị trí chuột
Tác giả: tindl88
Mô tả: Lấy màu tại vị trí chuột


[vb]
  1. 'Thêm vào Form 1 Timer(Interval =100), 1 Picture Box
  2. 'Tác giả: tindl88
  3.  
  4. Option Explicit
  5.  
  6. Private Type POINTAPI
  7.         x As Long
  8.         y As Long
  9. End Type
  10.  
  11. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  12. Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  13. Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
  14.  
  15. Private Sub Timer1_Timer()
  16.     Dim Area As POINTAPI
  17.     Dim lColor As String
  18.     Dim winHwnd As Long
  19.    
  20.     winHwnd = GetWindowDC(0)
  21.     Call GetCursorPos(Area)
  22.     lColor = GetPixel(winHwnd, Area.x, Area.y)
  23.     Picture1.BackColor = lColor
  24. End Sub
[/vb]


cứng nhắc...vớ vẩn

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Lấy màu tại vị trí chuột

Gửi bàigửi bởi clarkkent » T.Hai 02/06/2008 12:58 pm

=D> Hay ! Cái này hay... :D
Cảm ơn nghen... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

trunghieu
Bài viết: 3
Ngày tham gia: T.Tư 07/05/2008 2:17 pm

Re: Lấy màu tại vị trí chuột

Gửi bàigửi bởi trunghieu » T.Ba 21/10/2008 5:29 pm

Có thể chuyển màu lại thành 3 số RGB :
R = (lColor Mod 256)
B = Int(lColor \ 65536)
G = (lColor - B * 65536 - R) \ 256


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