circle.frm

应该是不错的源码 望朋友们分享 应该是不错的源码 望朋友们分享

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6555
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8130
   ForeColor       =   &H00FF0000&
   LinkTopic       =   "Form1"
   ScaleHeight     =   6555
   ScaleWidth      =   8130
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "清除"
      Height          =   615
      Left            =   4800
      TabIndex        =   1
      Top             =   4800
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "显示"
      Height          =   615
      Left            =   1440
      TabIndex        =   0
      Top             =   4800
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const pi = 3.1415926
Private Sub Command1_Click()
FillStyle = 0
For i = 500 To 1 Step -1
Me.FillColor = vbWhite
Circle (4000, 2000 + i), 2000, , -pi / 8, -pi / 2, 3 / 5
Me.FillColor = vbYellow
Circle (4000, 2000 + i), 2000, , -pi / 2, -pi * 5 / 4, 3 / 5
Me.FillColor = vbRed
Circle (4000, 2000 + i), 2000, , -pi * 5 / 4, -pi / 8, 3 / 5
Next
End Sub

Private Sub Command2_Click()
Cls
End Sub