📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "CitySimulator"
ClientHeight = 6465
ClientLeft = 45
ClientTop = 330
ClientWidth = 8175
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6465
ScaleWidth = 8175
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Visible = 0 'False
Begin VB.PictureBox Blank
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Left = 4800
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 129
Top = 240
Visible = 0 'False
Width = 495
End
Begin VB.Timer BirdTimer
Interval = 500
Left = 120
Top = 120
End
Begin VB.Timer TILEDATAUPDATE
Interval = 5000
Left = 480
Top = 120
End
Begin VB.Timer MainDrawTimer
Interval = 50
Left = 840
Top = 120
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 11
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 127
Top = 2280
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 10
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 126
Top = 1800
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 9
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 125
Top = 1320
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 8
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 124
Top = 840
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 7
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 123
Top = 2760
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 6
Left = 5280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 122
Top = 3240
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 5
Left = 4800
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 118
Top = 3240
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox BirdMask
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Index = 4
Left = 4800
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 29
TabIndex = 117
Top = 2760
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox LBLPPOP
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 240
Left = 5880
Picture = "Form1.frx":0000
ScaleHeight = 210
ScaleWidth = 2115
TabIndex = 110
Top = 2520
Width = 2145
End
Begin VB.PictureBox LBLLYI
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 480
Left = 5880
Picture = "Form1.frx":00BA
ScaleHeight = 30
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 109
Top = 3120
Width = 2145
Begin VB.Line Line1
X1 = 0
X2 = 144
Y1 = 28
Y2 = 28
End
End
Begin VB.PictureBox TURFFall
AutoRedraw = -1 'True
Height = 255
Index = 8
Left = 2760
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 45
Top = 8040
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSummer
AutoRedraw = -1 'True
Height = 255
Index = 8
Left = 2880
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 41
Top = 8400
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSpring
AutoRedraw = -1 'True
Height = 255
Index = 8
Left = 2880
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 37
Top = 8160
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFWinter
AutoRedraw = -1 'True
Height = 255
Index = 8
Left = 2880
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 33
Top = 7920
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFFall
AutoRedraw = -1 'True
Height = 255
Index = 9
Left = 2520
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 46
Top = 8040
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSummer
AutoRedraw = -1 'True
Height = 255
Index = 9
Left = 2640
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 42
Top = 8400
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSpring
AutoRedraw = -1 'True
Height = 255
Index = 9
Left = 2640
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 38
Top = 8160
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFWinter
AutoRedraw = -1 'True
Height = 255
Index = 9
Left = 2640
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 34
Top = 7920
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFFall
AutoRedraw = -1 'True
Height = 255
Index = 10
Left = 2280
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 47
Top = 8040
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSummer
AutoRedraw = -1 'True
Height = 255
Index = 10
Left = 2400
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 43
Top = 8400
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSpring
AutoRedraw = -1 'True
Height = 255
Index = 10
Left = 2400
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 39
Top = 8160
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFWinter
AutoRedraw = -1 'True
Height = 255
Index = 10
Left = 2400
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 35
Top = 7920
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFFall
AutoRedraw = -1 'True
Height = 255
Index = 11
Left = 2040
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 48
Top = 8040
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSummer
AutoRedraw = -1 'True
Height = 255
Index = 11
Left = 2160
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 44
Top = 8400
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFSpring
AutoRedraw = -1 'True
Height = 255
Index = 11
Left = 2160
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 40
Top = 8160
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFWinter
AutoRedraw = -1 'True
Height = 255
Index = 11
Left = 2160
ScaleHeight = 13
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 36
Top = 7920
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox TURFFall
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -