home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / MCI / ABOUTBOX.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-11-29  |  3.8 KB  |  122 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About MCITest"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   2055
  7.    ClientTop       =   1935
  8.    ClientWidth     =   4755
  9.    BeginProperty Font 
  10.       Name            =   "System"
  11.       Size            =   9.75
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2100
  23.    ScaleWidth      =   4755
  24.    Begin VB.CommandButton BTN_OK 
  25.       Caption         =   "OK"
  26.       Height          =   360
  27.       Left            =   1800
  28.       TabIndex        =   1
  29.       Top             =   1500
  30.       Width           =   1080
  31.    End
  32.    Begin VB.PictureBox picAbout 
  33.       BackColor       =   &H00808000&
  34.       Enabled         =   0   'False
  35.       Height          =   1140
  36.       Left            =   1320
  37.       ScaleHeight     =   1080
  38.       ScaleWidth      =   2955
  39.       TabIndex        =   2
  40.       Top             =   225
  41.       Width           =   3015
  42.       Begin VB.Label lblAbout3 
  43.          Alignment       =   2  'Center
  44.          BackColor       =   &H00808000&
  45.          Caption         =   "Version 1.01"
  46.          Height          =   240
  47.          Left            =   120
  48.          TabIndex        =   5
  49.          Top             =   825
  50.          Width           =   2775
  51.       End
  52.       Begin VB.Label lblAbout2 
  53.          Alignment       =   2  'Center
  54.          BackColor       =   &H00808000&
  55.          Caption         =   "MCI Control Application"
  56.          Height          =   240
  57.          Left            =   120
  58.          TabIndex        =   4
  59.          Top             =   375
  60.          Width           =   2775
  61.       End
  62.       Begin VB.Label lblAbout1 
  63.          Alignment       =   2  'Center
  64.          BackColor       =   &H00808000&
  65.          Caption         =   "Microsoft Visual Basic"
  66.          Height          =   240
  67.          Left            =   120
  68.          TabIndex        =   3
  69.          Top             =   75
  70.          Width           =   2775
  71.       End
  72.    End
  73.    Begin VB.PictureBox PIC_Icon 
  74.       BorderStyle     =   0  'None
  75.       Enabled         =   0   'False
  76.       Height          =   495
  77.       Left            =   480
  78.       Picture         =   "aboutbox.frx":0000
  79.       ScaleHeight     =   495
  80.       ScaleWidth      =   480
  81.       TabIndex        =   0
  82.       Top             =   225
  83.       Width           =   480
  84.    End
  85. Attribute VB_Name = "frmAboutBox"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Private Sub BTN_OK_Click()
  91.     Unload frmAboutBox
  92. End Sub
  93. Private Sub BTN_OK_GotFocus()
  94.     Dim i As Integer
  95.     ' Make the labels slide into the picture box.  Call
  96.     ' the WaitForEventsToFinish procedure to the labels to repaint.
  97.     While lblAbout1.Left <= 120
  98.         lblAbout1.Left = lblAbout1.Left + 50
  99.         WaitForEventsToFinish 1
  100.     Wend
  101.     While lblAbout2.Left > 120
  102.         lblAbout2.Left = lblAbout2.Left - 50
  103.         WaitForEventsToFinish 1
  104.     Wend
  105.     While lblAbout3.Left <= 120
  106.         lblAbout3.Left = lblAbout3.Left + 50
  107.         WaitForEventsToFinish 1
  108.     Wend
  109. End Sub
  110. Private Sub BTN_OK_KeyPress(KeyAscii As Integer)
  111.     ' Entering any key has the same effect as clicking
  112.     ' the OK button.
  113.     BTN_OK_Click
  114. End Sub
  115. Private Sub Form_Load()
  116.     ' Force the labels to be displayed outside the
  117.     ' picture box.
  118.     lblAbout1.Left = -2500
  119.     lblAbout2.Left = 4000
  120.     lblAbout3.Left = -2500
  121. End Sub
  122.