Disegnare un punto su una DrawingArea con le Classi "Draw" e "Paint"

Da Gambas-it.org - Wikipedia.

Mostreremo come disegnare un punto (pixel) su una DrawingArea mediante la Classe "Draw" e mediante la Classe "Paint".


Uso della Classe Draw

Per disegnare un singolo punto all'interno di una DrawingArea mediante la Classe Draw, si potrà utilizzare il metodo .Point():

Public Sub Form_Open()  

 DrawingArea1.Background = Color.White  

End
 

Public Sub DrawingArea1_Draw()  
 
 With Draw
   .Foreground = Color.Red   ' Colora il punto
   .Point(100, 110)
   .End
 End With
 
End


Uso della Classe Paint

Per disegnare un singolo punto all'interno di una DrawingArea mediante la Classe Paint, si potrà utilizzare in modo adeguato il metodo .FillRect():

Public Sub Form_Open()  
 
 DrawingArea1.Background = Color.White  
 
End
 
 
Public Sub DrawingArea1_Draw()  
 
 With Paint
   .FillRect(100, 100, 1, 1, Color.Black)
   .End
 End With  
 
End


oppure il metodo .Arc():

Public Sub Form_Open()  
 
 DrawingArea1.Background = Color.White  
 
End
 
 
Public Sub DrawingArea1_Draw()  
 
 With Paint
   .Brush = Paint.Color(Color.Red)
   .Arc(100, 100, 0.2)
   .Stroke
   .End
 End With  
 
End