practice9-10.frm

深圳大学的vb上机与教学的课件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1 
   Caption         =   "用滑动器调整窗体的背景颜色"
   ClientHeight    =   1875
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3735
   LinkTopic       =   "Form1"
   ScaleHeight     =   1875
   ScaleWidth      =   3735
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.Slider Slider3 
      Height          =   255
      Left            =   840
      TabIndex        =   2
      Top             =   1200
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider2 
      Height          =   255
      Left            =   840
      TabIndex        =   1
      Top             =   720
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin MSComctlLib.Slider Slider1 
      Height          =   255
      Left            =   840
      TabIndex        =   0
      Top             =   240
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   450
      _Version        =   393216
      Max             =   255
      TickFrequency   =   10
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BorderStyle     =   1  'Fixed Single
      Caption         =   "255"
      Height          =   240
      Left            =   3240
      TabIndex        =   7
      Top             =   1560
      Width           =   330
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      Height          =   240
      Left            =   820
      TabIndex        =   6
      Top             =   1560
      Width           =   330
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "蓝色："
      Height          =   180
      Left            =   360
      TabIndex        =   5
      Top             =   1250
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "绿色："
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   765
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "红色："
      Height          =   180
      Left            =   360
      TabIndex        =   3
      Top             =   280
      Width           =   540
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Slider1_Scroll()
   Form1.BackColor = RGB(Slider1.Value, Slider2.Value, Slider3.Value)
End Sub

Private Sub Slider2_Scroll()
   Form1.BackColor = RGB(Slider1.Value, Slider2.Value, Slider3.Value)
End Sub
Private Sub Slider3_Scroll()
   Form1.BackColor = RGB(Slider1.Value, Slider2.Value, Slider3.Value)
End Sub