一个图像滤光处理程序

一个图像滤光处理程序

 　　滤光处理是图像处理的一个重要组成部分，通俗地讲，图像的滤光处理就是透过某种颜色的玻璃去观看图像时的效果。本人用VB5编程实现了图像的滤光处理，既可以用单独的红色、绿色、蓝色进行滤光，也可以用这三种颜色的任意组合颜色实现滤光，而且任何一种颜色都可以随便调整强度，效果颇佳。下面具体介绍实现方法。

　　首先新建一个窗体Form1，并创建一个PictureBox控件，把Picture1的Picture属性设置为一副图像。接着引入WINDOWS的两个API函数，并在代码窗体的起始位置声明：

 

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, _

　ByVal x As Long,ByVal Y As Long)As Long

Private Declare Function SetPixelV Lib "gdi32" (ByVal hDC As Long, _

　ByVal x As Long,ByVal Y As Long,ByVal crColor As Long) As Long

 

　　然后在Picture1的下方按水平方向连续创建三个TextBox控件，名称都设为Txt,Index属性分别为1、2、3,Text属性为空。和三个TextBox相对应，在其下方创建三个HScrollBar控件，名称都设为HS1，Index属性分别为1、2、3，Min和Value都设为0，SmallChange都设为2，LargeChange都设为10，Max都设为100。和三个HScrollBar相对应，在其下方创建三个Label控件，Caption属性分别设为“红色滤光”、“绿色滤光”、“蓝色滤光”。以上相对应的三组控件都要上下紧挨、大小适中。双击任何一个HScrollBar控件，在HS1_Change()事件中添入下列代码：

 

Private Sub HS1_Change(Index As Integer)

　　Txt(Index).Text = CStr(HS1(Index).Value)+"%"

End Sub

 

　　最后在Form1窗体的正下方创建一个CommandButton控件，名称设为ComLg，Caption属性设为“滤光处理”。双击该按钮，在ComLg_Click()事件中添入下列代码：

 

Private Sub ComLg_Click()

　　Dim hDCp, Wdh, Hgh, RedC, GreenC, BlueC, Rgbp As Long

　　Wdh = Picture1.ScaleWidth

　　Hgh = Picture1.ScaleHeight

　　hDCp = Picture1.hDC

　　For i& = 1 To Wdh

　　　　For j& = 1 To Hgh

　　　　　　Rgbp = GetPixel(hDCp,i&,j&) '获取图像上某点的像素值

　　　　　　RedC = Rghp And & HFF

　　　　　　GreenC = ((Rgbp And & HFF00)/256&) Mod 256&

　　　　　　BlueC = (Rgbp And & HFF0000)/65536

　　　　　　RedC = Ys(RedC + HS1(1).Value / 2 * 5)

　　　　　　GreenC = Ys(GreenC + HS1(2).Value / 2 * 5)

　　　　　　BlueC = Ys(BlueC + HS1(3).Value / 2 * 5)

　　　　　　Rgbp = RGB(RedC, GreenC, BlueC)

　　　　　　SetpixelV hDCp, i&, j&, Rgbp

　　　　Next j&

　　Next i&

　　MsgBox "图像复位后可再次进行滤光",0,"图像复位"

　　For i& = 1 To 3

　　　　HS1(i&).Value = 0

　　　　Txt(i&).Text = "0%"

　　Next i&

　　Set Picture1.Picture=Picture1.Image

End Sub

 

　　另外，还需加入一个校验颜色值的子函数：

 

Private Function Ys(ByVal mColor As Long) As Long

　　If mColor > 255& Then

　　　　Ys = 255

　　ElseIf mColor < 0 Then

　　　　Ys = 0

　　Else

　　　　Ys= mColor

　　End If

End Function

 

　　Form_load()事件中添入下列代码：

 

Private Sub Form_Load()

　　Form1.ScaleMode = 3

　　Picture1.ScaleMode= 3

　　Picture1.AutoRedraw = True

　　For i% = 1 To 3

　　　　Txt(i%).Text = "0%"

　　Next i%

　　Picture1.AutoRedraw = False

End Sub

 

　　按F5运行后，随便选择一种颜色或几种颜色的组合，并自由调整滤光颜色的强度，然后按下“滤光处理”按钮，即可进行滤光。