📄 form1.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
ClientHeight = 6180
ClientLeft = 120
ClientTop = 120
ClientWidth = 7200
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form1.frx":030A
ScaleHeight = 6180
ScaleWidth = 7200
StartUpPosition = 3 'Windows Default
Begin VB.Timer MatrixTextTimer
Interval = 1
Left = 7065
Top = 4995
End
Begin VB.PictureBox pict
BackColor = &H00000000&
Height = 1245
Left = 5835
ScaleHeight = 1185
ScaleWidth = 1050
TabIndex = 10
Top = 540
Width = 1110
Begin VB.Label lbltease
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "THEY'RE GUNNA GET YOU >:)"
ForeColor = &H0000FFFF&
Height = 960
Left = 150
TabIndex = 11
Top = 165
Width = 765
End
Begin VB.Shape ShpTease
BorderColor = &H000000FF&
FillColor = &H000000FF&
Height = 1080
Left = 0
Shape = 3 'Circle
Top = 0
Width = 1035
End
End
Begin VB.PictureBox picMoveF
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 195
Left = 0
MousePointer = 15 'Size All
ScaleHeight = 195
ScaleWidth = 225
TabIndex = 9
Top = 0
Width = 225
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 3
X1 = 30
X2 = 210
Y1 = 210
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00404040&
Index = 2
X1 = 30
X2 = 210
Y1 = 195
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 0
X2 = 180
Y1 = 180
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00404040&
Index = 0
X1 = 0
X2 = 180
Y1 = 165
Y2 = -15
End
End
Begin VB.CommandButton CmdSend
BackColor = &H00808080&
Caption = "&Send"
Height = 360
Left = 5730
Style = 1 'Graphical
TabIndex = 4
Top = 5010
Width = 1080
End
Begin VB.TextBox txtTransmit
BackColor = &H00000000&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 315
Left = 435
MaxLength = 150
TabIndex = 2
Top = 5025
Width = 5190
End
Begin VB.PictureBox PArena
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 4065
Left = 375
MousePointer = 2 'Cross
ScaleHeight = 4065
ScaleWidth = 5220
TabIndex = 0
Top = 465
Width = 5220
Begin MSWinsockLib.Winsock ws
Left = 750
Top = 3990
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 100
Left = 1575
Top = 3960
End
Begin VB.Label lblTr
BackStyle = 0 'Transparent
Caption = "NOT CONNECTED... LOOKING FOR REMOTE PLAYER(S)..."
ForeColor = &H0000FF00&
Height = 825
Left = 45
TabIndex = 1
Top = 45
Width = 5100
End
Begin VB.Shape Circle2
BackColor = &H000000FF&
BackStyle = 1 'Opaque
BorderWidth = 2
Height = 195
Left = 4155
Shape = 3 'Circle
Top = 1650
Width = 195
End
Begin VB.Shape Circle1
BackColor = &H000000FF&
BackStyle = 1 'Opaque
BorderWidth = 2
Height = 195
Left = 435
Shape = 3 'Circle
Top = 1650
Width = 195
End
Begin VB.Shape ShpGrid
BackColor = &H00000000&
BackStyle = 1 'Opaque
FillColor = &H00000080&
FillStyle = 6 'Cross
Height = 4185
Left = -30
Top = -15
Width = 5310
End
End
Begin VB.Shape Shape3
Height = 975
Left = 5790
Top = 2865
Width = 1245
End
Begin VB.Label lblScoreNum1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "00000000"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 240
Index = 3
Left = 5880
TabIndex = 17
Top = 3450
Width = 1035
End
Begin VB.Label lblScoreNum1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "00000000"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 2
Left = 5865
TabIndex = 16
Top = 3390
Width = 1140
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = " Opponent's Score"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 435
Left = 5835
TabIndex = 15
Top = 2895
Width = 1140
End
Begin VB.Shape Shape2
Height = 660
Left = 5790
Top = 2025
Width = 1245
End
Begin VB.Label lblScoreNum1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "00000000"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 240
Index = 1
Left = 5880
TabIndex = 14
Top = 2355
Width = 1035
End
Begin VB.Label lblScoreNum1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "00000000"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 0
Left = 5865
TabIndex = 13
Top = 2295
Width = 1140
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "your score"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 195
Left = 5940
TabIndex = 12
Top = 2055
Width = 915
End
Begin VB.Shape shpdd
Height = 300
Left = 6645
Top = 75
Width = 390
End
Begin VB.Label lblX
Alignment = 2 'Center
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6660
TabIndex = 8
Top = 105
Width = 360
End
Begin VB.Label pMnuHelp
Alignment = 2 'Center
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "&Help"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 1035
TabIndex = 7
Top = 90
Width = 675
End
Begin VB.Label pmnugame
Alignment = 2 'Center
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "&Game"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 285
TabIndex = 6
Top = 90
Width = 675
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "yar-interactive software - http://www.yarinteractive.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 240
Left = 585
TabIndex = 5
Top = 5805
Width = 4845
End
Begin VB.Label Label2
BackColor = &H00404040&
Caption = "Transmitter..."
ForeColor = &H00C0C0C0&
Height = 210
Left = 450
TabIndex = 3
Top = 4815
Width = 930
End
Begin VB.Menu mnugame
Caption = "&Game"
Visible = 0 'False
Begin VB.Menu mnuMusicTog
Caption = "&Music"
End
Begin VB.Menu mnudash2
Caption = "-"
End
Begin VB.Menu mnupause
Caption = "&Pause"
Shortcut = ^P
End
Begin VB.Menu mnuQuit
Caption = "&Quit Current Match..."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -