Versione delle 09:30, 4 dic 2018

Per disegnare su una DrawingArea con il mouse due o più linee in modo tale che, le linee precedentemente disegnate, restino visibili sulla DrawingArea ad ogni disegno di una nuova linea, potremo adottare un codice come il seguente: ^{[Nota 1]}

Private OldX As Single   
Private OldY As Single   
Private StartX As Single   
Private StartY As Single   
Private punti As New Integer[] 
  

Public Sub DrawingArea1_Draw()   
  
 Dim i As Integer 
  
 With Draw
   .Foreground = Color.Red
   .Line(StartX, StartY, OldX, OldY)             
   For i = 0 To punti.Max Step 4 
     .Line(punti[i], punti[i + 1], punti[i + 2], punti[i + 3])         
   Next           
   .End         
 End With       

End  
  
  
Public Sub DrawingArea1_MouseDown()     
  
  StartX = Mouse.X   
  StartY = Mouse.Y   
  OldX = StartX   
  OldY = StartY         
  
End

  
Public Sub DrawingArea1_MouseMove() 
  
  OldX = Mouse.X   
  OldY = Mouse.Y   

  DrawingArea1.Refresh()     
  
End   


Public Sub DrawingArea1_MouseUp() 
  
  punti.Push(StartX) 
  punti.Push(StartY) 
  punti.Push(OldX) 
  punti.Push(OldY)
   
End

Note

[1] Il codice è stato realizzato dall'utente Gianluigi del forum gambas-it.org .