视频讲解
刘金玉的零基础VB教程059期：circle画图模拟烟花效果
在VB中，使用Circle函数可以画圆、环、弧、扇形
我们从数学和美术的常规思路来考虑一下：
- 如果要画一个圆，要知道：圆心、半径
- 可以给圆填充颜色
- 如果只画出圆的部分，那就是弧，或扇形
如何使用circle函数呢？
Circle绘图格式
Circle (x,y),r [,[rgb],决定圆还是弧-2pi~2pi]
对应解释：
Circle 圆心，半径，颜色，弧度
有思路如何画同心圆了吗？
画N个同心圆
1、圆心不变
2、半径逐渐变大
如何给画出来的圆填充自己喜欢的颜色？
'填充颜色设置
FillStyle = vbSolid
FillColor = RGB(red, green, blue)
如何模拟烟花效果？
烟花的爆炸就像一个个不同颜色的圆，那么我们从以下几个方面可以考虑：
1、给圆上色
2、随机位置
3、随机半径
课堂总结
1、学会画圆函数circle使用（格式）
2、掌握画N个同心圆
3、掌握烟花模拟效果
程序界面：
同心圆效果：
代码：
代码语言：javascript复制Private Sub Command1_Click()
'使用单精度浮点型single来表示坐标
Dim x As Single
Dim y As Single
Dim r As Single
x = ScaleWidth / 2
y = ScaleHeight / 2
r = 100
Dim i As Long
'N个同心圆
For i = 1 To y Step 10
r = i
Circle (x, y), r
Next i
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
End Sub
