Keskustelu: Koodit: VB6: Viivan piirto laite

Dim stat As Boolean
Dim xx, yy, xxx, yyy As Long
Dim piirrä(50) As viivat
Dim määrä As Integer
Private Sub Form_Click()
If (määrä = 50) Then Exit Sub 'estetään piirtämästä liikaa viivoja
If (stat = True) Then 'tallennetaan viivan kordinaatit uudelleen piirtoa varten
With piirrä(määrä)
.x1 = xx
.x2 = xxx
.y1 = yy
.y2 = yyy
End With
määrä = määrä + 1
stat = False 'asetellaan tilaksi uuden pisteen alotus
Else
stat = True 'asetellaan tilaksi viivan lopetus
xx = xxx
yy = yyy
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Refresh
If (stat = True) Then 'Jos tilana loppupisteen asetus ni jatketaan
Line (xx, yy)-(xxx, yyy) 'ja piirretään viiva
End If
Dim i%
For i = 0 To 50
Line (piirrä(i).x1, piirrä(i).y1)-(piirrä(i).x2, piirrä(i).y2) 'piirretään kaikki viivat
Next
xxx = x 'Nämä muuttujat oli mun ratkasu siihen et Form_click() ei sisällä hiiren x ja y kordinaatteja
yyy = y
End Sub