fmenu.frm

一个用VB编的小游戏

VERSION 5.00
Begin VB.Form fMenu 
   BackColor       =   &H00800000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Revolution of Education"
   ClientHeight    =   4800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6000
   ControlBox      =   0   'False
   Icon            =   "fMenu.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4800
   ScaleWidth      =   6000
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmd 
      Caption         =   "结束"
      Height          =   375
      Index           =   4
      Left            =   4320
      TabIndex        =   6
      Top             =   4320
      Width           =   1335
   End
   Begin VB.Timer tmr 
      Interval        =   300
      Left            =   2760
      Top             =   3960
   End
   Begin VB.PictureBox picCover 
      BackColor       =   &H00000000&
      Height          =   3600
      Left            =   0
      ScaleHeight     =   3540
      ScaleWidth      =   5940
      TabIndex        =   4
      Top             =   0
      Width           =   6000
      Begin VB.Label lblTitle 
         BackStyle       =   0  'Transparent
         Caption         =   "学校·城堡"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   1215
         Left            =   120
         TabIndex        =   7
         Top             =   120
         Width           =   255
      End
      Begin VB.Label lblAbout 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   $"fMenu.frx":000C
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0FFFF&
         Height          =   25365
         Left            =   960
         TabIndex        =   5
         Top             =   0
         Width           =   3915
      End
   End
   Begin VB.CommandButton cmd 
      Caption         =   "帮助"
      Height          =   375
      Index           =   3
      Left            =   2280
      TabIndex        =   3
      Top             =   4320
      Width           =   1335
   End
   Begin VB.CommandButton cmd 
      Caption         =   "设定"
      Height          =   375
      Index           =   2
      Left            =   240
      TabIndex        =   2
      Top             =   4320
      Width           =   1335
   End
   Begin VB.CommandButton cmd 
      Caption         =   "标准小游戏模式"
      Height          =   375
      Index           =   1
      Left            =   3000
      TabIndex        =   1
      Top             =   3720
      Width           =   2775
   End
   Begin VB.CommandButton cmd 
      Caption         =   "组合长剧本模式"
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   3720
      Width           =   2775
   End
End
Attribute VB_Name = "fMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmd_Click(Index As Integer)
Select Case Index
Case 0
  Unload Me
  gameMode = True
  fScenSel.Show
Case 1
  Unload Me
  gameMode = False
  fGameSel.Show
Case 2
  Unload Me
  IsSet = True
  fSet.Show
Case 3
  MsgBox "进入游戏后，每一步骤中均可找到帮助。", vbOKOnly, "RoE"
Case 4
  Real = MsgBox("Are you sure?", vbQuestion + vbYesNo + vbDefaultButton2, "RoE")
  If Real = 6 Then End
End Select
End Sub
Private Sub Form_Initialize()
gOption.gmSpeed = 300
Dim tem As String
DictLen = 0
Open App.Path & "\word.ini" For Input As #1
Do
  Line Input #1, tem
  DictLen = DictLen + 1
Loop Until EOF(1)
Close #1
End Sub
Private Sub Form_Load()
RL = Chr(13) + Chr(10)
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 200
picCover.Picture = LoadPicture(App.Path & "\Pic\Cover03.bmp")
lblAbout.Move (picCover.Width - lblAbout.Width) / 2, picCover.Height
End Sub

Private Sub tmr_Timer()
lblAbout.Top = lblAbout.Top - 100
If lblAbout.Top + lblAbout.Height / 2 < 150 Then lblAbout.Top = 0
End Sub