[VB] Wie ruft man diese Function auf?

[EasyFarm]

Hi.

Kleines problem ^^
Ich habe 3 Pictureboxen, 2 möchte ich kombinieren und in der 3 anzeigen.
So sieht meine Function aus:

 Private Function ImageAddColorEffect(image1 As Bitmap, image2 As Bitmap) As Bitmap
        Dim NewBitmap As New Bitmap(image1.Width, image1.Height)
        For X As Integer = 0 To image1.Width - 1
            For Y As Integer = 0 To image1.Height - 1
                Dim R As Integer = Math.Min(CInt(image1.GetPixel(X, Y).R) + image2.GetPixel(X, Y).R, 255)
                Dim G As Integer = Math.Min(CInt(image1.GetPixel(X, Y).G) + image2.GetPixel(X, Y).G, 255)
                Dim B As Integer = Math.Min(CInt(image1.GetPixel(X, Y).B) + image2.GetPixel(X, Y).B, 255)
                Dim NewColor As Color = Color.FromArgb(R, G, B)
                NewBitmap.SetPixel(X, Y, NewColor)
            Next
        Next
        Return NewBitmap
    End Function

Doch wie rufe ich diese auf?

Danke :S
Mfg. Easy

[tolio]

die bilder aus box 1 und 2 zu bitmaps machen und als parameter angeben und das ergebniss in box 3 ausgeben

wenn dir das nicht klar ist lass sein was auch immer du da tust sein, gehe zurück auf los und fang mit programmieren lernen von vorne an

[VBJ]

PictureBox3.Image = ImageAddColorEffect(PictureBox1.Image, PictureBox2.Image)

Ungetestet!

[tolio]

^afaik ist ein image ist vom typ image und nicht bitmap

[VBJ]

Dann:

Dim bmp as Bitmap = PictureBox1.image
Dim bmp2 as Bitmap = PictureBox2.image
PictureBox3.Image = ImageAddColorEffect(bmp, bmp2)

[tolio]

nen image ist immernoch kein bitmap

option strict und sowas
es gibt mit sicherheit entsprechende methoden die die image oder bitmap klassen bereitstellen um das zu konvertieren, aber mit nem gleich ist es nicht getan, implizierte konvertierung, vorallem bei komplexen typen kann gewaltig schief gehen

[qkuh]

Dim bmp As Bitmap = DirectCast(pictureBox1.Image, Bitmap)
Dim bmp2 As Bitmap = DirectCast(pictureBox2.Image, Bitmap)
pictureBox3.Image = ImageAddColorEffect(bmp, bmp2)

So ist es richtig.

[tolio]

ich würde den konstruktor direkt nutzen

dim bmp as bitmap = new bitmap(image)