form1.frm

vb电子书籍

   VERSION 5.00
   Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
   Begin VB.Form Form1
      Caption         =   "定时程序"
      ClientHeight    =   1410
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4965
      LinkTopic       =   "Form1"
      ScaleHeight     =   1410
      ScaleWidth      =   4965
      StartUpPosition =   2  '屏幕中心
      Begin MSComctlLib.ProgressBar ProgressBar1
         Height          =   375
         Left            =   480
         TabIndex        =   1
         Top             =   720
         Width           =   3975
         _ExtentX        =   7011
         _ExtentY        =   661
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.CommandButton Command1
         Caption         =   "开始计算"
         Height          =   375
         Left            =   1680
         TabIndex        =   0
         Top             =   120
         Width           =   1335
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Dim counter As Integer
    Dim workarea(250) As String
    ProgressBar1.Min = LBound(workarea)
    ProgressBar1.Max = UBound(workarea)
    ProgressBar1.Visible = True
    ProgressBar1.Value = ProgressBar1.Min
    For counter = LBound(workarea) To UBound(workarea)
        workarea(counter) = "initial value" & counter
        ProgressBar1.Value = counter
    Next counter
    ProgressBar1.Visible = False
    ProgressBar1.Value = ProgressBar1.Min
End Sub