一个奇怪的图像灰度问题,高手请进,急啊!!!!!!!

ayuu 2003-05-07 12:50:14
我先将图像中某点(比如说0,0点)的灰度读取出来:
rgb1 = GetPixel(picbox.hdc, 0, 0)
bblue1 = Blue(rgb1)
bred1 = Red(rgb1)
bgreen1 = Green(rgb1)
grayvalue = 0.3 * bred1 + 0.59 * bgreen1 + 0.11 * bblue1'灰度

然后我希望使该点(0,0点)的灰度值提升2,于是:
SetPixelV hdc1, 0, 0, RGB(grayvalue+2,grayvalue+2,grayvalue+2)
SavePicture , App.Path & "\test.bmp"

但是,当我打开重新打开文件,发现,灰度并没有改变。
picbox.picture=loadpicture app.path & "\test.bmp"
rgb1 = GetPixel(picbox.hdc, 0, 0)
bblue1 = Blue(rgb1)
bred1 = Red(rgb1)
bgreen1 = Green(rgb1)
grayvalue = 0.3 * bred1 + 0.59 * bgreen1 + 0.11 * bblue1'灰度
此时的grayvalue还是等于以前的那个。


为什么啊????????

...全文
28 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
tobeatiger 2003-05-08
  • 打赏
  • 举报
回复
我没有遇到过,但可以这样解决
hotbbsun 2003-05-08
  • 打赏
  • 举报
回复
恩,我也遇到过,就是这样解决的
wxj_lake 2003-05-07
  • 打赏
  • 举报
回复
首先设置AutoRedraw为True
然后用SavePicture Picture1.Image, App.Path & "\test.bmp"
rainstormmaster 2003-05-07
  • 打赏
  • 举报
回复
up
pipipig 2003-05-07
  • 打赏
  • 举报
回复
对,同意

save好后AutoRedraw设回false

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧