Keskustelu: Koodit: VB6: "Täydellinen" piirto-ohjelma

'Formi
Private Sub Form_Load()
   kuva.DrawWidth = 1
   cd.Color = vbBlack
End Sub
Private Sub kuvankoko_Click()
    Dim korkeus As String
    Dim leveys As String
    korkeus = InputBox("Kuvan korkeus", "Korkeus")
    leveys = InputBox("Kuvan leveys", "Leveys")
    If korkeus > "" Then GoTo seuraava1
seuraava1:
    If leveys > "" Then
    kuva.Height = korkeus
    kuva.Width = leveys
    Else
    End If
End Sub

Private Sub paksuus_Change()
kuva.DrawWidth = paksuus.Value
End Sub

Private Sub kuva_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Static vx As Integer, vy As Integer
   If Button = 1 Then
       If vx = 0 Then vx = X
       If vy = 0 Then vy = Y
      kuva.Line (X, Y)-(vx, vy), cd.Color
   End If
   vx = X
   vy = Y
End Sub

Private Sub tallenna_Click()
cd.Action = 2
SavePicture kuva.Image, cd.FileName
End Sub

Private Sub valitsevari_Click()
kuva.Enabled = False
cd.Action = 3
kuva.Enabled = True
End Sub