general.pag

vb编程的一个文本动画程序 可以实现动画文字

VERSION 5.00
Begin VB.PropertyPage General 
   Caption         =   "General"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.TextBox txtSpeed 
      Height          =   330
      Left            =   90
      TabIndex        =   6
      Top             =   2320
      Width           =   2700
   End
   Begin VB.CheckBox chkEnabled 
      Caption         =   "Enabled"
      Height          =   285
      Left            =   90
      TabIndex        =   4
      Top             =   1420
      Width           =   2700
   End
   Begin VB.TextBox txtCounterMax 
      Height          =   330
      Left            =   90
      TabIndex        =   3
      Top             =   1020
      Width           =   2700
   End
   Begin VB.TextBox txtCounter 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   370
      Width           =   2700
   End
   Begin VB.Label lblSpeed 
      Caption         =   "Speed:"
      Height          =   240
      Left            =   90
      TabIndex        =   5
      Top             =   2070
      Width           =   2700
   End
   Begin VB.Label lblCounterMax 
      Caption         =   "CounterMax:"
      Height          =   240
      Left            =   90
      TabIndex        =   2
      Top             =   770
      Width           =   2700
   End
   Begin VB.Label lblCounter 
      Caption         =   "Counter:"
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   2700
   End
End
Attribute VB_Name = "General"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Sub txtSpeed_Change()
    Changed = True
End Sub


Private Sub chkEnabled_Click()
    Changed = True
End Sub


Private Sub txtCounterMax_Change()
    Changed = True
End Sub


Private Sub txtCounter_Change()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).Speed = txtSpeed.Text
    SelectedControls(0).Enabled = (chkEnabled.Value = vbChecked)
    SelectedControls(0).CounterMax = txtCounterMax.Text
    SelectedControls(0).Counter = txtCounter.Text
End Sub


Private Sub PropertyPage_SelectionChanged()
    txtSpeed.Text = SelectedControls(0).Speed
    chkEnabled.Value = (SelectedControls(0).Enabled And vbChecked)
    txtCounterMax.Text = SelectedControls(0).CounterMax
    txtCounter.Text = SelectedControls(0).Counter
End Sub