home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch14 / gradient / gradform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-20  |  3.6 KB  |  114 lines
  1. VERSION 5.00
  2. Object = "{97E3FD72-68D4-11D0-BB11-444553540000}#31.0#0"; "gradient.ocx"
  3. Begin VB.Form Form1 
  4.    AutoRedraw      =   -1  'True
  5.    Caption         =   "Gradient Control Demo"
  6.    ClientHeight    =   4275
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   6120
  10.    LinkTopic       =   "Form1"
  11.    Palette         =   "GradForm.frx":0000
  12.    PaletteMode     =   2  'Custom
  13.    ScaleHeight     =   4275
  14.    ScaleWidth      =   6120
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox Text1 
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2625
  27.       Left            =   195
  28.       MultiLine       =   -1  'True
  29.       TabIndex        =   2
  30.       Top             =   720
  31.       Width           =   5775
  32.    End
  33.    Begin VB.CommandButton VGrad 
  34.       Caption         =   "Vertical Gradient"
  35.       BeginProperty Font 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   9.75
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   540
  45.       Left            =   4425
  46.       TabIndex        =   1
  47.       Top             =   3540
  48.       Width           =   1545
  49.    End
  50.    Begin VB.CommandButton HGrad 
  51.       Caption         =   "Horizontal Gradient"
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   540
  62.       Left            =   2550
  63.       TabIndex        =   0
  64.       Top             =   3555
  65.       Width           =   1770
  66.    End
  67.    Begin ColorGradient.Gradient Gradient1 
  68.       Height          =   3360
  69.       Left            =   105
  70.       TabIndex        =   3
  71.       Top             =   90
  72.       Width           =   5985
  73.       _ExtentX        =   10557
  74.       _ExtentY        =   5927
  75.       Begin VB.Label Label1 
  76.          Alignment       =   2  'Center
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "Transparent Label"
  79.          BeginProperty Font 
  80.             Name            =   "Times New Roman"
  81.             Size            =   21.75
  82.             Charset         =   0
  83.             Weight          =   700
  84.             Underline       =   0   'False
  85.             Italic          =   0   'False
  86.             Strikethrough   =   0   'False
  87.          EndProperty
  88.          ForeColor       =   &H00FFFF00&
  89.          Height          =   525
  90.          Left            =   750
  91.          TabIndex        =   4
  92.          Top             =   75
  93.          Width           =   4545
  94.       End
  95.    End
  96. Attribute VB_Name = "Form1"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Option Explicit
  102. Private Sub HGrad_Click()
  103.     Gradient1.GradientDirection = 0
  104. End Sub
  105. Private Sub VGrad_Click()
  106.     Gradient1.GradientDirection = 1
  107. End Sub
  108. Private Sub Form_Resize()
  109.     Gradient1.Top = 0
  110.     Gradient1.Left = 0
  111.     Gradient1.Width = Form1.ScaleWidth
  112.     Gradient1.Height = Form1.ScaleHeight
  113. End Sub
  114.