Disegnare in una DrawingArea più linee con il mouse
Da Gambas-it.org - Wikipedia.
Versione del 25 mag 2015 alle 04:36 di Vuott (Discussione | contributi) (Creata pagina con 'Per disegnare su una ''DrawingArea'' con il mouse due o più linee in modo tale che, le linee precedentemente disegnate, restino visibili sulla ''DrawingArea'' ad ogni disegno...')
Per disegnare su una DrawingArea con il mouse due o più linee in modo tale che, le linee precedentemente disegnate, restino visibili sulla DrawingArea ad ogni disegno di una nuova linea, potremo adottare un codice come il seguente: |1|
Private OldX As Single Private OldY As Single Private StartX As Single Private StartY As Single Private punti As New Integer[] Public Sub DrawingArea1_Draw() Dim i As Integer With Draw .Line(StartX, StartY, OldX, OldY) .Background = Color.Black For i = 0 To punti.Count - 1 Step 4 .Line(punti[i], punti[i + 1], punti[i + 2], punti[i + 3]) Next .End End With End Public Sub DrawingArea1_MouseDown() StartX = Mouse.X StartY = Mouse.Y OldX = StartX OldY = StartY End Public Sub DrawingArea1_MouseMove() OldX = Mouse.X OldY = Mouse.Y DrawingArea1.Refresh() End Public Sub DrawingArea1_MouseUp() punti.Add(StartX) punti.Add(StartY) punti.Add(OldX) punti.Add(OldY) End
Note
[1] Il codice è stato realizzato dall'utente Gianluigi del forum gambas-it.org .