学习VB编程第49天 circle函数画圈

今天学习了刘金玉老师零基础VB教程的第59期，学习的主要内容是circle函数画圈。

1.circle绘图函数表达为Circle(X,Y),r[,RGB,弧度]，（X，Y）表示圆心所在位置，R代表半径，RGB表示颜色，弧度决定是圆形还是弧形。

2.通过FillStyle = vbSolid设置圆圈为实心，通过FillColor = RGB(red, green, blue)设置圆圈填充的颜色。

3.案例：画多个同心圆

（1）代码

Private Sub Command1_Click()

Dim x As Single

Dim y As Single

Dim r As Single

x = ScaleWidth / 2

y = ScaleHeight / 2

r = 100

Dim i As Long

For i = 1 To y Step 1

r = i

Circle (x, y), r

Next i

End Sub

（2）运行效果

4.案例：模拟五彩斑点动画效果

（1）代码

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim x As Single

Dim y As Single

Dim r As Single

Randomize

red = Int(Rnd * 256)

green = Int(Rnd * 256)

blue = Int(Rnd * 256)

FillColor = RGB(red, green, blue)

FillStyle = vbSolid

x = ScaleWidth * Rnd

y = ScaleHeight * Rnd

r = y * Rnd + 1

Circle (x, y), r, RGB(red, green, blue)

End Sub

（2）效果详见视频

视频加载中...