home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch05 / colors / colors.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  6.6 KB  |  200 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Colors"
  4.    ClientHeight    =   4425
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6240
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4425
  10.    ScaleWidth      =   6240
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox Picture2 
  13.       BackColor       =   &H00808080&
  14.       Height          =   1815
  15.       Left            =   3270
  16.       ScaleHeight     =   1755
  17.       ScaleWidth      =   2535
  18.       TabIndex        =   7
  19.       Top             =   240
  20.       Width           =   2595
  21.       Begin VB.Label Label4 
  22.          BackStyle       =   0  'Transparent
  23.          Caption         =   "Red = 128"
  24.          BeginProperty Font 
  25.             Name            =   "Tahoma"
  26.             Size            =   8.25
  27.             Charset         =   0
  28.             Weight          =   700
  29.             Underline       =   0   'False
  30.             Italic          =   0   'False
  31.             Strikethrough   =   0   'False
  32.          EndProperty
  33.          Height          =   255
  34.          Left            =   120
  35.          TabIndex        =   10
  36.          Top             =   120
  37.          Width           =   1125
  38.       End
  39.       Begin VB.Label Label5 
  40.          BackStyle       =   0  'Transparent
  41.          Caption         =   "Green = 128"
  42.          BeginProperty Font 
  43.             Name            =   "Tahoma"
  44.             Size            =   8.25
  45.             Charset         =   0
  46.             Weight          =   700
  47.             Underline       =   0   'False
  48.             Italic          =   0   'False
  49.             Strikethrough   =   0   'False
  50.          EndProperty
  51.          Height          =   255
  52.          Left            =   120
  53.          TabIndex        =   9
  54.          Top             =   360
  55.          Width           =   1215
  56.       End
  57.       Begin VB.Label Label6 
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "Blue = 128"
  60.          BeginProperty Font 
  61.             Name            =   "Tahoma"
  62.             Size            =   8.25
  63.             Charset         =   0
  64.             Weight          =   700
  65.             Underline       =   0   'False
  66.             Italic          =   0   'False
  67.             Strikethrough   =   0   'False
  68.          EndProperty
  69.          Height          =   255
  70.          Left            =   120
  71.          TabIndex        =   8
  72.          Top             =   600
  73.          Width           =   1215
  74.       End
  75.    End
  76.    Begin VB.PictureBox Picture1 
  77.       BackColor       =   &H00808080&
  78.       Height          =   1815
  79.       Left            =   240
  80.       ScaleHeight     =   1755
  81.       ScaleWidth      =   2535
  82.       TabIndex        =   3
  83.       Top             =   240
  84.       Width           =   2595
  85.       Begin VB.Label Label3 
  86.          BackStyle       =   0  'Transparent
  87.          Caption         =   "Blue = 128"
  88.          BeginProperty Font 
  89.             Name            =   "Tahoma"
  90.             Size            =   8.25
  91.             Charset         =   0
  92.             Weight          =   700
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   255
  98.          Left            =   120
  99.          TabIndex        =   6
  100.          Top             =   600
  101.          Width           =   1215
  102.       End
  103.       Begin VB.Label Label2 
  104.          BackStyle       =   0  'Transparent
  105.          Caption         =   "Green = 128"
  106.          BeginProperty Font 
  107.             Name            =   "Tahoma"
  108.             Size            =   8.25
  109.             Charset         =   0
  110.             Weight          =   700
  111.             Underline       =   0   'False
  112.             Italic          =   0   'False
  113.             Strikethrough   =   0   'False
  114.          EndProperty
  115.          Height          =   255
  116.          Left            =   120
  117.          TabIndex        =   5
  118.          Top             =   360
  119.          Width           =   1335
  120.       End
  121.       Begin VB.Label Label1 
  122.          BackStyle       =   0  'Transparent
  123.          Caption         =   "Red = 128"
  124.          BeginProperty Font 
  125.             Name            =   "Tahoma"
  126.             Size            =   8.25
  127.             Charset         =   0
  128.             Weight          =   700
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          Height          =   255
  134.          Left            =   120
  135.          TabIndex        =   4
  136.          Top             =   120
  137.          Width           =   1095
  138.       End
  139.    End
  140.    Begin VB.HScrollBar HScroll3 
  141.       Height          =   255
  142.       LargeChange     =   10
  143.       Left            =   240
  144.       Max             =   255
  145.       TabIndex        =   2
  146.       Top             =   3840
  147.       Value           =   128
  148.       Width           =   5655
  149.    End
  150.    Begin VB.HScrollBar HScroll2 
  151.       Height          =   255
  152.       LargeChange     =   10
  153.       Left            =   240
  154.       Max             =   255
  155.       TabIndex        =   1
  156.       Top             =   3120
  157.       Value           =   128
  158.       Width           =   5655
  159.    End
  160.    Begin VB.HScrollBar HScroll1 
  161.       Height          =   255
  162.       LargeChange     =   10
  163.       Left            =   240
  164.       Max             =   255
  165.       TabIndex        =   0
  166.       Top             =   2400
  167.       Value           =   128
  168.       Width           =   5655
  169.    End
  170. Attribute VB_Name = "Form1"
  171. Attribute VB_GlobalNameSpace = False
  172. Attribute VB_Creatable = False
  173. Attribute VB_PredeclaredId = True
  174. Attribute VB_Exposed = False
  175. Option Explicit
  176. Private Sub HScroll1_Change()
  177. Label4.Caption = "Red = " & HScroll1.Value
  178. Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  179. End Sub
  180. Private Sub HScroll1_Scroll()
  181. Label1.Caption = "Red = " & HScroll1.Value
  182. Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  183. End Sub
  184. Private Sub HScroll2_Change()
  185. Label5.Caption = "Green = " & HScroll2.Value
  186. Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  187. End Sub
  188. Private Sub HScroll2_Scroll()
  189. Label2.Caption = "Green = " & HScroll2.Value
  190. Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  191. End Sub
  192. Private Sub HScroll3_Change()
  193. Label6.Caption = "Blue = " & HScroll3.Value
  194. Picture2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  195. End Sub
  196. Private Sub HScroll3_Scroll()
  197. Label3.Caption = "Blue = " & HScroll3.Value
  198. Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
  199. End Sub
  200.