VB从图片框控件取得颜色

Point方法返回图片框控件中指定的X，Y坐标处的颜色。要获取鼠标指针位置的颜色，应该将这样的代码放入控件的MouseMove事件过程中。MouseMove过程将被传递给指针的当前X，Y坐标，这使得这段代码很简单:

private Sub picture 1 _ MouseMove(Button为整数，_
Shift为整数，X为Single，Y为Single)

将rgb调暗为长

rgb =图片1。点(X，Y)

末端接头

Point方法返回的值是一个Long类型的值，它对用于颜色的RGB值进行编码。为了有效使用，这个编码值必须分成独立的R、G和B分量，每个分量都是十进制0-255或十六进制00-FF范围内的整数。如果使用十六进制表示，则Point返回的值为:

00BBGGRR

使用十六进制符号将使颜色选择更容易。如果RGB是Point方法返回的值，那么下面是这个提取操作如何工作的细节:

红色= rgb模块&H100
绿色= (rgb \ &H100)模块&H100
蓝色= (rgb \ &H10000)模块&H100

这里显示了最终的MouseMove事件过程。要查看这个过程的实际使用，我们应该创建一个标准的EXE项目，并在窗体上放置一个图片框和一个文本框。将图像上传到图片框，然后运行项目。当鼠标移动到该图像上时，指针处像素的RGB值将显示在文本框中。

private Sub picture 1 _ MouseMove(Button为整数，_
Shift为整数，X为Single，Y为Single)

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

rgb =图片1。Point(X，Y)
r = CStr(RGB Mod & H100)
g = CStr((RGB \ & H100)Mod & H100)
b = CStr((RGB \ & h 10000)Mod & H100)

文本1。Text = "R " & r & "，G " & g & "，B " & b

末端接头

如果只想查看所单击像素的RGB值，可以将相同的代码放入MouseDown事件过程中。