Hi,
ich möchte eine BackgroundImage kopieren:
If Me.FindForm.BackgroundImage IsNot Nothing Then
Dim gr As Graphics = Graphics.FromImage(Me.pic.Image)
gr.DrawImage(Me.Parent.BackgroundImage, New Rectangle(0, 0, Me.Width, Me.Height), New Rectangle(Me.Location.X, Me.Location.Y, Me.Width, Me.Height), GraphicsUnit.Pixel)
End If
funktioniert auch, es sei den, dass Property BackgroundImageLayout ist auf Stretched gesetzt, dann wird das Image nur mit der Original Größe kopiert und die Koordinaten passen natürlich nicht mehr.
Kennt jemand eine Möglichkeit den richtigen Bereich zu kopieren, wenn das Image gestretched wurde?
Danke,
Andre