11. juli 2005 - 10:30Der er
5 kommentarer og 1 løsning
Indsætte prikker på billede
Jeg har brug for at vise et billede og på dette billede kunne indsætte nogle prikker. For at løse dette har jeg gjort følgende: ' Visning af billede Dim bmp As New Bitmap("small2.jpg") Dim gr As Graphics = PictureBox1.CreateGraphics Dim p1 As New Pen(Color.Blue, 3) gr.DrawImage(bmp, 0, 0, BmpWidth, BmpHeight)
' Visning af en "prik" på billedet gr.DrawLine(p1, x1, y1, x2, y2)
Mit problem er så at både billedet og prikkerne forsvinder hvis jeg fjerner fokus fra formen? Hvad er årsagen til dette og hvordan kan det løses ?
Jeg ville nok vælge at placere al tegne-kode i PictureBox'ens Paint event:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Visning af billede Dim bmp As New Bitmap("small2.jpg") Dim gr As Graphics = e.Graphics Dim p1 As New Pen(Color.Blue, 3) gr.DrawImage(bmp, 0, 0, BmpWidth, BmpHeight)
' Visning af en "prik" på billedet gr.DrawLine(p1, x1, y1, x2, y2) End Sub
Læg mærke til at jeg benytter det Graphics objekt, som ligger i event parametren 'e'. Dvs. jeg har udskiftet "PictureBox1.CreateGraphics" med "e.Graphics". Håber det kan bruges.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.