utilizzo questa funzione per convertire un'immagine in bianco e nero:
Public Function ConvertToGrayscale(ByVal source As Bitmap) As Bitmap
Dim bm As New Bitmap(source.Width, source.Height)
Dim x
Dim y
For y = 0 To bm.Height
For x = 0 To bm.Width
Dim c As Color = source.GetPixel(x, y)
Dim luma As Integer = CInt(c.R * 0.3 + c.G * 0.59 + c.B * 0.11)
bm.SetPixel(x, y, Color.FromArgb(luma, luma, luma))
Next
Next
PictureBox1.Image = bm
Return bm
End Function
mi dà un messaggio d'errore:
Il parametro deve essere positivo e minore di Width.
Nome parametro: x
cosa sbaglio???
se imposto per entrami al posto di
For y = 0 To bm.Height
For x = 0 To bm.Width
metto
For y = 0 To 60 ( o anche un altro valore)
For x = 0 To 60 (o ache un altro valore)
funziona....mi sapete dire dov'è il problema??
grazie!
ci ho smanettato un po' ma non riesco a capire il perchè non va...
Rispondi quotando
