home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch04 / formload / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-04-13  |  3.4 KB  |  115 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00FFFF00&
  4.    Caption         =   "Form Loader"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Show Form3"
  15.       BeginProperty Font 
  16.          Name            =   "MS Serif"
  17.          Size            =   13.5
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   435
  25.       Left            =   2520
  26.       TabIndex        =   3
  27.       Top             =   2505
  28.       Visible         =   0   'False
  29.       Width           =   2025
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Show Form2"
  33.       BeginProperty Font 
  34.          Name            =   "MS Serif"
  35.          Size            =   13.5
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   435
  43.       Left            =   315
  44.       TabIndex        =   2
  45.       Top             =   2505
  46.       Visible         =   0   'False
  47.       Width           =   2025
  48.    End
  49.    Begin VB.Label Label1 
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Initializing application"
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   18
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H000000FF&
  62.       Height          =   525
  63.       Left            =   135
  64.       TabIndex        =   1
  65.       Top             =   255
  66.       Width           =   3945
  67.    End
  68.    Begin VB.Label Label2 
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "Please wait ..."
  71.       BeginProperty Font 
  72.          Name            =   "Tahoma"
  73.          Size            =   15.75
  74.          Charset         =   0
  75.          Weight          =   400
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   765
  81.       Left            =   1470
  82.       TabIndex        =   0
  83.       Top             =   1275
  84.       Width           =   3030
  85.    End
  86. Attribute VB_Name = "Form1"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Private Sub Command1_Click()
  93.     Form2.Show
  94. End Sub
  95. Private Sub Command2_Click()
  96.     Form3.Show
  97. End Sub
  98. Private Sub Form_Load()
  99.     Form1.Show
  100.     Form1.MousePointer = vbHourglass
  101.     DoEvents
  102.     Form1.Caption = "Loading Form2..."
  103.     Load Form2
  104.     Form1.Caption = "Loading Form3..."
  105.     Load Form3
  106.         
  107.     Form1.Caption = "Form Loader"
  108.     Command1.Visible = True
  109.     Command2.Visible = True
  110.     Label1.Caption = "Application Loaded"
  111.     Label2.Caption = "Click on the buttons to load a Form"
  112.     Form1.MousePointer = vbDefault
  113.     DoEvents
  114. End Sub
  115.