home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch28code / frmspl.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-30  |  2.3 KB  |  60 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   360
  6.    ClientLeft      =   1035
  7.    ClientTop       =   1470
  8.    ClientWidth     =   5025
  9.    ControlBox      =   0   'False
  10.    Height          =   765
  11.    Icon            =   "Frmspl.frx":0000
  12.    Left            =   975
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   360
  15.    ScaleWidth      =   5025
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1125
  18.    Width           =   5145
  19.    Begin VB.Label lblMessage 
  20.       Alignment       =   2  'Center
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "Label1"
  23.       Height          =   195
  24.       Left            =   90
  25.       TabIndex        =   0
  26.       Top             =   90
  27.       Width           =   4785
  28.    End
  29. Attribute VB_Name = "frmSplash"
  30. Attribute VB_Creatable = False
  31. Attribute VB_Exposed = False
  32. '*********************************************************************
  33. ' FRMSPL.FRM - This is just a splash form that is used to display
  34. '              messages to the user during long processes.
  35. '*********************************************************************
  36. Option Explicit
  37. '*********************************************************************
  38. ' Inialize the form.
  39. '*********************************************************************
  40. Private Sub Form_Load()
  41.     BackColor = vb3DFace
  42.     '*****************************************************************
  43.     ' Set the mouse pointer, and put the window on top.
  44.     '*****************************************************************
  45.     Screen.MousePointer = vbHourglass
  46.     AlwaysOnTop Me, True
  47.     '*****************************************************************
  48.     ' Reposition the label to the center of the form.
  49.     '*****************************************************************
  50.     lblMessage.Move (ScaleWidth - lblMessage.Width) / 2, _
  51.                     (ScaleHeight - lblMessage.Height) / 2
  52.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  53. End Sub
  54. '*********************************************************************
  55. ' Restore the mouse pointer.
  56. '*********************************************************************
  57. Private Sub Form_Unload(Cancel As Integer)
  58.     Screen.MousePointer = vbDefault
  59. End Sub
  60.