Hallo,
ich habe im Paint-Event einer PictureBox1 ein Bild erstellt. Hierzu wurden alle Einzelbilder einer Liste aneinander gereiht.
Das Bild wird in der PictureBox1 ohne Probleme angezeigt.
Jetzt würde ich gerne per Button1 einen Teil aus PictureBox1 per Paint Event in PictureBox2 Zeichen.
PictureBox2.Size wurde bereits im Paint-Event von PictureBox1 definiert.
PictureBox1.Image ist leider = Nothing
Was mache ich falsch?
*Topic verschoben, das ist kein VBScript*
ich habe im Paint-Event einer PictureBox1 ein Bild erstellt. Hierzu wurden alle Einzelbilder einer Liste aneinander gereiht.
Das Bild wird in der PictureBox1 ohne Probleme angezeigt.
Jetzt würde ich gerne per Button1 einen Teil aus PictureBox1 per Paint Event in PictureBox2 Zeichen.
PictureBox2.Size wurde bereits im Paint-Event von PictureBox1 definiert.
VB.NET-Quellcode
- Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint
- With e.Graphics
- Dim bmp As New Bitmap(PictureBox1.Image)
- Dim tmpBrush As New TextureBrush(bmp)
- .FillRectangle(tmpBrush, New Rectangle(New Point(Index * PictureBox2.Width, 0), New Size(PictureBox2.Width, PictureBox2.Height)))
- End With
- End Sub
PictureBox1.Image ist leider = Nothing
Was mache ich falsch?
*Topic verschoben, das ist kein VBScript*
Das Chaos beginnt mit komprimierter Ordnung (Steppenpferd 2019)
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()