在vb中怎么获取某个象素点的象素值呢？

lwizard 2004-07-22 08:44:23

谢谢
还有pixel下
读出来的图象width和height比实际的多4啊
为什么呢？

...全文

166 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

cqm2099 2004-07-23

打赏
举报

I_168_888 2004-07-23

打赏
举报

Platform SDK: Windows GDI
GetPixel
The GetPixel function retrieves the red, green, blue (RGB) color value of the pixel at the specified coordinates.

COLORREF GetPixel(
HDC hdc, // handle to DC
int nXPos, // x-coordinate of pixel
int nYPos // y-coordinate of pixel
);
Parameters
hdc
[in] Handle to the device context.
nXPos
[in] Specifies the logical x-coordinate of the pixel to be examined.
nYPos
[in] Specifies the logical y-coordinate of the pixel to be examined.
Return Values
The return value is the RGB value of the pixel. If the pixel is outside of the current clipping region, the return value is CLR_INVALID.

Remarks
The pixel must be within the boundaries of the current clipping region.

Not all devices support GetPixel. An application should call GetDeviceCaps to determine whether a specified device supports this function.

Requirements
Windows NT/2000 or later: Requires Windows NT 3.1 or later.
Windows 95/98/Me: Requires Windows 95 or later.
Header: Declared in Wingdi.h; include Windows.h.
Library: Use Gdi32.lib.

ryuginka 2004-07-23

打赏
举报

starsoulxp 2004-07-23

打赏
举报

Visual Basic 对于定义色彩有二种方法：

1、使用定义的常数：

如色彩属性的设定为红色，可以常数 vbRed 表示

2、直接使用色彩设定：

以十六进位数来指定色彩，方式为： &HBBGGRR&

BB是指定蓝色的部分，GG是指绿色，RR则为指定红色。

每个部分都是两位从 00 到 FF 的十六进位数。中间值为 80。

因此，以下的数值将指定灰色，它属于三种色彩的中间部分：&H808080&

上述二种色彩表示方式对应如下：

色彩常数值中文描述英文描述色块样板

vbRed &H0000FF& 红色 Red

vbGreen &H00FF00& 绿色 Green

vbBlue &HFF0000& 蓝色 Blue

vbBlack &H000000& 黑色 Black 　

vbYellow &H00FFFF& 黄色 (红+绿) Yellow

vbMagenta &HFF00FF& 洋红色 (红+蓝) Magenta

Cyan &HFFFF00& 青绿色 (绿+蓝) Cyan

vbWhite &HFFFFFF& 白色 White

上述第 2 种方法，可以衍生出『若知道一值，则如何反算其红、绿、蓝颜色值各为何？』的问题。其计算方法则是反其道而行，计算顺序为首先计算蓝色值、其次为绿色值、最后为红色值。写成模块如下：

Private Sub ReturnRGB(ByVal lngColor As Long, intRed As Integer, intGreen As Integer, intBlue As Integer)

intRed = lngColor Mod 256

intGreen = (lngColor \ 256) Mod 256

intBlue = lngColor \ 256 \ 256

End Sub

BlueBeer 2004-07-22

打赏
举报

//怎么获取某个象素点的象素值呢？

Point 方法

按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。

语法

object.Point(x, y)

Point 方法的语法包含下列部分：

部分描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的 Form 象缺省为 object.
x, y 必需的。均为单精度值，指示 Form 或 PictureBox 的 ScaleMode 属性中该点的水平（x-轴）和垂直（y-轴）坐标。必须用括号包括这些值。

//读出来的图象width和height比实际的多4啊
//为什么呢？

picturebox的width和height是控件本身的宽和高，而不是图像的宽和高
如果你没有使用自定义坐标，在AutoRedraw设为True的前提下，可以用ScaleWidth和ScaleHeight取得图像的宽和高

熊孩子开学喽 2004-07-22

打赏
举报

代码如下：
Dim Color as long
Dim Red as long
Dim Green as Long
Dim Blue as long
Color =Picture1.Point(X, Y) 'X,Y坐标任意，只要在PICTUREBOX范围内
Red = Color and &HFF&
Greed = (Color\256) and &HFF&
Blue =Color\65536

顺便改成楼上的样子：
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Color as long
Color =Picture1.Point(X, Y) '得到鼠标在picture控件上的X,Y坐标处颜色
picture1.tooltips="RED: " & (Color and &HFF) & ",Green:" & ((Color\256) and &HFF) & ",Blue:" & (Color\65536)
End Sub
使用了整除法，速度稍快一点点。

northwolves 2004-07-22

打赏
举报

不知你是不是这个意思：
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim color As Long
color = Picture1.Point(X, Y)
Picture1.ToolTipText = "color=" & color & ": red = " & color Mod 256 & ", green = " & ((color And &HFF00) / 256) Mod 256 & ", blue = " & (color And &HFF0000) / 65536
End Sub

熊孩子开学喽 2004-07-22