home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / articles / vbbultn / source / splashfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-13  |  2.4 KB  |  81 lines
  1. VERSION 2.00
  2. Begin Form SplashForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   3735
  6.    ClientLeft      =   1995
  7.    ClientTop       =   1710
  8.    ClientWidth     =   6825
  9.    ControlBox      =   0   'False
  10.    Height          =   4140
  11.    Left            =   1935
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3735
  14.    ScaleWidth      =   6825
  15.    Top             =   1365
  16.    Width           =   6945
  17.    Begin Timer Timer1 
  18.       Interval        =   100
  19.       Left            =   180
  20.       Top             =   1890
  21.    End
  22.    Begin Label Label1 
  23.       BackStyle       =   0  'Transparent
  24.       Caption         =   "User Name: Joe Smith Company: XYZ Corp"
  25.       Height          =   435
  26.       Index           =   2
  27.       Left            =   1740
  28.       TabIndex        =   0
  29.       Top             =   1920
  30.       Width           =   1965
  31.       WordWrap        =   -1  'True
  32.    End
  33.    Begin Label Label1 
  34.       AutoSize        =   -1  'True
  35.       BackStyle       =   0  'Transparent
  36.       Caption         =   "DWSplash"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   -1  'True
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   12
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   300
  44.       Index           =   0
  45.       Left            =   1740
  46.       TabIndex        =   1
  47.       Top             =   930
  48.       Width           =   1470
  49.    End
  50.    Begin Label Label1 
  51.       BackStyle       =   0  'Transparent
  52.       Caption         =   "Version 1.0c, Serial Number 32AF-34GE, Copyright 1993 Desaware - all rights reserved."
  53.       Height          =   435
  54.       Index           =   1
  55.       Left            =   1740
  56.       TabIndex        =   2
  57.       Top             =   1350
  58.       Width           =   4035
  59.       WordWrap        =   -1  'True
  60.    End
  61. Option Explicit
  62. Sub Timer1_Timer ()
  63. Dim res%
  64.     Timer1.Enabled = False
  65.     'check for version conflicts
  66.     FileToCheck$ = "main.exe"
  67.     Load VerVrfy2
  68.     If ConflictFilesFound% Then
  69.         'show list of conflicts
  70.         VerVrfy2.Show 1
  71.         'end the program
  72.         Unload Me
  73.         Exit Sub
  74.     Else
  75.         Unload VerVrfy2
  76.     End If
  77.     'all files are correct, start the main application
  78.     res% = Shell("main.exe /verified", 1)
  79.     Unload Me
  80. End Sub
  81.