取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G As Long, B As Long Private Sub Form_Load() Picture1.ScaleMode =
取色器，VB，源代码，教你如何使用 Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function DeleteO
