home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / ABOUTBOX.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1997-01-07  |  4.2 KB  |  146 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   2280
  6.    ClientLeft      =   4395
  7.    ClientTop       =   2925
  8.    ClientWidth     =   5055
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "ABOUTBOX.frx":0000
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   2280
  25.    ScaleWidth      =   5055
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.CommandButton cmdOK 
  29.       Cancel          =   -1  'True
  30.       Caption         =   "
  31. (&O)"
  32.       Default         =   -1  'True
  33.       Height          =   375
  34.       Left            =   2040
  35.       MaskColor       =   &H00000000&
  36.       TabIndex        =   1
  37.       Top             =   1800
  38.       Width           =   975
  39.    End
  40.    Begin VB.PictureBox picIcon 
  41.       BackColor       =   &H00C0C0C0&
  42.       BorderStyle     =   0  'None
  43.       BeginProperty Font 
  44.          Name            =   "
  45.          Size            =   9
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   525
  53.       Left            =   255
  54.       Picture         =   "ABOUTBOX.frx":000C
  55.       ScaleHeight     =   525
  56.       ScaleWidth      =   480
  57.       TabIndex        =   0
  58.       Top             =   300
  59.       Width           =   480
  60.    End
  61.    Begin VB.Label lblLabels 
  62.       Alignment       =   2  'Center
  63.       Caption         =   "
  64. Microsoft Corp. 1996-97"
  65.       Height          =   375
  66.       Index           =   3
  67.       Left            =   1320
  68.       TabIndex        =   5
  69.       Top             =   1320
  70.       Width           =   2535
  71.    End
  72.    Begin VB.Label lblLabels 
  73.       Alignment       =   2  'Center
  74.       Caption         =   "
  75.  5.0"
  76.       Height          =   210
  77.       Index           =   2
  78.       Left            =   1320
  79.       TabIndex        =   4
  80.       Top             =   840
  81.       Width           =   2535
  82.    End
  83.    Begin VB.Label lblLabels 
  84.       Alignment       =   2  'Center
  85.       Caption         =   "
  86.       Height          =   210
  87.       Index           =   1
  88.       Left            =   1200
  89.       TabIndex        =   3
  90.       Top             =   600
  91.       Width           =   2895
  92.    End
  93.    Begin VB.Label lblLabels 
  94.       Alignment       =   2  'Center
  95.       Caption         =   "Microsoft Visual Basic"
  96.       BeginProperty Font 
  97.          Name            =   "
  98.          Size            =   9
  99.          Charset         =   134
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   270
  106.       Index           =   0
  107.       Left            =   1320
  108.       TabIndex        =   2
  109.       Top             =   120
  110.       Width           =   2535
  111.    End
  112. Attribute VB_Name = "frmAboutBox"
  113. Attribute VB_GlobalNameSpace = False
  114. Attribute VB_Creatable = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. Option Explicit
  118. '>>>>>>>>>>>>>>>>>>>>>>>>
  119. Const FORMCAPTION = "
  120. Const LABEL0 = "Microsoft Visual Basic"
  121. Const Label1 = "
  122. Const Label2 = "
  123.  5.0"
  124. Const LABEL3 = "
  125. Microsoft Corp. 1996-97"
  126. Const BUTTON1 = "
  127. (&O)"
  128. '>>>>>>>>>>>>>>>>>>>>>>>>
  129. Private Sub Form_KeyPress(KeyAscii As Integer)
  130.   Unload Me
  131. End Sub
  132. Private Sub Form_Load()
  133.   Me.Caption = FORMCAPTION
  134.   lblLabels(0).Caption = LABEL0
  135.   lblLabels(1).Caption = Label1
  136.   lblLabels(2).Caption = Label2
  137.   lblLabels(3).Caption = LABEL3
  138.   cmdOK.Caption = BUTTON1
  139. End Sub
  140. Private Sub cmdOK_Click()
  141.   Unload Me
  142. End Sub
  143. Private Sub cmdOK_KeyPress(KeyAscii As Integer)
  144.   Unload Me
  145. End Sub
  146.