On Hand/On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso/00202/s/disk1/scroll.fr_/scroll.bin

Text File | 1993-04-28 | 3KB | 114 lines

VERSION 2.00
Begin Form frmScrollBars
   Caption         =   "Scroll Bar Demo"
   Height          =   5040
   Left            =   1575
   LinkTopic       =   "Form1"
   ScaleHeight     =   4635
   ScaleWidth      =   6165
   Top             =   1260
   Width           =   6285
   Begin TextBox txtColor
      Height          =   855
      Left            =   1440
      TabIndex        =   7
      Top             =   2280
      Width           =   3375
   End
   Begin CommandButton cmdClose
      Caption         =   "&Close"
      Height          =   495
      Left            =   3840
      TabIndex        =   6
      Top             =   3720
      Width           =   1215
   End
   Begin HScrollBar hsbBlue
      Height          =   255
      LargeChange     =   35
      Left            =   1200
      Max             =   255
      SmallChange     =   5
      TabIndex        =   5
      Top             =   1680
      Width           =   3855
   End
   Begin HScrollBar hsbGreen
      Height          =   255
      LargeChange     =   35
      Left            =   1200
      Max             =   255
      SmallChange     =   5
      TabIndex        =   3
      Top             =   1080
      Width           =   3855
   End
   Begin HScrollBar hsbRed
      Height          =   255
      LargeChange     =   35
      Left            =   1200
      Max             =   255
      SmallChange     =   5
      TabIndex        =   1
      Top             =   480
      Width           =   3855
   End
   Begin Label lblBlue
      Caption         =   "&Blue"
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1680
      Width           =   735
   End
   Begin Label lblGreen
      Caption         =   "&Green"
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   1080
      Width           =   735
   End
   Begin Label lblRed
      Caption         =   "&Red"
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   735
   End
End

Sub cmdClose_Click ()
   Unload Me    ' Unload this form.
End Sub

Sub DoColor ()
    txtColor.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Sub hsbBlue_Change ()
    hsbBlue_Scroll  ' Call event procedure directly.
End Sub

Sub hsbBlue_Scroll ()
    DoColor     ' Call the DoColor general procedure.
End Sub

Sub hsbGreen_Change ()
    hsbGreen_Scroll ' Call event procedure directly.
End Sub

Sub hsbGreen_Scroll ()
    DoColor     ' Call the DoColor general procedure.
End Sub

Sub hsbRed_Change ()
    hsbRed_Scroll   ' Call event procedure directly.
End Sub

Sub hsbRed_Scroll ()
    DoColor     ' Call the DoColor general procedure.
End Sub