Differenze tra le versioni di "Mostrare tutte le sfumature di un colore in una DrawingArea"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili le sfumature del rosso: '''Public''' Sub DrawingArea1_Draw() Dim i As Int...")
 
 
Riga 1: Riga 1:
−
L'esempio che segue disegnerà nella ''DrawingArea'' una striscia, nella quale saranno visibili le sfumature del rosso:
+
#REDIRECT [[Mostrare_alcune_sfumature_di_un_colore_in_una_DrawingArea]]
−
'''Public''' Sub DrawingArea1_Draw()
 
−
 
 
−
  Dim i As Integer
 
−
 
 
−
  With Paint
 
−
    For i = 0 To 255
 
−
      .Brush = .Color(Color.RGB(i, 0, 0))
 
−
      .MoveTo(i, 50)
 
−
      .RelLineTo(0, DrawingArea1.H)
 
−
      .Stroke
 
−
    Next
 
−
      .End
 
−
  End With
 
−
 
 
−
'''End'''
 

Versione attuale delle 18:36, 8 dic 2021

Reindirizza a:

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Mostrare_tutte_le_sfumature_di_un_colore_in_una_DrawingArea&oldid=29665"