Differenze tra le versioni di "Disegnare in una DrawingArea più punti con il mouse"
Da Gambas-it.org - Wikipedia.
(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 ...') |
|||
Riga 1: | Riga 1: | ||
− | Per disegnare su una ''DrawingArea'' con il mouse due o più punti in modo tale che, i punti precedentemente | + | 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: |
Private StartX As Single | Private StartX As Single | ||
Private StartY As Single | Private StartY As Single |
Versione delle 08:43, 25 mag 2015
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:
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