necessary.bas

一个用VB编的小游戏

Attribute VB_Name = "Necessary"
Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020

Type RecData
  nameSchool As String * 12
  namePresident As String * 8
  nameFile As String * 20
  scChinese As Single
  scEnglish As Single
  scMaths As Single
  scScience As Single
  scPE As Single
  gnrDay As Integer
  gnrWeekday As Integer
  gnrWorkday As Boolean 'T=6,F=5
  gnrBan As Boolean
  gnrStrict As Integer
End Type
Type optGameOptions
  lvDifficulty As Integer
  gmSpeed As Integer
End Type
Global RL As String
Global GameSelected As Integer
Global gameData As RecData
Global gOption As optGameOptions
Global gameMode As Boolean  'T=长期
Global NextWork As Boolean
Global IsLoad As Boolean
Global IsSet As Boolean
Global DictLen As Integer
Global GetMark, temp As Long
Global CourseMark, CourseLevel As Integer
Public Function STrim(ByVal Source As String) As String
Dim l
l = InStr(1, Source, Chr(32)) - 1
If l = -1 Then
  STrim = Source
Else
  STrim = Left(Source, l)
End If
End Function
Public Function DesFilter(ByVal Source As String) As String
If InStr(1, Source, ";") = 0 Then
  DesFilter = Source
Else
  DesFilter = Left(Source, InStr(1, Source, ";") - 1)
End If
End Function