home *** CD-ROM | disk | FTP | other *** search
/ cd-rom express 12 / CDRE12.ISO / Utilities / Kyn / VB5Code.ZIP / frmSplash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-07  |  3.9 KB  |  131 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmSplash 
  4.    ClientHeight    =   1680
  5.    ClientLeft      =   60
  6.    ClientTop       =   60
  7.    ClientWidth     =   3720
  8.    ControlBox      =   0   'False
  9.    HelpContextID   =   10
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1680
  12.    ScaleWidth      =   3720
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.Timer tmrS 
  15.       Left            =   2760
  16.       Top             =   600
  17.    End
  18.    Begin ComctlLib.ProgressBar prgSBar 
  19.       Height          =   255
  20.       Left            =   120
  21.       TabIndex        =   3
  22.       Top             =   1200
  23.       Width           =   3495
  24.       _ExtentX        =   6165
  25.       _ExtentY        =   450
  26.       _Version        =   327682
  27.       Appearance      =   1
  28.    End
  29.    Begin VB.Label lblSMsg 
  30.       AutoSize        =   -1  'True
  31.       Caption         =   "loading ..."
  32.       BeginProperty Font 
  33.          Name            =   "Courier New"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   210
  42.       Left            =   840
  43.       TabIndex        =   2
  44.       Top             =   840
  45.       Width           =   1155
  46.    End
  47.    Begin VB.Label lblSVer 
  48.       AutoSize        =   -1  'True
  49.       Caption         =   "V 1.0"
  50.       BeginProperty Font 
  51.          Name            =   "Courier New"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       ForeColor       =   &H00FF0000&
  60.       Height          =   210
  61.       Left            =   1560
  62.       TabIndex        =   1
  63.       Top             =   480
  64.       Width           =   525
  65.    End
  66.    Begin VB.Label lblSTitle 
  67.       AutoSize        =   -1  'True
  68.       Caption         =   """Keep Your Names"""
  69.       BeginProperty Font 
  70.          Name            =   "Courier New"
  71.          Size            =   14.25
  72.          Charset         =   0
  73.          Weight          =   700
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H00000080&
  79.       Height          =   330
  80.       Left            =   720
  81.       TabIndex        =   0
  82.       Top             =   120
  83.       Width           =   2805
  84.    End
  85.    Begin VB.Image imgS 
  86.       Height          =   480
  87.       Left            =   120
  88.       Picture         =   "frmSplash.frx":0000
  89.       Top             =   120
  90.       Width           =   480
  91.    End
  92. Attribute VB_Name = "frmSplash"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98. Private Sub Form_Load()
  99. '*** Code added by HelpWriter ***
  100. '    SetAppHelp Me.hWnd
  101. '***********************************
  102.  'makes sure the user knows the program is busy
  103.   MousePointer = vbHourglass
  104.  'start the progress bar at zero.
  105.   prgSBar.Value = prgSBar.Min
  106.   prgSBar.Visible = True
  107.  'takes care of the progress bar
  108.   prgSBar.Visible = True
  109.   prgSBar.Align = vbAlignNone
  110.   prgSBar.Min = 0
  111.   prgSBar.Max = 100
  112.   tmrS.Interval = 100
  113.   tmrS.Enabled = True
  114. End Sub
  115. Private Sub tmrS_Timer()
  116.   'increase the ProgressBar's value.
  117.   prgSBar.Value = prgSBar.Value + 5
  118.   'if we're done, goto Main screen
  119.   If prgSBar.Value >= prgSBar.Max Then
  120.     prgSBar.Visible = False
  121.     tmrS.Enabled = False
  122.     MousePointer = vbDefault
  123.     Call EndIt
  124.   End If
  125. End Sub
  126. Private Sub EndIt()
  127.   Unload frmSplash
  128.   Set frmSplash = Nothing
  129.     frmMain.Show
  130. End Sub
  131.