Disegnare in una DrawingArea un carattere punto per punto
Da Gambas-it.org - Wikipedia.
Versione del 10 dic 2021 alle 17:27 di Vuott (Discussione | contributi)
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