Zitat:

Salut, naja, das wäre etwas arg aufwändig. Mit ein bisschen Überlegung bekommt man einen deutlich effizienteren Algorithmus hin. Habe das ganze dann auch gleich implementiert. Auf meiner Tippseite Find a rectangle of a given color within a bitmap findest du sowohl die Idee als auch die Funktion. Das Rechteck, dass dir zurückgeben wird, musst du dann nur an die entsprechende DrawImage-Überladung übergeben. Stefan

    Private Sub GenerateImage()
        Dim g As Graphics
        Dim b1 As Bitmap
        Dim b2 As Bitmap
 
        Dim selectedFile As String = DirListBox.SelectedItem.ToString
        Dim selectedFilePath As String = Path.Combine(DirListBox.Tag.ToString, _
          selectedFile)
        Dim loadedImage As Image = Image.FromFile(selectedFilePath)
 
        b1 = New Bitmap(loadedImage)
        b2 = New Bitmap(MotivBox.Image) 
        b2.MakeTransparent(Color.White)
        g = Graphics.FromImage(b1)
 
        g.DrawImage(b2, 0, 0)
        CompletePicBox.Image = b1 
        g.Dispose() 
    End Sub