www.pudn.com > Winmine.rar > Form5.frm

VERSION 5.00 
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX" 
Begin VB.Form Form5  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "改变方块的大小" 
   ClientHeight    =   1860 
   ClientLeft      =   45 
   ClientTop       =   375 
   ClientWidth     =   5265 
   LinkTopic       =   "Form5" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1860 
   ScaleWidth      =   5265 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   3  'Windows Default 
   Begin ComctlLib.Slider Slider1  
      Height          =   720 
      Left            =   240 
      TabIndex        =   0 
      Top             =   480 
      Width           =   4695 
      _ExtentX        =   8281 
      _ExtentY        =   1270 
      _Version        =   327682 
      LargeChange     =   1 
      Min             =   1 
      Max             =   14 
      SelStart        =   5 
      Value           =   5 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "取消" 
      Height          =   310 
      Left            =   3480 
      TabIndex        =   3 
      Top             =   1320 
      Width           =   1215 
   End 
   Begin VB.CommandButton Command2  
      Caption         =   "确定" 
      Default         =   -1  'True 
      Height          =   310 
      Left            =   2040 
      TabIndex        =   2 
      Top             =   1320 
      Width           =   1215 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "拖动滑块改变方块的大小：" 
      Height          =   195 
      Left            =   240 
      TabIndex        =   1 
      Top             =   120 
      Width           =   2160 
   End 
End 
Attribute VB_Name = "Form5" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Dim tkL 
 
Private Sub Command1_Click() 
Unload Me 
End Sub 
 
Private Sub Command2_Click() 
If tkL <> Main_kL Then 
    Main_kL = tkL 
    Form1.csh 
End If 
Unload Me 
End Sub 
 
Private Sub Form_Load() 
Dim t 
t = (Main_kL - 90) / 30 
Label1.Caption = "拖动滑块改变方块的大小：(" & t & ")" 
Slider1.Value = t 
tkL = Main_kL 
End Sub 
 
Private Sub Slider1_Scroll() 
tkL = Slider1.Value * 30 + 90 
Label1.Caption = "拖动滑块改变方块的大小：(" & Slider1.Value & ")" & tkL 
End Sub