home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / SCROLL.FR_ / SCROLL.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.9 KB  |  104 lines
  1. VERSION 2.00
  2. Begin Form frmScrollBars 
  3.    Caption         =   "Scroll Bar Demo"
  4.    Height          =   5040
  5.    Left            =   1575
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   4635
  8.    ScaleWidth      =   6165
  9.    Top             =   1260
  10.    Width           =   6285
  11.    Begin TextBox txtColor 
  12.       Height          =   855
  13.       Left            =   1440
  14.       TabIndex        =   7
  15.       Top             =   2280
  16.       Width           =   3375
  17.    End
  18.    Begin CommandButton cmdClose 
  19.       Caption         =   "&Close"
  20.       Height          =   495
  21.       Left            =   3840
  22.       TabIndex        =   6
  23.       Top             =   3720
  24.       Width           =   1215
  25.    End
  26.    Begin HScrollBar hsbBlue 
  27.       Height          =   255
  28.       LargeChange     =   35
  29.       Left            =   1200
  30.       Max             =   255
  31.       SmallChange     =   5
  32.       TabIndex        =   5
  33.       Top             =   1680
  34.       Width           =   3855
  35.    End
  36.    Begin HScrollBar hsbGreen 
  37.       Height          =   255
  38.       LargeChange     =   35
  39.       Left            =   1200
  40.       Max             =   255
  41.       SmallChange     =   5
  42.       TabIndex        =   3
  43.       Top             =   1080
  44.       Width           =   3855
  45.    End
  46.    Begin HScrollBar hsbRed 
  47.       Height          =   255
  48.       LargeChange     =   35
  49.       Left            =   1200
  50.       Max             =   255
  51.       SmallChange     =   5
  52.       TabIndex        =   1
  53.       Top             =   480
  54.       Width           =   3855
  55.    End
  56.    Begin Label lblBlue 
  57.       Caption         =   "&Blue"
  58.       Height          =   255
  59.       Left            =   360
  60.       TabIndex        =   4
  61.       Top             =   1680
  62.       Width           =   735
  63.    End
  64.    Begin Label lblGreen 
  65.       Caption         =   "&Green"
  66.       Height          =   255
  67.       Left            =   360
  68.       TabIndex        =   2
  69.       Top             =   1080
  70.       Width           =   735
  71.    End
  72.    Begin Label lblRed 
  73.       Caption         =   "&Red"
  74.       Height          =   255
  75.       Left            =   360
  76.       TabIndex        =   0
  77.       Top             =   480
  78.       Width           =   735
  79.    End
  80. Sub cmdClose_Click ()
  81.    Unload Me    ' Unload this form.
  82. End Sub
  83. Sub DoColor ()
  84.     txtColor.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
  85. End Sub
  86. Sub hsbBlue_Change ()
  87.     hsbBlue_Scroll  ' Call event procedure directly.
  88. End Sub
  89. Sub hsbBlue_Scroll ()
  90.     DoColor     ' Call the DoColor general procedure.
  91. End Sub
  92. Sub hsbGreen_Change ()
  93.     hsbGreen_Scroll ' Call event procedure directly.
  94. End Sub
  95. Sub hsbGreen_Scroll ()
  96.     DoColor     ' Call the DoColor general procedure.
  97. End Sub
  98. Sub hsbRed_Change ()
  99.     hsbRed_Scroll   ' Call event procedure directly.
  100. End Sub
  101. Sub hsbRed_Scroll ()
  102.     DoColor     ' Call the DoColor general procedure.
  103. End Sub
  104.