main.frm
来自「游戏代码：用VB开发的潜艇大战游戏的源程序」· FRM 代码 · 共 1,143 行 · 第 1/3 页
FRM
1,143 行
VERSION 5.00
Begin VB.Form Form1
Caption = "Submarine Hunter v. 1.5"
ClientHeight = 5655
ClientLeft = 60
ClientTop = 345
ClientWidth = 7440
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "main.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 5655
ScaleWidth = 7440
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox PicExpM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 3
Left = 9780
Picture = "main.frx":030A
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 38
Top = 2520
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExpM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 2
Left = 9720
Picture = "main.frx":331C
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 37
Top = 2400
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExpM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 1
Left = 9600
Picture = "main.frx":632E
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 36
Top = 2280
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExpM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 0
Left = 9480
Picture = "main.frx":9340
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 35
Top = 2160
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExp
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 3
Left = 8580
Picture = "main.frx":C352
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 34
Top = 2880
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExp
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 2
Left = 8520
Picture = "main.frx":F364
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 33
Top = 2640
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExp
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 1
Left = 8460
Picture = "main.frx":12376
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 32
Top = 2400
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicExp
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 900
Index = 0
Left = 8400
Picture = "main.frx":15388
ScaleHeight = 60
ScaleMode = 3 'Pixel
ScaleWidth = 67
TabIndex = 31
Top = 2160
Visible = 0 'False
Width = 1005
End
Begin VB.PictureBox PicElvM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 2
Left = 8700
Picture = "main.frx":1839A
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 30
Top = 1920
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicElvM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 1
Left = 8700
Picture = "main.frx":1873C
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 29
Top = 1740
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicElvM
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 8700
Picture = "main.frx":18ADE
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 28
Top = 1560
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicElv
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 2
Left = 8340
Picture = "main.frx":18E80
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 27
Top = 1920
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicElv
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 1
Left = 8340
Picture = "main.frx":19222
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 26
Top = 1740
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicElv
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 8340
Picture = "main.frx":195C4
ScaleHeight = 12
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 25
Top = 1560
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox PicPlane2
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?