home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Adventure game / frmSplash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-05-13  |  8.7 KB  |  269 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3960
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7095
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmSplash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Picture         =   "frmSplash.frx":030A
  16.    ScaleHeight     =   3960
  17.    ScaleWidth      =   7095
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.Timer Timer2 
  21.       Enabled         =   0   'False
  22.       Interval        =   10
  23.       Left            =   3480
  24.       Top             =   1800
  25.    End
  26.    Begin VB.Timer Timer1 
  27.       Enabled         =   0   'False
  28.       Interval        =   2500
  29.       Left            =   3000
  30.       Top             =   1800
  31.    End
  32.    Begin VB.Frame Frame1 
  33.       BorderStyle     =   0  'None
  34.       ForeColor       =   &H0000FFFF&
  35.       Height          =   4410
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   7320
  40.       Begin VB.PictureBox Picture1 
  41.          BackColor       =   &H00FFFFFF&
  42.          ForeColor       =   &H00FF0000&
  43.          Height          =   255
  44.          Left            =   360
  45.          ScaleHeight     =   195
  46.          ScaleWidth      =   4395
  47.          TabIndex        =   9
  48.          Top             =   3360
  49.          Width           =   4455
  50.       End
  51.       Begin VB.Shape Shape2 
  52.          BorderWidth     =   2
  53.          Height          =   3495
  54.          Left            =   240
  55.          Top             =   240
  56.          Width           =   6615
  57.       End
  58.       Begin VB.Shape Shape1 
  59.          BorderColor     =   &H00808080&
  60.          BorderWidth     =   2
  61.          Height          =   3430
  62.          Left            =   270
  63.          Top             =   270
  64.          Width           =   6550
  65.       End
  66.       Begin VB.Label Label3 
  67.          AutoSize        =   -1  'True
  68.          BackStyle       =   0  'Transparent
  69.          Caption         =   "G"
  70.          BeginProperty Font 
  71.             Name            =   "Arial"
  72.             Size            =   21.75
  73.             Charset         =   0
  74.             Weight          =   700
  75.             Underline       =   0   'False
  76.             Italic          =   0   'False
  77.             Strikethrough   =   0   'False
  78.          EndProperty
  79.          ForeColor       =   &H000000C0&
  80.          Height          =   510
  81.          Left            =   3200
  82.          TabIndex        =   8
  83.          Top             =   600
  84.          Width           =   345
  85.       End
  86.       Begin VB.Label Label2 
  87.          AutoSize        =   -1  'True
  88.          BackStyle       =   0  'Transparent
  89.          Caption         =   "C"
  90.          BeginProperty Font 
  91.             Name            =   "Arial"
  92.             Size            =   21.75
  93.             Charset         =   0
  94.             Weight          =   700
  95.             Underline       =   0   'False
  96.             Italic          =   0   'False
  97.             Strikethrough   =   0   'False
  98.          EndProperty
  99.          ForeColor       =   &H000000C0&
  100.          Height          =   510
  101.          Left            =   4570
  102.          TabIndex        =   7
  103.          Top             =   600
  104.          Width           =   315
  105.       End
  106.       Begin VB.Label Label1 
  107.          AutoSize        =   -1  'True
  108.          BackStyle       =   0  'Transparent
  109.          Caption         =   "A"
  110.          BeginProperty Font 
  111.             Name            =   "Arial"
  112.             Size            =   21.75
  113.             Charset         =   0
  114.             Weight          =   700
  115.             Underline       =   0   'False
  116.             Italic          =   0   'False
  117.             Strikethrough   =   0   'False
  118.          EndProperty
  119.          ForeColor       =   &H000000C0&
  120.          Height          =   510
  121.          Left            =   910
  122.          TabIndex        =   6
  123.          Top             =   600
  124.          Width           =   285
  125.       End
  126.       Begin VB.Label lblCopyright 
  127.          BackStyle       =   0  'Transparent
  128.          Caption         =   "Copyright(c) 1999 "
  129.          BeginProperty Font 
  130.             Name            =   "Arial"
  131.             Size            =   8.25
  132.             Charset         =   0
  133.             Weight          =   400
  134.             Underline       =   0   'False
  135.             Italic          =   0   'False
  136.             Strikethrough   =   0   'False
  137.          EndProperty
  138.          Height          =   375
  139.          Left            =   5040
  140.          TabIndex        =   2
  141.          Top             =   3000
  142.          Width           =   1815
  143.       End
  144.       Begin VB.Label lblCompany 
  145.          BackStyle       =   0  'Transparent
  146.          Caption         =   "Sim Software"
  147.          BeginProperty Font 
  148.             Name            =   "Arial"
  149.             Size            =   8.25
  150.             Charset         =   0
  151.             Weight          =   400
  152.             Underline       =   0   'False
  153.             Italic          =   0   'False
  154.             Strikethrough   =   0   'False
  155.          EndProperty
  156.          Height          =   255
  157.          Left            =   5040
  158.          TabIndex        =   1
  159.          Top             =   3240
  160.          Width           =   1095
  161.       End
  162.       Begin VB.Label lblVersion 
  163.          Alignment       =   1  'Right Justify
  164.          AutoSize        =   -1  'True
  165.          BackStyle       =   0  'Transparent
  166.          Caption         =   "Version 1.0"
  167.          BeginProperty Font 
  168.             Name            =   "Arial"
  169.             Size            =   12
  170.             Charset         =   0
  171.             Weight          =   700
  172.             Underline       =   0   'False
  173.             Italic          =   0   'False
  174.             Strikethrough   =   0   'False
  175.          EndProperty
  176.          Height          =   285
  177.          Left            =   5040
  178.          TabIndex        =   3
  179.          Top             =   2520
  180.          Width           =   1275
  181.       End
  182.       Begin VB.Label lblPlatform 
  183.          Alignment       =   1  'Right Justify
  184.          AutoSize        =   -1  'True
  185.          BackStyle       =   0  'Transparent
  186.          Caption         =   "Windows 95/98"
  187.          BeginProperty Font 
  188.             Name            =   "Arial"
  189.             Size            =   15.75
  190.             Charset         =   0
  191.             Weight          =   700
  192.             Underline       =   0   'False
  193.             Italic          =   0   'False
  194.             Strikethrough   =   0   'False
  195.          EndProperty
  196.          Height          =   360
  197.          Left            =   4080
  198.          TabIndex        =   4
  199.          Top             =   2040
  200.          Width           =   2280
  201.       End
  202.       Begin VB.Label lblProductName 
  203.          AutoSize        =   -1  'True
  204.          BackStyle       =   0  'Transparent
  205.          Caption         =   "dventure    ame    reator"
  206.          BeginProperty Font 
  207.             Name            =   "Arial"
  208.             Size            =   21.75
  209.             Charset         =   0
  210.             Weight          =   700
  211.             Underline       =   0   'False
  212.             Italic          =   0   'False
  213.             Strikethrough   =   0   'False
  214.          EndProperty
  215.          ForeColor       =   &H00C00000&
  216.          Height          =   510
  217.          Left            =   1200
  218.          TabIndex        =   5
  219.          Top             =   600
  220.          Width           =   4920
  221.       End
  222.       Begin VB.Image Image1 
  223.          Height          =   4305
  224.          Left            =   0
  225.          Picture         =   "frmSplash.frx":0614
  226.          Stretch         =   -1  'True
  227.          Top             =   0
  228.          Width           =   7275
  229.       End
  230.    End
  231. Attribute VB_Name = "frmSplash"
  232. Attribute VB_GlobalNameSpace = False
  233. Attribute VB_Creatable = False
  234. Attribute VB_PredeclaredId = True
  235. Attribute VB_Exposed = False
  236. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  237. Private Sub Form_Load()
  238. Timer2.Enabled = True
  239. Timer1.Enabled = True
  240. End Sub
  241. Private Sub Timer1_Timer()
  242. frmSplash.Hide
  243. frmMDI.Show
  244. Timer1.Enabled = False
  245. End Sub
  246. Sub Progress(pb As Control, ByVal Percent)
  247. Dim num$
  248. If Not pb.AutoRedraw Then
  249.     pb.AutoRedraw = -1
  250.     End If
  251.     pb.Cls
  252.     pb.ScaleWidth = 100
  253.     pb.DrawMode = 10
  254.     num$ = Format$(Percent, "###") + "%"
  255.     pb.CurrentX = 50 - pb.TextWidth(num$) / 2
  256.     pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2
  257.     pb.Print num$
  258.     pb.Line (0, 0)-(Percent, pb.ScaleHeight), , BF
  259.     pb.Refresh
  260. End Sub
  261. Private Sub Timer2_Timer()
  262. Picture1.ForeColor = vbBlue
  263. For X% = 0 To 100
  264. Sleep 10
  265. Progress Picture1, X%
  266. Next X%
  267. Timer2.Enabled = False
  268. End Sub
  269.