Question

VB判断某点颜色的代码？？

请问用VB怎么判断坐标值为180.90的颜色是不是FFFFFF，完整代码是怎样的？谢谢

Answer 1

Option Explicit

Private Sub Form_Load()
Me.Show
DoEvents
Me.BackColor = &HFFFFFF
If Me.Point(180, 90) = &HFFFFFF Then
MsgBox "Yes"
End If
End Sub

Answer 2

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
h = GetDC(0) '取得整个屏幕的DC
Colr = GetPixel(h, 180, 90) '取颜色
ReleaseDC 0, hdc '释放hDC
If Colr = &Hffffff Then
MsgBox "相同"
Else
MsgBox "不同"
End If
End Sub