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事件过程中。
0条评论