VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 从图片框控件取得颜色
发表评论(0)作者:Peter Aitken, 平台:VB6.0+Win98, 阅读:10773, 日期:2003-08-29
    如果想要显示各种类型的图形图像,那么你可以使用图片框(Picture Box)控件。你甚至可以使用这样一种技术,它能够让你确定(取得)图像任何一个点的颜色。  

Point方法返回图片框控件里指定X,Y坐标处的颜色。要获得鼠标指针所在位置的颜色,就要将这样的代码放入用户该控件的MouseMove事件过程里。MouseMove过程会被传递给指针的当前X,Y坐标,这就让这段代码变容易了:

Private Sub Picture1_MouseMove(Button As Integer, _
   Shift As Integer, X As Single, Y As Single)

Dim rgb As Long

rgb = Picture1.Point(X, Y)

End Sub

Point方法所返回的值是一个Long类型,它会给用于颜色的RGB值编码。为了能够被有效地使用,这个被编码的值必须被分成独立的R、G、B组件,它们每个都十进制0-255或者十六进制00-FF范围内的的一个整数。如果使用十六进制表示的话,那么Point返回的值就是:

00BBGGRR

使用十六进制标示法会让颜色的提取操作变容易。如果RGB是由Point方法返回的值,那么下面就是这个提取操作如何进行的细节:

red = rgb Mod &H100
green = (rgb \ &H100) Mod &H100
blue = (rgb \ &H10000) Mod &H100

在这里,最终的MouseMove事件过程显示了出来。要看到这个过程的实际使用,就要创建一个标准的EXE项目,并在表单上放一个图片框和一个文本框(Text Box)。将图像上传到图片框里,然后运行该项目。当鼠标移动到这个图像上的时候,文本框里就会显示指针处像素的RGB值。

Private Sub Picture1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)

Dim rgb As Long
Dim r As String, g As String, b As String

rgb = Picture1.Point(X, Y)
r = CStr(rgb Mod &H100)
g = CStr((rgb \ &H100) Mod &H100)
b = CStr((rgb \ &H10000) Mod &H100)

Text1.Text = "R " & r & ", G " & g & ", B " & b

End Sub

如果你只想看到你点击到的那个像素的RGB值,你可以将相同的代码放到MouseDown事件过程里。