UC知道VB颜色提取
来源：百度知道 编辑：UC知道 时间：2024/06/05 07:48:06
用VB提取图片中的字体颜色 底片是白色,字体是黑色的,刚学VB 不太会啊!1 高手帮帮忙
加入一个TextBox控件,一个Command控件
代码:
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long
Private Sub Command1_Click()
Dim Color As Long
WindowDC = GetWindowDC(0) '获取屏幕的设备场景
Color = GetPixel(WindowDC, 500, 100) '获指定点的颜色
'分解RGB颜色值
R = (Color Mod 256) '红色
b = (Int(Color \ 65536)) '蓝色
G = ((Color - (b * 65536) - R) \ 256) '绿色
Text1.BackColor = RGB(R, G, b)
End Sub
'这是我写的完整带注释的程序,你看下吧
http://www.dewsun.com/Soft/ShowSoft.asp?SoftID=16