Ja og det gøres sådan her: (indsættes i form_activate)
Private Sub Form_Activate() ' Gør sådan at det der er tegnet ikke forsvinder Picture1.AutoRedraw = True
' Antal pixels i brede og højde Picture1.ScaleHeight = 100 Picture1.ScaleWidth = 100
' Baggrundsfarven Picture1.BackColor = 0
' Opdater DoEvents
' Farven Dim Col As Double ' Bliver hvid Col = RGB(255, 255, 255)
' Tegner For x = 0 To Picture1.ScaleWidth Picture1.Line (x, 0)-(x, Picture1.ScaleHeight), Col For y = 0 To Picture1.ScaleHeight Picture1.Line (0, y)-(Picture1.ScaleWidth, y), Col Next Next
' Færdig!
Me.Caption = "Lavet af KantoRaZa." ' /KantoRaza\ End Sub
Det, jeg tænker på, er ligesom programmet MSPaint. Når man forstørrer det, har man mulighed for at vise et gitter, så man kan tegne en pixel ad gangen.
Jo, jeg kan tegne gitteret, men er der ikke en egenskab, metode eller lignende ved en picturebox, der lader en lave et gitter?
Og hvis jeg nu vil lave et tegne område, der er 50x50 pixler, bliver det jo alt for lille, hvis det bliver i naturlig størrelse. Så jeg vil f.eks. gerne lave pictureboxen til 250x250, men hvordan gør jeg så sådan, at hver pixel, man tegner, i virkeligheden bliver 5x5 pixler på tegneområdet?
Jeg er ikke helt sikker på vi snakker om det samme...hvis du med ramme mener en sort firkant, er det noget andet, du tænker på. Jeg mener den plads der er fra billedet og ud til knappens sider
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.