home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap36 / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-19  |  3.6 KB  |  119 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About Best Team Selector"
  5.    ClientHeight    =   3990
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4200
  9.    Height          =   4395
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3990
  15.    ScaleWidth      =   4200
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1170
  18.    Width           =   4320
  19.    Begin VB.Frame Frame1 
  20.       Caption         =   "Current Database"
  21.       Height          =   555
  22.       Left            =   0
  23.       TabIndex        =   4
  24.       Top             =   2340
  25.       Width           =   4185
  26.       Begin VB.Label lblMDB 
  27.          Caption         =   "MDB"
  28.          Height          =   255
  29.          Left            =   60
  30.          TabIndex        =   5
  31.          Top             =   240
  32.          Width           =   4095
  33.       End
  34.    End
  35.    Begin VB.PictureBox Picture1 
  36.       Height          =   2295
  37.       Left            =   0
  38.       ScaleHeight     =   2235
  39.       ScaleWidth      =   2895
  40.       TabIndex        =   1
  41.       Top             =   60
  42.       Width           =   2955
  43.       Begin VB.Label Label2 
  44.          Alignment       =   2  'Center
  45.          Caption         =   "FWorkshop@aol.com"
  46.          Height          =   315
  47.          Left            =   30
  48.          TabIndex        =   6
  49.          Top             =   1440
  50.          Width           =   2865
  51.       End
  52.       Begin VB.Label Label1 
  53.          Alignment       =   2  'Center
  54.          Caption         =   "Created by Frank Font 1995"
  55.          Height          =   315
  56.          Left            =   240
  57.          TabIndex        =   3
  58.          Top             =   1170
  59.          Width           =   2445
  60.       End
  61.       Begin VB.Label lblVersion 
  62.          Alignment       =   2  'Center
  63.          Caption         =   "Version Info"
  64.          BeginProperty Font 
  65.             name            =   "MS Sans Serif"
  66.             charset         =   0
  67.             weight          =   700
  68.             size            =   12
  69.             underline       =   0   'False
  70.             italic          =   0   'False
  71.             strikethrough   =   0   'False
  72.          EndProperty
  73.          Height          =   375
  74.          Left            =   60
  75.          TabIndex        =   2
  76.          Top             =   1800
  77.          Width           =   2835
  78.       End
  79.       Begin VB.Image Image1 
  80.          Height          =   960
  81.          Left            =   240
  82.          Picture         =   "About.frx":0000
  83.          Top             =   150
  84.          Width           =   2490
  85.       End
  86.    End
  87.    Begin VB.CommandButton cmdOK 
  88.       Caption         =   "&OK"
  89.       Height          =   525
  90.       Left            =   3060
  91.       TabIndex        =   0
  92.       Top             =   60
  93.       Width           =   1065
  94.    End
  95.    Begin VB.Image Image2 
  96.       Height          =   675
  97.       Left            =   600
  98.       Picture         =   "About.frx":2E42
  99.       Top             =   3120
  100.       Width           =   2970
  101.    End
  102. Attribute VB_Name = "frmAbout"
  103. Attribute VB_Creatable = False
  104. Attribute VB_Exposed = False
  105. Option Explicit
  106. Private Sub cmdOK_Click()
  107.   Unload frmAbout
  108. End Sub
  109. Private Sub Form_Load()
  110.   Left = (Screen.Width - Width) / 2
  111.   TOP = (Screen.Height - Height) / 2
  112.   lblVersion.Caption = "Version " + gProgramVersion
  113.   lblMDB = gMainDBName
  114.   MousePointer = 0
  115. End Sub
  116. Private Sub lblVersion_Click()
  117.   lblVersion = "Version " + gProgramVersion + " Rev " + gProgramRevision
  118. End Sub
  119.