home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch16 / cldesign / testform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-08  |  7.4 KB  |  226 lines
  1. VERSION 5.00
  2. Object = "*\ACLDesign.vbp"
  3. Begin VB.Form TestForm 
  4.    Caption         =   "Color Designer Test Form"
  5.    ClientHeight    =   4005
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8670
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4005
  11.    ScaleWidth      =   8670
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.PictureBox Picture1 
  14.       Height          =   2415
  15.       Left            =   120
  16.       ScaleHeight     =   2355
  17.       ScaleWidth      =   6435
  18.       TabIndex        =   2
  19.       Top             =   120
  20.       Width           =   6495
  21.       Begin VB.CommandButton bttnBlue 
  22.          Caption         =   "Set Blue"
  23.          BeginProperty Font 
  24.             Name            =   "Verdana"
  25.             Size            =   9
  26.             Charset         =   0
  27.             Weight          =   400
  28.             Underline       =   0   'False
  29.             Italic          =   0   'False
  30.             Strikethrough   =   0   'False
  31.          EndProperty
  32.          Height          =   345
  33.          Left            =   5115
  34.          TabIndex        =   8
  35.          Top             =   1785
  36.          Width           =   1140
  37.       End
  38.       Begin VB.TextBox txtBlue 
  39.          BeginProperty Font 
  40.             Name            =   "Verdana"
  41.             Size            =   9
  42.             Charset         =   0
  43.             Weight          =   400
  44.             Underline       =   0   'False
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          Height          =   345
  49.          Left            =   4320
  50.          TabIndex        =   7
  51.          Top             =   1785
  52.          Width           =   705
  53.       End
  54.       Begin VB.TextBox txtRed 
  55.          BeginProperty Font 
  56.             Name            =   "Verdana"
  57.             Size            =   9
  58.             Charset         =   0
  59.             Weight          =   400
  60.             Underline       =   0   'False
  61.             Italic          =   0   'False
  62.             Strikethrough   =   0   'False
  63.          EndProperty
  64.          Height          =   345
  65.          Left            =   4320
  66.          TabIndex        =   6
  67.          Top             =   750
  68.          Width           =   705
  69.       End
  70.       Begin VB.TextBox txtGreen 
  71.          BeginProperty Font 
  72.             Name            =   "Verdana"
  73.             Size            =   9
  74.             Charset         =   0
  75.             Weight          =   400
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   345
  81.          Left            =   4320
  82.          TabIndex        =   5
  83.          Top             =   1275
  84.          Width           =   705
  85.       End
  86.       Begin VB.CommandButton bttnGreen 
  87.          Caption         =   "Set Green"
  88.          BeginProperty Font 
  89.             Name            =   "Verdana"
  90.             Size            =   9
  91.             Charset         =   0
  92.             Weight          =   400
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   345
  98.          Left            =   5115
  99.          TabIndex        =   4
  100.          Top             =   1275
  101.          Width           =   1140
  102.       End
  103.       Begin VB.CommandButton bttnRed 
  104.          Caption         =   "Set Red"
  105.          BeginProperty Font 
  106.             Name            =   "Verdana"
  107.             Size            =   9
  108.             Charset         =   0
  109.             Weight          =   400
  110.             Underline       =   0   'False
  111.             Italic          =   0   'False
  112.             Strikethrough   =   0   'False
  113.          EndProperty
  114.          Height          =   345
  115.          Left            =   5115
  116.          TabIndex        =   3
  117.          Top             =   750
  118.          Width           =   1140
  119.       End
  120.       Begin ColorDesigner.ClrDesigner ClrDesigner1 
  121.          Height          =   1665
  122.          Left            =   120
  123.          TabIndex        =   9
  124.          Top             =   570
  125.          Width           =   4020
  126.          _ExtentX        =   7091
  127.          _ExtentY        =   2937
  128.          SelectedColor   =   13461956
  129.          RedComponent    =   196
  130.          GreenComponent  =   105
  131.          BlueComponent   =   205
  132.       End
  133.       Begin VB.Label Label1 
  134.          Caption         =   "Color Designer"
  135.          BeginProperty Font 
  136.             Name            =   "Comic Sans MS"
  137.             Size            =   14.25
  138.             Charset         =   0
  139.             Weight          =   700
  140.             Underline       =   0   'False
  141.             Italic          =   0   'False
  142.             Strikethrough   =   0   'False
  143.          EndProperty
  144.          Height          =   420
  145.          Left            =   150
  146.          TabIndex        =   10
  147.          Top             =   120
  148.          Width           =   2460
  149.       End
  150.    End
  151.    Begin VB.CommandButton Command2 
  152.       Caption         =   "Set Form Color"
  153.       BeginProperty Font 
  154.          Name            =   "Verdana"
  155.          Size            =   9.75
  156.          Charset         =   0
  157.          Weight          =   400
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       Height          =   495
  163.       Left            =   6720
  164.       TabIndex        =   1
  165.       Top             =   2760
  166.       Width           =   1815
  167.    End
  168.    Begin VB.CommandButton Command1 
  169.       Caption         =   "E X I T"
  170.       BeginProperty Font 
  171.          Name            =   "Verdana"
  172.          Size            =   9.75
  173.          Charset         =   0
  174.          Weight          =   400
  175.          Underline       =   0   'False
  176.          Italic          =   0   'False
  177.          Strikethrough   =   0   'False
  178.       EndProperty
  179.       Height          =   495
  180.       Left            =   6720
  181.       TabIndex        =   0
  182.       Top             =   3360
  183.       Width           =   1815
  184.    End
  185. Attribute VB_Name = "TestForm"
  186. Attribute VB_GlobalNameSpace = False
  187. Attribute VB_Creatable = False
  188. Attribute VB_PredeclaredId = True
  189. Attribute VB_Exposed = False
  190. '  ******************************
  191. '  ******************************
  192. '  ** MASTERING VB6            **
  193. '  ** by Evangelos Petroutos   **
  194. '  ** SYBEX, 1998              **
  195. '  ******************************
  196. '  ******************************
  197. Private Sub bttnBlue_Click()
  198. On Error Resume Next
  199.     If IsNumeric(txtBlue.Text) Then ClrDesigner1.BlueComponent = txtBlue.Text
  200. End Sub
  201. Private Sub bttnGreen_Click()
  202. On Error Resume Next
  203.     If IsNumeric(txtGreen.Text) Then ClrDesigner1.GreenComponent = txtGreen.Text
  204. End Sub
  205. Private Sub bttnRed_Click()
  206. On Error Resume Next
  207.     If IsNumeric(txtRed.Text) Then ClrDesigner1.RedComponent = txtRed.Text
  208. End Sub
  209. Private Sub ClrDesigner1_BlueChanged()
  210.     txtBlue.Text = ClrDesigner1.BlueComponent
  211. End Sub
  212. Private Sub ClrDesigner1_GreenChanged()
  213.     txtGreen.Text = ClrDesigner1.GreenComponent
  214. End Sub
  215. Private Sub ClrDesigner1_RedChanged()
  216.     txtRed.Text = ClrDesigner1.RedComponent
  217. End Sub
  218. Private Sub Command2_Click()
  219.     TestForm.BackColor = ClrDesigner1.SelectedColor
  220. End Sub
  221. Private Sub Form_Load()
  222.     txtRed.Text = ClrDesigner1.RedComponent
  223.     txtGreen.Text = ClrDesigner1.GreenComponent
  224.     txtBlue.Text = ClrDesigner1.BlueComponent
  225. End Sub
  226.