-
Trying to draw a circle and fill it with color and clear the image on "Clear" command
So far I managed to draw a circle, but keep failing to fill it with color and I cant seem to clear the screen
Private Sub cmdDraw_Click()
Form1.Circle (2750, 1100), 1000 'draw circle
Form1.FillColor = QBColor(Combo1.Text) 'fills the circle with color index taken from a drop down menu
End Sub
and to clear I use:(doesnt work)
Private Sub cmdClear_Click()
form1.Clear
End Sub
Any suggestions?
-
-
To fill the circle, you need to set the fillstyle of the form to vbSolid.