• Home
 · 
• Graphics
 · 
• Draw circles with random colors using circle methods of vb graphics

Draw circles with random colors using circle methods of vb graphics

Draw circles with random colors using circle methods of vb graphics

API Declarations


'TO RUN THIS CODE IN UR APPLICATION SIMPLY PUT
'TWO command buttons named as btstart and command1 on
'the form Named form1




Rate Draw circles with random colors using circle methods of vb graphics

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

btStart.Enabled = False
For i = 1 To 20
drawcircle
Next i

End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub drawcircle()
Dim radius, xpos, ypos, WWIDTH
WWIDTH = 1
xpos = ScaleWidth / 2
ypos = ScaleHeight / 2

For radius = 5 To xpos / 2 Step 10
DoEvents
DrawWidth = WWIDTH
Circle (xpos, ypos), radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
WWIDTH = WWIDTH + 0.1
FillStyle = 7
Next radius

End Sub