Salve, sto realizzando un programma di fotografia e avrei bisogno di una mano per quanto riguarda il contrasto. Sono riuscito a settare correttamente l'opzione per la luminosità modificando le componenti RGB di ogni pixel. Ottenendo questi valori come posso modificare il contrasto? Questo è quello che faccio per la luminosità:
Public Function rgb(ByVal image As Bitmap, r As Integer, g As Integer, b As Integer)
On Error Resume Next
ProgressBar1.Value = 0
ProgressBar1.Maximum = image.Height * image.Width
Dim x As Integer
Dim y As Integer
For x = 0 To image.Width
For y = 0 To image.Height
Dim rosso As Integer = image.GetPixel(x, y).R
Dim giallo As Integer = image.GetPixel(x, y).G
Dim blu As Integer = image.GetPixel(x, y).B
rosso = rosso + r
giallo = giallo + g
blu = blu + b
If rosso > 255 Then
rosso = 230
End If
If giallo > 255 Then
giallo = 230
End If
If blu > 255 Then
blu = 230
End If
If rosso < 20 Then
rosso = 100
End If
If giallo < 20 Then
giallo = 100
End If
If blu < 20 Then
blu = 100
End If
Dim cr As New Color
cr = Color.FromArgb(rosso, giallo, blu)
image.SetPixel(x, y, cr)
ProgressBar1.Increment(1)
Next
Next
Return image
End Function