scrollcolor.frm

关于VB开发的数据

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "第六章 滚动条范例"
   ClientHeight    =   3600
   ClientLeft      =   3540
   ClientTop       =   3405
   ClientWidth     =   5055
   LinkTopic       =   "Form1"
   ScaleHeight     =   3600
   ScaleWidth      =   5055
   Begin VB.PictureBox Picture1 
      Height          =   3135
      Left            =   2760
      ScaleHeight     =   3075
      ScaleWidth      =   1995
      TabIndex        =   8
      Top             =   240
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   1080
      TabIndex        =   6
      Top             =   2760
      Width           =   1215
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Index           =   2
      LargeChange     =   10
      Left            =   240
      Max             =   255
      TabIndex        =   2
      Top             =   2040
      Width           =   2055
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Index           =   1
      LargeChange     =   10
      Left            =   240
      Max             =   255
      TabIndex        =   1
      Top             =   1320
      Width           =   2055
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Index           =   0
      LargeChange     =   10
      Left            =   240
      Max             =   255
      TabIndex        =   0
      Top             =   600
      Width           =   2055
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "颜色值："
      Height          =   195
      Left            =   240
      TabIndex        =   7
      Top             =   2760
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "绿："
      Height          =   195
      Index           =   2
      Left            =   240
      TabIndex        =   5
      Top             =   1080
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "蓝："
      Height          =   195
      Index           =   1
      Left            =   240
      TabIndex        =   4
      Top             =   1800
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "红："
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   3
      Top             =   360
      Width           =   360
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RedStr, GreenStr, BlueStr As String
Dim RedNum, GreenNum, BlueNum As Integer

Function GetColorValue() As String
  RedNum = HScroll1(0).Value
  GreenNum = HScroll1(1).Value
  BlueNum = HScroll1(2).Value
  RedStr = Hex(RedNum)
  If Len(RedStr) < 2 Then RedStr = "0" + RedStr
  GreenStr = Hex(GreenNum)
  If Len(GreenStr) < 2 Then GreenStr = "0" + GreenStr
  BlueStr = Hex(BlueNum)
  If Len(BlueStr) < 2 Then BlueStr = "0" + BlueStr
  GetColorValue = RedStr + GreenStr + BlueStr
End Function
Private Sub Form_Load()
  Text1.Text = GetColorValue
  Picture1.BackColor = RGB(RedNum, GreenNum, BlueNum)
End Sub

Private Sub HScroll1_Change(Index As Integer)
  Text1.Text = GetColorValue
  Picture1.BackColor = RGB(RedNum, GreenNum, BlueNum)
End Sub