form1.frm

采用面向负荷控制技术

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

Sub Form_Click()
   Dim CX, CY, F, F1, F2, I   ' 声明变量。
   ScaleMode = 3   ' 设置 ScaleMode 为像素。
   CX = ScaleWidth / 2   ' 水平中点。
   CY = ScaleHeight / 2   ' 垂直中点。
   DrawWidth = 8   ' 设置 DrawWidth。
   For I = 50 To 0 Step -2
      F = I / 50   ' 执行中间步骤。
      F1 = 1 - F: F2 = 1 + F   ' 计算。
      ForeColor = QBColor(I Mod 15)   ' 设置前景颜色。
      Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
   Next I
   DoEvents   ' 做其它处理。
   If CY > CX Then   ' 设置 DrawWidth。
      DrawWidth = ScaleWidth / 25
   Else
      DrawWidth = ScaleHeight / 25
   End If
   For I = 0 To 50 Step 2   ' Set up loop.
      F = I / 50   ' 执行中间。
      F1 = 1 - F: F2 = 1 + F   ' 计算。
      Line (CX * F1, CY)-(CX, CY * F1)   ' 画左上角。
      Line -(CX * F2, CY)   ' 画右上角。
      Line -(CX, CY * F2)   ' 画右下角。
      Line -(CX * F1, CY)   ' 画左下角。
      ForeColor = QBColor(I Mod 15)   ' 每次改变颜色。
   Next I
   DoEvents   ' 进行其它处理。
End Sub