📄 skymain.frm
字号:
End
Begin VB.PictureBox BulBac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 6360
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 15
TabStop = 0 'False
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox StaBac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 6360
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 14
TabStop = 0 'False
Top = 840
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox ObjBac
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 6360
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 13
TabStop = 0 'False
Top = 240
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox PacBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 12
TabStop = 0 'False
Top = 4440
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox CraBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 11
TabStop = 0 'False
Top = 3840
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox MapRandom
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 4695
Left = 4920
ScaleHeight = 313
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 10
TabStop = 0 'False
Top = 240
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox StaBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 9
TabStop = 0 'False
Top = 840
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox PlaBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 8
TabStop = 0 'False
Top = 3240
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox MyBulBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 7
TabStop = 0 'False
Top = 2040
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox ExpBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 6
TabStop = 0 'False
Top = 2640
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox BulBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 5
TabStop = 0 'False
Top = 1440
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox ObjBuf
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3600
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 81
TabIndex = 4
TabStop = 0 'False
Top = 240
Visible = 0 'False
Width = 1215
End
Begin VB.PictureBox PicLoad
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00400040&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1095
Left = 1920
ScaleHeight = 73
ScaleMode = 3 'Pixel
ScaleWidth = 105
TabIndex = 3
TabStop = 0 'False
Top = 3840
Visible = 0 'False
Width = 1575
End
Begin VB.PictureBox PicBuf
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
CausesValidation= 0 'False
Enabled = 0 'False
Height = 1695
Left = 1920
ScaleHeight = 113
ScaleMode = 3 'Pixel
ScaleWidth = 108
TabIndex = 2
TabStop = 0 'False
Top = 2040
Visible = 0 'False
Width = 1620
End
Begin VB.CommandButton CmdMimiFrm
Cancel = -1 'True
Caption = "MenuDebug"
Height = 495
Left = -2400
TabIndex = 33
TabStop = 0 'False
Top = 960
Width = 1215
End
Begin VB.PictureBox PicView
BackColor = &H00C00000&
BorderStyle = 0 'None
CausesValidation= 0 'False
Height = 1695
Left = 1920
ScaleHeight = 113
ScaleMode = 3 'Pixel
ScaleWidth = 108
TabIndex = 1
TabStop = 0 'False
Top = 240
Visible = 0 'False
Width = 1620
End
Begin VB.Label ZNouse
BackColor = &H00E0E0E0&
Height = 5535
Left = 6240
TabIndex = 22
Top = 120
Visible = 0 'False
Width = 2775
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LenHead As Byte
Public SeatX As Integer
Public IsGetAltTab As Boolean
Dim MapName(1 To 20) As String
Private Sub Form_Load()
'*************************************************************************************************
Static IsLoadAllthing As Boolean
If IsLoadAllthing Then Exit Sub
IsLoadAllthing = True
'注：以上3句作用是只让frmmain 装载一次（难道frmmain 会load多次吗？！）
'因为在该程序中用了多次 doevents ，以及运行模块中的某些地方用到“对象属性”
'即使是在form已经卸载了的情况下，一旦访问form上的一个对象属性，即可造成form重新装载
'（请参阅 VC资料）
'这是访问属性的缺陷，特别是在doevents应用较多的情况下
'***在该程序中已经仔细检查并没有以上情况发生，但为了安全起见而加上了以上几行
'另外一个很大缺陷是访问速度太满（约为变量的1/20），所以在要求速度的模块中应尽量不免
'访问属性
'***在该程序的主运行模块中没用到任何属性，甚至vb中的方法
MainTime = 999 '即刚启动就显示startwar
TimerMain.Interval = 5
TimerMain.Enabled = True
'注： Timer的稳定记时为 5 毫秒，本可以取1000，但为了防止使用者开启“变速齿轮”（如降低到-256）
'会造成启动或中间的暂停时间达到256秒（即使关掉齿轮）
'设为 5 后最多为1.3秒
'在timegettime函数计时时，x=timegettime 与 timegettime-x之间不能有doevents(齿轮会在此时
'插入程序而造成记时错误，以至在齿轮关闭后使程序暂停相当长时间（timegettime-x 为负）
'解决办法：1、之间不用doevents，把它放到外面，但如果doevents中插入的事件过程运行稍微超时，即
' 可造成主运行模块有点卡（速度不很稳定）
' 2、将检测条件timegettime-x 改为 abs（timegettime-x），即可避开齿轮开启后又关闭而
' 对计时造成的影响（本程序即用此）
'*************************************************************************************************
'Set StartSky = New ClsStart
Set GameSound = New SoundEngine
Call GetOldScreen
Call ChangeDisplay(True)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -