6.11.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5550
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   7230
   LinkTopic       =   "Form1"
   ScaleHeight     =   5550
   ScaleWidth      =   7230
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Paint()
    Dim r As Single, initR As Single
    Dim x As Single, y As Single, qbc As Integer
    Cls                                         '清屏
    x = ScaleWidth / 2: y = ScaleHeight / 2     '圆心位于窗体中央
    If x < y Then initR = x Else initR = y
                                                '取圆心坐标的小值作为半径
    FillStyle = 0                               '填充图形区域
    For r = initR To 1 Step -(initR / 16)
        FillColor = QBColor(qbc)                '使用默认的颜色，绘制同心圆
        qbc = qbc + 1
        Circle (x, y), r
    Next
    FillStyle = 1                               '还原填充模式
End Sub