Differenze tra le versioni di "Disegnare in una DrawingArea più punti con il mouse"

Versione attuale delle 19:11, 10 dic 2021

Reindirizza a:

@@ Riga 1: / Riga 1: @@
-Per disegnare su una ''DrawingArea'' con il mouse due o più punti in modo tale che, i punti precedentemente disegnati, restino visibili sulla ''DrawingArea'' ad ogni disegno di un nuovo punto, potremo adottare un codice come il seguente:
+#REDIRECT [[Disegnare_a_mano_libera_linee_e_punti_in_una_DrawingArea]]
- Private StartX As Single
- Private StartY As Single
- Private punti As New Integer[]
- '''Public''' Sub DrawingArea1_Draw()
-  Dim i As Integer
-  With Paint
-    For i = 0 To punti.Max Step 2
-      .FillRect(punti[i], punti[i + 1], 2, 2, Color.Red)
-    Next
-    .End
-  End With
- '''End'''
- '''Public''' Sub DrawingArea1_MouseDown()
-  StartX = Mouse.X
-  StartY = Mouse.Y
- '''End'''
- '''Public''' Sub DrawingArea1_MouseUp()
-  punti.Add(StartX)
-  punti.Add(StartY)
-  DrawingArea1.Refresh()
- '''End'''