home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / vb / 3color / scroll1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-05-27  |  4.2 KB  |  154 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "RGB Function Color Demonstration"
  5.    Height          =   4680
  6.    Icon            =   SCROLL1.FRX:0000
  7.    Left            =   1920
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    ScaleHeight     =   3990
  11.    ScaleWidth      =   5715
  12.    Top             =   1365
  13.    Width           =   5835
  14.    Begin PictureBox picPicture1 
  15.       Height          =   855
  16.       Left            =   1080
  17.       ScaleHeight     =   825
  18.       ScaleWidth      =   4065
  19.       TabIndex        =   9
  20.       Top             =   2040
  21.       Width           =   4095
  22.    End
  23.    Begin CommandButton cmdClose 
  24.       Caption         =   "&Close"
  25.       Height          =   495
  26.       Left            =   4320
  27.       TabIndex        =   6
  28.       Top             =   3360
  29.       Width           =   1215
  30.    End
  31.    Begin HScrollBar hsbBlue 
  32.       Height          =   255
  33.       LargeChange     =   35
  34.       Left            =   1080
  35.       Max             =   255
  36.       SmallChange     =   2
  37.       TabIndex        =   5
  38.       Top             =   1560
  39.       Width           =   4095
  40.    End
  41.    Begin HScrollBar hsbGreen 
  42.       Height          =   255
  43.       LargeChange     =   35
  44.       Left            =   1080
  45.       Max             =   255
  46.       SmallChange     =   2
  47.       TabIndex        =   4
  48.       Top             =   960
  49.       Width           =   4095
  50.    End
  51.    Begin HScrollBar hsbRed 
  52.       Height          =   255
  53.       LargeChange     =   30
  54.       Left            =   1080
  55.       Max             =   255
  56.       SmallChange     =   2
  57.       TabIndex        =   3
  58.       Top             =   360
  59.       Width           =   4095
  60.    End
  61.    Begin Label lbl_HexColorNumber 
  62.       Height          =   255
  63.       Left            =   1320
  64.       TabIndex        =   8
  65.       Top             =   3360
  66.       Width           =   2055
  67.    End
  68.    Begin Label Label4 
  69.       Caption         =   "Hex Color Number:"
  70.       Height          =   495
  71.       Left            =   240
  72.       TabIndex        =   7
  73.       Top             =   3120
  74.       Width           =   855
  75.    End
  76.    Begin Label Label3 
  77.       Caption         =   "Blue"
  78.       Height          =   255
  79.       Left            =   240
  80.       TabIndex        =   2
  81.       Top             =   1560
  82.       Width           =   735
  83.    End
  84.    Begin Label Label2 
  85.       Caption         =   "Green"
  86.       Height          =   255
  87.       Left            =   240
  88.       TabIndex        =   1
  89.       Top             =   960
  90.       Width           =   615
  91.    End
  92.    Begin Label Label1 
  93.       Caption         =   "Red"
  94.       Height          =   255
  95.       Left            =   240
  96.       TabIndex        =   0
  97.       Top             =   360
  98.       Width           =   615
  99.    End
  100.    Begin Menu menuAboutBox 
  101.       Caption         =   "&About"
  102.    End
  103. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  104. Sub cmdClose_Click ()
  105.     End
  106. End Sub
  107. Sub DoColor ()
  108.     lbl_HexColorNumber.Caption = "&&H" + Hex$(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value))
  109.     picPicture1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
  110. End Sub
  111. Sub Form_Load ()
  112.     'Center form
  113.     Left = (Screen.Width - Width) / 2
  114.     Top = (Screen.Height - Height) / 2
  115. End Sub
  116. Sub hsbBlue_Change ()
  117.     hsbBlue_Scroll
  118. End Sub
  119. Sub hsbBlue_Scroll ()
  120.     DoColor
  121. End Sub
  122. Sub hsbGreen_Change ()
  123.     hsbGreen_Scroll
  124. End Sub
  125. Sub hsbGreen_Scroll ()
  126.     DoColor
  127. End Sub
  128. Sub hsbRed_Change ()
  129.     hsbRed_Scroll
  130. End Sub
  131. Sub hsbRed_Scroll ()
  132.     DoColor
  133. End Sub
  134. Sub menuAboutBox_Click ()
  135.     About2.Caption = "RGB Function Color Demo"
  136.     About2.Label2.Caption = "RGB Color Demo"
  137.     About2.Label1.Caption = "Version 1.1"
  138.      About2.Show modal
  139. End Sub
  140. Sub menuHelp_Click ()
  141.     'This is primitive But it works
  142.     'Path$ = App.Path
  143.     'If Right$(Path$, 1) <> "\" Then
  144.     '    Path$ = Path$ + "\"
  145.     'End If
  146.     HelpFile$ = "VB\VB.HLP"
  147.     'HelpFile$ = Path$ + "VB.HLP"
  148.     'Directory$ = Dir$("VB", 16)
  149.     Stop
  150.     wCmd = HELP_INDEX
  151.     dwData = HELP_CONTEXT
  152.     Temp% = WinHelp(hWnd, HelpFile$, wCmd, dwData)
  153. End Sub
  154.