VB动态绘制同心椭圆

点击开始按钮时，计时器开始并绘制一组同心椭圆，半径由小到大，依次递增五个单位，当椭圆边缘到达图片框边缘时停止

答案：Option Explicit
Dim R As Integer

Private Sub Command1_Click()
  Picture1.Cls
  R = 0
  Timer1.Enabled = True
  Command1.Enabled = False
End Sub

Private Sub Form_Load()
  Picture1.Cls
  Timer1.Enabled = False
  Timer1.Interval = 100
  Command1.Caption = "开始"
  R = 10

  Picture1.ScaleWidth = 2
  Picture1.ScaleMode = 3
  Picture1.Scale (-500, 500)-(500, -500)

End Sub

Private Sub Timer1_Timer()
 Picture1.Circle (0, 0), R, vbRed, , , 0.5
 R = R + 10
 If R >= 500 Then
   Timer1.Enabled = False
   Command1.Enabled = True
 End If
End Sub

上一个：用VB语言6.0设计一个简单的选课系统（要源代码的）
下一个：VB 编制应用软件自动更新的检测与升级