home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / scroll.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.5 KB  |  120 lines
  1. VERSION 4.00
  2. Begin VB.Form frmScrollBars 
  3.    Caption         =   "Scroll Bar Demo"
  4.    ClientHeight    =   4620
  5.    ClientLeft      =   615
  6.    ClientTop       =   1590
  7.    ClientWidth     =   6195
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   5025
  18.    Left            =   555
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   4620
  21.    ScaleWidth      =   6195
  22.    Top             =   1245
  23.    Width           =   6315
  24.    Begin VB.TextBox txtColor 
  25.       Height          =   855
  26.       Left            =   1440
  27.       TabIndex        =   7
  28.       Top             =   2280
  29.       Width           =   3375
  30.    End
  31.    Begin VB.CommandButton cmdClose 
  32.       Caption         =   "&Close"
  33.       Height          =   495
  34.       Left            =   3840
  35.       TabIndex        =   6
  36.       Top             =   3720
  37.       Width           =   1215
  38.    End
  39.    Begin VB.HScrollBar hsbBlue 
  40.       Height          =   255
  41.       LargeChange     =   35
  42.       Left            =   1200
  43.       Max             =   255
  44.       SmallChange     =   5
  45.       TabIndex        =   5
  46.       Top             =   1680
  47.       Width           =   3855
  48.    End
  49.    Begin VB.HScrollBar hsbGreen 
  50.       Height          =   255
  51.       LargeChange     =   35
  52.       Left            =   1200
  53.       Max             =   255
  54.       SmallChange     =   5
  55.       TabIndex        =   3
  56.       Top             =   1080
  57.       Width           =   3855
  58.    End
  59.    Begin VB.HScrollBar hsbRed 
  60.       Height          =   255
  61.       LargeChange     =   30
  62.       Left            =   1200
  63.       Max             =   255
  64.       SmallChange     =   5
  65.       TabIndex        =   1
  66.       Top             =   480
  67.       Width           =   3855
  68.    End
  69.    Begin VB.Label lblBlue 
  70.       Caption         =   "&Blue"
  71.       Height          =   255
  72.       Left            =   360
  73.       TabIndex        =   4
  74.       Top             =   1680
  75.       Width           =   735
  76.    End
  77.    Begin VB.Label lblGreen 
  78.       Caption         =   "&Green"
  79.       Height          =   255
  80.       Left            =   360
  81.       TabIndex        =   2
  82.       Top             =   1080
  83.       Width           =   735
  84.    End
  85.    Begin VB.Label lblRed 
  86.       Caption         =   "&Red"
  87.       Height          =   255
  88.       Left            =   360
  89.       TabIndex        =   0
  90.       Top             =   480
  91.       Width           =   735
  92.    End
  93. Attribute VB_Name = "frmScrollBars"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Private Sub cmdClose_Click()
  97.    Unload Me            ' Unload this form.
  98. End Sub
  99. Private Sub DoColor()
  100.     txtColor.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
  101. End Sub
  102. Private Sub hsbBlue_Change()
  103.     hsbBlue_Scroll      ' Call the event procedure directly.
  104. End Sub
  105. Private Sub hsbBlue_Scroll()
  106.     DoColor             ' Call the DoColor general procedure.
  107. End Sub
  108. Private Sub hsbGreen_Change()
  109.     hsbGreen_Scroll     ' Call the event procedure directly.
  110. End Sub
  111. Private Sub hsbGreen_Scroll()
  112.     DoColor             ' Call the DoColor general procedure.
  113. End Sub
  114. Private Sub hsbRed_Change()
  115.     hsbRed_Scroll       ' Call the event procedure directly.
  116. End Sub
  117. Private Sub hsbRed_Scroll()
  118.     DoColor             ' Call the DoColor general procedure.
  119. End Sub
  120.