Visualizza wikitesto di Disegnare in una DrawingArea un carattere punto per punto

E' possibile disegnare un carattere (ad esempio una lettera dell'alfabeto) punto per punto (o meglio: pixel per pixel) 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()
 
  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])
 <FONT Color=gray>' ''oppure:'''''.Brush = .Color(ii[i])'''
        ' '''.Arc(t + b, t + j, 1, Rad(0), Rad(360), False)'''
        ' '''.Fill'''</font>
         Inc i
       Next
     Next
     .End
   End With  
 
 End