Disegnare in una DrawingArea più punti con il mouse

Da Gambas-it.org - Wikipedia.
Versione del 25 mag 2015 alle 08:42 di Vuott (Discussione | contributi) (Creata pagina con 'Per disegnare su una ''DrawingArea'' con il mouse due o più punti in modo tale che, i punti precedentemente disegnate, restino visibili sulla ''DrawingArea'' ad ogni disegno ...')

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Per disegnare su una DrawingArea con il mouse due o più punti in modo tale che, i punti precedentemente disegnate, restino visibili sulla DrawingArea ad ogni disegno di un nuovo lineo, potremo adottare un codice come il seguente:

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
    .Point(StartX, StartY)
    For i = 0 To punti.Count - 1 Step 2
      .Point(punti[i], punti[i + 1])
    Next           
    .End         
  End With       

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

  DrawingArea1.Refresh()

End


Public Sub DrawingArea1_MouseUp() 
  
  punti.Add(StartX) 
  punti.Add(StartY)

End