Da Gambas-it.org - Wikipedia.
|
|
Riga 1: |
Riga 1: |
− | Per disegnare su una ''DrawingArea'' con il mouse due o più punti <SUP>[[[#Note|Nota 1]]]</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.Push(StartX)
| |
− | punti.Push(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