frmsplash.frm

《Visual Basic 6.0趣味程序导学》光盘

VERSION 5.00
Begin VB.Form frmSplash 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   5820
   ClientLeft      =   510
   ClientTop       =   165
   ClientWidth     =   8355
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5820
   ScaleWidth      =   8355
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      BackColor       =   &H00400000&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5610
      Left            =   150
      TabIndex        =   0
      Top             =   60
      Width           =   8010
      Begin VB.Timer tmrStart 
         Interval        =   100
         Left            =   7095
         Top             =   4845
      End
      Begin VB.PictureBox picStart 
         AutoSize        =   -1  'True
         Height          =   5280
         Left            =   90
         Picture         =   "frmSplash.frx":000C
         ScaleHeight     =   5220
         ScaleWidth      =   4155
         TabIndex        =   1
         Top             =   165
         Width           =   4215
         Begin VB.Shape shpMask 
            BackColor       =   &H00C00000&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C00000&
            BorderStyle     =   0  'Transparent
            DrawMode        =   9  'Not Mask Pen
            Height          =   5220
            Index           =   0
            Left            =   0
            Top             =   0
            Width           =   416
         End
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "按任意键开始游戏...."
         ForeColor       =   &H000000FF&
         Height          =   240
         Left            =   4695
         TabIndex        =   5
         Top             =   4200
         Width           =   2400
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "    华容道游戏作为一个经典游戏，各部分设计都恰到好处，非常巧妙，世界游戏界的三大不可思议。"
         ForeColor       =   &H0080FF80&
         Height          =   960
         Left            =   4695
         TabIndex        =   4
         Top             =   2805
         Width           =   3000
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   $"frmSplash.frx":52F7
         ForeColor       =   &H0080FF80&
         Height          =   1920
         Left            =   4695
         TabIndex        =   3
         Top             =   750
         Width           =   3000
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "华容道"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080FF80&
         Height          =   315
         Left            =   5505
         TabIndex        =   2
         Top             =   330
         Width           =   990
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
'装入控件数组
Dim intTemp As Integer
For intTemp = 1 To 10
    Load shpMask(intTemp)
    shpMask(intTemp).Left = 416 * intTemp
    shpMask(intTemp).Visible = True
Next



End Sub

Private Sub Form_Unload(Cancel As Integer)
    frmMain.Show
End Sub

Private Sub Frame1_Click()
    Unload Me
End Sub

Private Sub tmrStart_Timer()
'使遮掩矩形宽度变化
    Static count As Long
    count = count + 1
    Dim intTemp As Integer
    If ((count Mod 40) = 0) Then
        For intTemp = 0 To 10
            shpMask(intTemp).Width = 416
        Next
    End If
    For intTemp = 0 To 10
        shpMask(intTemp).Width = shpMask(intTemp).Width - 10
    Next
   
End Sub