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:
Dirk
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