如何用VB设置图片的对比度

Question

如何用VB设置图片的对比度?

Answer 1

Public Sub BrightnessAndContrast(ByVal RedOffset As Long, ByVal GreenOffset As Long, ByVal BlueOffset As Long, Optional ByVal RedContrast As Single = 1, Optional ByVal GreenContrast As Single = 1, Optional ByVal BlueContrast As Single = 1) 
　 Dim X As Long 
　 Dim Y As Long 
　 Dim MidR As Integer 
　 Dim MidG As Integer 
　 Dim MidB As Integer 
　 Dim Max As Long 
　 On Error GoTo ErrLine 
　 Done = False 
　 TimeFilter = timeGetTime 
　 MidR = RedOffset - 127 * (RedContrast - 1) '计算新的位移量B 
　 MidG = GreenOffset - 127 * (GreenContrast - 1) 
　 MidB = BlueOffset - 127 * (BlueContrast - 1) 
　 Max = 255 
　 For X = 0 To OutPutWid 
　　 For Y = 0 To OutPutHei 
　　　 R = ColOut(2, X, Y) 
　　　 G = ColOut(1, X, Y) 
　　　 B = ColOut(0, X, Y) 
　　　 R = R * RedContrast + MidR '计算Y = X * A + B 
　　　 G = G * GreenContrast + MidG 
　　　 B = B * BlueContrast + MidB 
　　　 If R > Max Then R = Max '输出值判断是否在0到255之间 
　　　 If R < 0 Then R = 0 
　　　 If G > Max Then G = Max 
　　　 If G < 0 Then G = 0 
　　　 If B > Max Then B = Max 
　　　 If B < 0 Then B = 0 
　　　 ColOut(2, X, Y) = R 
　　　 ColOut(1, X, Y) = G 
　　　 ColOut(0, X, Y) = B 
　　 Next 
　 Next 
　 Done = True 
　 TimeFilter = timeGetTime - TimeFilter 
　 Exit Sub 
ErrLine: 
　 MsgBox Err.Description 
　 Done = True 
End Sub 
详见：http://www.bc-cn.net/Article/kfyy/vb/jszl/200512/1936.html

Answer 2

你们好！“电厂生产管理系统”本人刚刚完成，需要的朋友可以与我联系，我用QQ直接发给你，打包后有30M，源码只有2.5M，呵。。我的QQ：450939943

Answer 3

给楼主一人高人写的链接，是关于图像处理的！跟二楼的类似！
http://www.tttcn.cnhttp://www.tttcn.cn/blog/1914/archives/2006/11113.html

Answer 4

谢谢楼上的推荐,不高,才一米七由于BLOG空间发生问题,无法从首页联接,只能从
http://www.tttcn.cn/blog/1914/cmd.html?do=blogs&id=1843&uid=1914 进入了.
代码不重要,主要看算法说明.

Answer 5

另外,这个BLOG排版不是很好,可以到CSDN的BLOG上看到比较完整的内容:
http://blog.csdn.net/WallesCai/如果对楼主有所帮助就好,分给楼上推荐的那位吧,不用给我了

Answer 6

刚发现,一楼的代码也是从我的BLOG上转过去的,呵呵

Answer 7

那个TTTCN的BLOG破产了,现在可以去下面的地址看:http://blog.yesky.com/Blog/wallescai