frmsplash.frm

来自「小型RPG游戏设计」· FRM 代码 · 共 73 行

VERSION 5.00
Begin VB.Form FrmSplash 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Samurai Scroll"
   ClientHeight    =   3900
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   4455
   Icon            =   "FrmSplash.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "FrmSplash.frx":030A
   ScaleHeight     =   3900
   ScaleWidth      =   4455
   ShowInTaskbar   =   0   'False
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "[e-mail]       ICQ#24574669 http://www.vengei.com/nomadik"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   3000
      Width           =   3015
   End
End
Attribute VB_Name = "FrmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Rem ******************************************************************
Rem * Program name  : Samurai Scroll (Sequel to Ninja Adventure[QB]) *
Rem * Author        : Jesse Acosta  (Nomadik)                        *
Rem * Last Amended  : 11.28.1999                                     *
Rem * Dedicated     : This goes out to a cool friend named Mubwn     *
Rem *                                                                *
Rem * Specification : Simplistic Adventure Searching Game.           *
Rem *                 Top-down style, in form of Final Fantasy       *
Rem * Contact:      : HTTP://www.vengei.com/nomadik  ICQ#24574669           *
Rem *                    or E-mail me At  [e-mail]       *
Rem ******************************************************************

Private Sub Form_Click()
    'Stop  Midi     Start
    Midi = "kungfu.mid"
    CmdStr = "stop " & Midi
    ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
    'Stop And Play Midi     End
    Me.Visible = False
    Load FrmMain
    FrmMain.Show
    Unload Me
End Sub

Private Sub Form_Load()
    'Load And Play Midi     Start
    Midi = "kungfu.mid"
    CmdStr = "play " & Midi
    ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
    'Load And Play Midi     End
End Sub