【VB开源代码栏目提醒】:网学会员VB开源代码为您提供Ex8_13.frm参考，解决您在Ex8_13.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form Ex8_13 
       Caption         =   "调色板"
       ClientHeight    =   3420
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4110
       LinkTopic       =   "Form1"
       ScaleHeight     =   3420
       ScaleWidth      =   4110
       StartUpPosition =   3  '窗口缺省
       Begin VB.HScrollBar HScroll 
          Height          =   375
          Index           =   2
          Left            =   600
          Max             =   255
          TabIndex        =   3
          Top             =   2760
          Width           =   2895
       End
       Begin VB.HScrollBar HScroll 
          Height          =   375
          Index           =   1
          Left            =   600
          Max             =   255
          TabIndex        =   2
          Top             =   2280
          Width           =   2895
       End
       Begin VB.HScrollBar HScroll 
          Height          =   375
          Index           =   0
          Left            =   600
          Max             =   255
          TabIndex        =   1
          Top             =   1800
          Width           =   2895
       End
       Begin VB.PictureBox Picture1 
          Height          =   1215
          Left            =   360
          ScaleHeight     =   1155
          ScaleWidth      =   3315
          TabIndex        =   0
          Top             =   240
          Width           =   3375
       End
       Begin VB.Label Label 
          Caption         =   "0"
          Height          =   255
          Index           =   2
          Left            =   3600
          TabIndex        =   9
          Top             =   2880
          Width           =   375
       End
       Begin VB.Label Label 
          Caption         =   "0"
          Height          =   255
          Index           =   1
          Left            =   3600
          TabIndex        =   8
          Top             =   2400
          Width           =   375
       End
       Begin VB.Label Label 
          Caption         =   "0"
          Height          =   255
          Index           =   0
          Left            =   3600
          TabIndex        =   7
          Top             =   1920
          Width           =   375
       End
       Begin VB.Label Label3 
          Caption         =   "B"
          Height          =   255
          Left            =   360
          TabIndex        =   6
          Top             =   2880
          Width           =   135
       End
       Begin VB.Label Label2 
          Caption         =   "G"
          Height          =   255
          Left            =   360
          TabIndex        =   5
          Top             =   2400
          Width           =   135
       End
       Begin VB.Label Label1 
          Caption         =   "R"
          Height          =   255
          Left            =   360
          TabIndex        =   4
          Top             =   1920
          Width           =   135
       End
    End
    Attribute VB_Name = "Ex8_13"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub HScroll_Change(Index As Integer)
        '将选中的滚动条的当前值显示在相应的标签上
        Label(Index).Caption = HScroll(Index).Value
        '设置图片框的背景色
        Picture1.BackColor = RGB(HScroll(0).Value, _
            HScroll(1).Value, HScroll(2).Value)
    End Sub
    

上一篇：Ex8_12.frm
下一篇：不规则零件优化排样的神经网络混合优化算法