propscroll.pag

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.PropertyPage Scroll 
   Caption         =   "Scroll"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.TextBox txtSmallChange 
      Height          =   330
      Left            =   90
      TabIndex        =   9
      Top             =   2970
      Width           =   2700
   End
   Begin VB.TextBox txtValue 
      Height          =   330
      Left            =   90
      TabIndex        =   7
      Top             =   2320
      Width           =   2700
   End
   Begin VB.TextBox txtMax 
      Height          =   330
      Left            =   90
      TabIndex        =   5
      Top             =   1670
      Width           =   2700
   End
   Begin VB.TextBox txtMin 
      Height          =   330
      Left            =   90
      TabIndex        =   3
      Top             =   1020
      Width           =   2700
   End
   Begin VB.TextBox txtLargeChange 
      Height          =   330
      Left            =   90
      TabIndex        =   1
      Top             =   370
      Width           =   2700
   End
   Begin VB.Label lblSmallChange 
      Caption         =   "SmallChange:"
      Height          =   240
      Left            =   90
      TabIndex        =   8
      Top             =   2720
      Width           =   2700
   End
   Begin VB.Label lblValue 
      Caption         =   "Value:"
      Height          =   240
      Left            =   90
      TabIndex        =   6
      Top             =   2070
      Width           =   2700
   End
   Begin VB.Label lblMax 
      Caption         =   "Max:"
      Height          =   240
      Left            =   90
      TabIndex        =   4
      Top             =   1420
      Width           =   2700
   End
   Begin VB.Label lblMin 
      Caption         =   "Min:"
      Height          =   240
      Left            =   90
      TabIndex        =   2
      Top             =   770
      Width           =   2700
   End
   Begin VB.Label lblLargeChange 
      Caption         =   "LargeChange:"
      Height          =   240
      Left            =   90
      TabIndex        =   0
      Top             =   120
      Width           =   2700
   End
End
Attribute VB_Name = "Scroll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private Sub txtSmallChange_Change()
    Changed = True
End Sub


Private Sub txtValue_Change()
    Changed = True
End Sub


Private Sub txtMax_Change()
    Changed = True
End Sub


Private Sub txtMin_Change()
    Changed = True
End Sub


Private Sub txtLargeChange_Change()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).SmallChange = txtSmallChange.Text
    SelectedControls(0).Value = txtValue.Text
    SelectedControls(0).Max = txtMax.Text
    SelectedControls(0).Min = txtMin.Text
    SelectedControls(0).LargeChange = txtLargeChange.Text
End Sub



Private Sub PropertyPage_SelectionChanged()
    txtSmallChange.Text = SelectedControls(0).SmallChange
    txtValue.Text = SelectedControls(0).Value
    txtMax.Text = SelectedControls(0).Max
    txtMin.Text = SelectedControls(0).Min
    txtLargeChange.Text = SelectedControls(0).LargeChange
End Sub