Point方法返回图片框控件里指定X,Y坐标处的颜色。要获得鼠标指针所在位置的颜色,就要将这样的代码放入用户该控件的MouseMove事件过程里。MouseMove过程会被传递给指针的当前X,Y坐标,这就让这段代码变容易了:
PrivateSubPicture1_MouseMove(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
DimrgbAsLong
rgb=Picture1.Point(X,Y)
EndSub
Point方法所返回的值是一个Long类型,它会给用于颜色的RGB值编码。为了能够被有效地使用,这个被编码的值必须被分成独立的R、G、B组件,它们每个都十进制0-255或者十六进制00-FF范围内的的一个整数。如果使用十六进制表示的话,那么Point返回的值就是:
00BBGGRR
使用十六进制标示法会让颜色的提取操作变容易。如果RGB是由Point方法返回的值,那么下面就是这个提取操作如何进行的细节:
red=rgbMod&H100
green=(rgb&H100)Mod&H100
blue=(...[ 查看全文 ]