Da Gambas-it.org - Wikipedia.
|
|
| (2 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Per disegnare su una ''DrawingArea'' con il mouse due o più punti <SUP>[[[#Note|Nota 1]]&093;</sup> 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 Short
| |
| − | Private StartY As Short
| |
| − | Private punti As New Short[]
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub DrawingArea1_Draw()
| |
| − |
| |
| − | Dim i As Integer
| |
| − |
| |
| − | With Paint
| |
| − | .Brush = .Color(Color.Red)
| |
| − | For i = 0 To punti.Max Step 2
| |
| − | .Arc(punti[i], punti[i + 1], 1.5, Rad(0), Rad(360), False)
| |
| − | .Fill
| |
| − | 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'''
| |
| − | | |
| − | | |
| − | | |
| − | =Note=
| |
| − | [1] Per conoscere le modalità di disegno di un punto su una ''DrawingArea'', vedere questa pagina della wiki:
| |
| − | <BR>https://www.gambas-it.org/wiki/index.php?title=Disegnare_un_punto_su_una_DrawingArea_con_la_Classe_%22Paint%22
| |
Versione attuale delle 19:11, 10 dic 2021
