form1.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "动画进度条"
   ClientHeight    =   1452
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4896
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1452
   ScaleWidth      =   4896
   StartUpPosition =   2  '屏幕中心
   Begin Project1.dBar dbar1 
      Height          =   360
      Left            =   75
      TabIndex        =   5
      Top             =   45
      Width           =   4770
      _ExtentX        =   8424
      _ExtentY        =   635
   End
   Begin VB.OptionButton Option1 
      Caption         =   "脉        冲"
      Height          =   300
      Index           =   3
      Left            =   1560
      TabIndex        =   4
      Top             =   975
      Width           =   1005
   End
   Begin VB.OptionButton Option1 
      Caption         =   "单向反弹"
      Height          =   285
      Index           =   1
      Left            =   240
      TabIndex        =   3
      Top             =   975
      Width           =   1170
   End
   Begin VB.OptionButton Option1 
      Caption         =   "双向反弹"
      Height          =   300
      Index           =   2
      Left            =   1560
      TabIndex        =   2
      Top             =   675
      Width           =   1485
   End
   Begin VB.OptionButton Option1 
      Caption         =   "从左到右"
      Height          =   285
      Index           =   0
      Left            =   225
      TabIndex        =   1
      Top             =   660
      Value           =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmd 
      Caption         =   "开始"
      Height          =   375
      Left            =   3600
      TabIndex        =   0
      Top             =   720
      Width           =   1110
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'simple user control to keep users occupied in times of wait
'adds about 16k to your compiled exe

'this example uses the default timing and interval
'properties, you can set both manually if desired
'dbar1.Timimg = 100
'dbar1.Increment = 200
    
Private Sub Option1_Click(Index As Integer)
    
    If cmd.Caption = "停止" Then
        cmd.Caption = "开始"
        dbar1.EndDisplay
        Call cmd_Click
    End If

End Sub

Private Sub cmd_Click()

    If cmd.Caption = "停止" Then
        dbar1.EndDisplay
        cmd.Caption = "开始"
    Else
        If Option1(0).Value Then dbar1.Style = Monic
        If Option1(1).Value Then dbar1.Style = Pacer
        If Option1(2).Value Then dbar1.Style = Bouncy
        If Option1(3).Value Then dbar1.Style = Pulse
        dbar1.BeginDisplay
        cmd.Caption = "停止"
    End If

End Sub