home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scicalc / scicalcp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-12  |  3.9 KB  |  118 lines
  1. VERSION 5.00
  2. Begin VB.Form CopyrightForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Sci-CALC"
  7.    ClientHeight    =   2730
  8.    ClientLeft      =   2490
  9.    ClientTop       =   3510
  10.    ClientWidth     =   3585
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "Garamond"
  14.       Size            =   24
  15.       Charset         =   0
  16.       Weight          =   700
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H80000008&
  22.    LinkTopic       =   "Form2"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    PaletteMode     =   1  'UseZOrder
  26.    ScaleHeight     =   2730
  27.    ScaleWidth      =   3585
  28.    Begin VB.PictureBox Picture1 
  29.       AutoRedraw      =   -1  'True
  30.       Height          =   1080
  31.       Left            =   285
  32.       ScaleHeight     =   1020
  33.       ScaleWidth      =   2970
  34.       TabIndex        =   3
  35.       Top             =   165
  36.       Width           =   3030
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "O K"
  40.       BeginProperty Font 
  41.          Name            =   "Garamond"
  42.          Size            =   18
  43.          Charset         =   0
  44.          Weight          =   700
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   405
  50.       Left            =   1140
  51.       TabIndex        =   2
  52.       Top             =   2175
  53.       Width           =   1335
  54.    End
  55.    Begin VB.Label Label1 
  56.       Alignment       =   2  'Center
  57.       Appearance      =   0  'Flat
  58.       BackColor       =   &H80000005&
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "Mastering VB6"
  61.       BeginProperty Font 
  62.          Name            =   "Garamond"
  63.          Size            =   12
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00FFFF00&
  71.       Height          =   345
  72.       Left            =   15
  73.       TabIndex        =   0
  74.       Top             =   1365
  75.       Width           =   3525
  76.    End
  77.    Begin VB.Label Label4 
  78.       Alignment       =   2  'Center
  79.       Appearance      =   0  'Flat
  80.       BackColor       =   &H80000005&
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "Copyright 1998"
  83.       BeginProperty Font 
  84.          Name            =   "Garamond"
  85.          Size            =   12
  86.          Charset         =   0
  87.          Weight          =   700
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       ForeColor       =   &H00FFFF00&
  93.       Height          =   375
  94.       Left            =   75
  95.       TabIndex        =   1
  96.       Top             =   1650
  97.       Width           =   3465
  98.    End
  99. Attribute VB_Name = "CopyrightForm"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. Private Sub Command1_Click()
  105.     Me.Hide
  106. End Sub
  107. Private Sub Form_Load()
  108.     Me.Refresh
  109.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(" SciCLAC 1.0")) / 2
  110.     Picture1.CurrentY = (Picture1.ScaleHeight - TextHeight(" SciCALC 1.0")) / 2
  111.     Picture1.ForeColor = RGB(255, 255, 255)
  112.     Picture1.Print " SciCALC 1.0"
  113.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(" SciCALC 1.0")) / 2 + TextWidth("S") / 12
  114.     Picture1.CurrentY = (Picture1.ScaleHeight - TextHeight(" SciCALC 1.0")) / 2 + TextHeight("S") / 16
  115.     Picture1.ForeColor = RGB(0, 0, 0)
  116.     Picture1.Print " SciCALC 1.0"
  117. End Sub
  118.