Tekenen in picturebox

Status
Niet open voor verdere reacties.

CDirk

Nieuwe gebruiker
Lid geworden
16 dec 2014
Berichten
2
Hallo allemaal,
Ik probeer iets te maken waar ik niet aan uit geraak.
Bedoeling is te gaan tekenen in picturebox1, om vervolgens te inhoud van deze tekening ook in picturebox2 en 3 te plaatsen met andere afmetingen.
Na de procedure 'TekenBox' zie ik wel degelijk een rode box op het scherm. Maar op de regel erna, krijg ik een melding dat Picturebox1.image leeg is
Hoe krijg ik de inhoud van picturebox1 ook in de ander boxen?
Wat doe ik verkeerd:

Code:
Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    PictureBox1.Size = New Size(450, 300)
    PictureBox2.Size = New Size(150, 100)
    PictureBox3.Size = New Size(210, 140)
    '
    PictureBox1.BackColor = Color.White
    PictureBox3.BackColor = Color.White
    PictureBox2.BackColor = Color.White
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TekenBox()
    ' rode box zichtbaar op het scherm

    ' volgende regel geeft een fout
    PictureBox2.Image = New Bitmap(PictureBox1.Image, PictureBox2.Width, PictureBox2.Height)
  End Sub

  Sub TekenBox()
    Dim Gr As Graphics = PictureBox1.CreateGraphics()
    Gr.FillRectangle(New SolidBrush(Color.Red), 20, 20, 100, 100)
    Gr.Dispose()
  End Sub

End Class

Dirk
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan