例7.13.frm

来自「一本学习Visual Basic编程的好书」· FRM 代码 · 共 41 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5184
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   6552
   LinkTopic       =   "Form1"
   ScaleHeight     =   5184
   ScaleWidth      =   6552
   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_Load()
    Show
    Randomize
    Form1.BackColor = QBColor(15)         '设置背景颜色
    For i = 1 To 200                      '控制进行200次
        clr = Int(15 * Rnd)               '产生0～14颜色码
        x = 400 + Int(4000 * Rnd)         '产生圆心x坐标值
        y = 400 + Int(4000 * Rnd)         '产生圆心y坐标值
        r = 300 + Int(500 * Rnd)          '产生圆半径r值
        Call plot(x, y, r, clr)
        delay 0.1                         '延时0.1秒
        Call plot(x, y, r, 15)
    Next i
End Sub
Private Sub delay(d)                      '延迟过程
    T = Timer + d
    Do While Timer < T                    '利用空循环实现延迟
    Loop
End Sub
Private Sub plot(x, y, r, clr)
    Form1.Circle (x, y), r, QBColor(clr)     '画圆
End Sub