form1.frm

vb电子书籍

   VERSION 5.00
   Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
   Begin VB.Form Form1
      Caption         =   "Form1"
      ClientHeight    =   3330
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   6075
      LinkTopic       =   "Form1"
      ScaleHeight     =   3330
      ScaleWidth      =   6075
      StartUpPosition =   3  '窗口缺省
      Begin VB.TextBox Text1
         Height          =   2055
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   2
         Text            =   "Form1.frx":0000
         Top             =   1200
         Width           =   5775
      End
      Begin MSComctlLib.Slider Slider1
         Height          =   630
         Left            =   600
         TabIndex        =   0
         Top             =   240
         Width           =   4335
         _ExtentX        =   7646
         _ExtentY        =   1111
         _Version        =   393216
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "8号                                        72号"
         Height          =   180
         Left            =   720
         TabIndex        =   1
         Top             =   840
         Width           =   4230
      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
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    Slider1.Min = 8
    Slider1.Max = 72
    Slider1.SmallChange = 2
    Slider1.LargeChange = 8
    Slider1.TickFrequency = 2
    
End Sub
    
'##################################################################
'## 过程名称：Slider1_Scroll
'## 参数： 无
'##################################################################
Private Sub Slider1_Scroll()
    Text1.FontSize = Slider1.Value
End Sub