ctllabelscrollbar.ctl

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.UserControl LabelScrollbar 
   ClientHeight    =   270
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3630
   ScaleHeight     =   270
   ScaleWidth      =   3630
   Begin VB.HScrollBar hsbScroll 
      Height          =   255
      Left            =   1080
      TabIndex        =   0
      Top             =   0
      Width           =   2535
   End
   Begin VB.Label lblDisplay 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   855
   End
End
Attribute VB_Name = "LabelScrollbar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Fig. 17.33
' Code generated by ActiveX Control Interface Wizard.
Option Explicit
'Event Declarations:
Event Change() 'MappingInfo=hsbScroll,hsbScroll,-1,Change

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=hsbScroll,hsbScroll,-1,LargeChange
Public Property Get LargeChange() As Integer
   LargeChange = hsbScroll.LargeChange
End Property

Public Property Let LargeChange(ByVal New_LargeChange As _
                                Integer)
   hsbScroll.LargeChange() = New_LargeChange
   PropertyChanged "LargeChange"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=hsbScroll,hsbScroll,-1,Min
Public Property Get Min() As Integer
   Min = hsbScroll.Min
End Property

Public Property Let Min(ByVal New_Min As Integer)
   hsbScroll.Min() = New_Min
   PropertyChanged "Min"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=hsbScroll,hsbScroll,-1,Max
Public Property Get Max() As Integer
   Max = hsbScroll.Max
End Property

Public Property Let Max(ByVal New_Max As Integer)
   hsbScroll.Max() = New_Max
   PropertyChanged "Max"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=hsbScroll,hsbScroll,-1,Value
Public Property Get Value() As Integer
   Value = hsbScroll.Value
End Property

Public Property Let Value(ByVal New_Value As Integer)
   hsbScroll.Value() = New_Value
   PropertyChanged "Value"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=hsbScroll,hsbScroll,-1,SmallChange
Public Property Get SmallChange() As Integer
   SmallChange = hsbScroll.SmallChange
End Property

Public Property Let SmallChange(ByVal New_SmallChange As _
                                Integer)
   hsbScroll.SmallChange() = New_SmallChange
   PropertyChanged "SmallChange"
End Property

Private Sub hsbScroll_Change()
   RaiseEvent Change
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   hsbScroll.LargeChange = PropBag.ReadProperty( _
                                              "LargeChange", 1)
   hsbScroll.Min = PropBag.ReadProperty("Min", 0)
   hsbScroll.Max = PropBag.ReadProperty("Max", 32767)
   hsbScroll.Value = PropBag.ReadProperty("Value", 0)
   hsbScroll.SmallChange = PropBag.ReadProperty( _
                                              "SmallChange", 1)
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
   Call PropBag.WriteProperty("LargeChange", _
                              hsbScroll.LargeChange, 1)
   Call PropBag.WriteProperty("Min", hsbScroll.Min, 0)
   Call PropBag.WriteProperty("Max", hsbScroll.Max, 32767)
   Call PropBag.WriteProperty("Value", hsbScroll.Value, 0)
   Call PropBag.WriteProperty("SmallChange", _
                              hsbScroll.SmallChange, 1)
End Sub