

Public Class Form1
Function A(Bmp As Bitmap, Offest As Integer) As Bitmap
For i As Integer = 0 To Bmp.Width - 1 *遍历每一列
For j As Integer = 0 To Bmp.Height - 1 *遍历每一行
Dim Color As Color = Bmp.GetPixel(i, j) *获取当前像素点上的颜色
Dim R As Integer = Math.Min(255, Math.Max(0, Color.R + Offest)) *获取颜色的Red
Dim G As Integer = Math.Min(255, Math.Max(0, Color.G + Offest)) *获取颜色的Green
Dim B As Integer = Math.Min(255, Math.Max(0, Color.B + Offest)) *获取颜色的Blue
Bmp.SetPixel(i, j, Color.FromArgb(R, G, B)) *设置颜色
Next
Next
Return Bmp *返回Bmp
End Function
Private Sub TrackBar1_MouseUp(sender As Object, e As MouseEventArgs) Handles TrackBar1.MouseUp
PictureBox1.Image = A(PictureBox1.Image, TrackBar1.Value - 128)
End Sub
End Class