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 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'''