Differenze tra le versioni di "Disegnare in una DrawingArea un carattere punto per punto"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "E' possibile disegnare un carattere (ad esempio una lettera dell'alfabeto) punto per punto su una ''DrawingArea'' mediante il metodo ''.FillRect()'' della Classe ''Paint''....") |
|||
| Riga 10: | Riga 10: | ||
'''End''' | '''End''' | ||
| − | |||
'''Public''' Sub DrawingArea1_Draw() | '''Public''' Sub DrawingArea1_Draw() | ||
| Riga 30: | Riga 29: | ||
For b = 0 To 7 | For b = 0 To 7 | ||
.FillRect(t + b, t + j, 1, 1, ii[i]) | .FillRect(t + b, t + j, 1, 1, ii[i]) | ||
| + | <FONT Color=gray>' ''oppure:'''''.Brush = .Color(ii[i])''' | ||
| + | ' '''.Arc(t + b, t + j, 1, Rad(0), Rad(360), False)''' | ||
| + | ' '''.Fill'''</font> | ||
Inc i | Inc i | ||
Next | Next | ||
Versione delle 17:27, 10 dic 2021
E' possibile disegnare un carattere (ad esempio una lettera dell'alfabeto) punto per punto su una DrawingArea mediante il metodo .FillRect() della Classe Paint.
Nell'esempio che segue sarà disegnata la lettera "p" dell'alfabeto:
Public Sub Form_Open()
Me.Center
DrawingArea1.Background = Color.White
End
Public Sub DrawingArea1_Draw()
Dim t, b, j, i As Byte
Dim ii As Integer[] = [&FFFFFF, &FFFFFF, &000000, &000000, &000000, &FFFFFF, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &000000, &000000, &FFFFFF, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF,
&FFFFFF, &FFFFFF, &000000, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF, &FFFFFF]
t = 100
With Paint
For j = 0 To 7
For b = 0 To 7
.FillRect(t + b, t + j, 1, 1, ii[i])
' oppure:.Brush = .Color(ii[i])
' .Arc(t + b, t + j, 1, Rad(0), Rad(360), False)
' .Fill
Inc i
Next
Next
.End
End With
End
