重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
软糖来告诉你把。vb.net不需要pictureBox来取像素点的颜色。
创新互联服务项目包括龙州网站建设、龙州网站制作、龙州网页制作以及龙州网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,龙州网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到龙州省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
请使用Bitmap.GetPixel(X, Y)方法
Dim bitmap1 As Bitmap
bitmap1 = new Bitmap("C:\1.bmp")
Dim c As Color = bitmap1.GetPixel(0, 0) '取得图像左上角的颜色
要使用GetPixel函数来取得像素的颜色值,代码如下:
1
2
3
4
5
private void button1_Click(object sender, EventArgs e)
{
Color color = new Bitmap(pictureBox1.Image).GetPixel(10, 10);
MessageBox.Show(color.ToString());
point.X是像素值,怎么可能会是小数,当然是整数,你可以这样:
dim x as single, poi as point
x = 3 * Math.Cos(2)
poi.X = x
想取精确值就取x的值
应该是边界溢出了,因为默认是0开始,所以 PictureBox1.Image.Width-1
同理PictureBox1.Image.Height - 1,不然行循环也会溢出
您可以用下面给出这一小段代码检测当前屏幕分辨率,然后根据结果作出反应──例如,重新调整窗体大小以适应用程序户分辨率。
Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean
'
Dim lngTwipsX As Long
Dim lngTwipsY As Long
'
' convert pixels to twips
lngTwipsX = pixelWidth * 15
lngTwipsY = pixelHeight * 15
'
' check against current settings
If lngTwipsX Screen.Width Then
CheckRez = False
Else
If lngTwipsY Screen.Height Then
CheckRez = False
Else
CheckRez = True
End If
End If
'
End Function
Next, run the following code at the start of the program:
If CheckRez(640, 480) = False Then
MsgBox "Incorrect screen size!"
Else
MsgBox "Screen Resolution Matches!"
End If