📄 picg.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form PICG
BorderStyle = 1 'Fixed Single
Caption = "PICGAME"
ClientHeight = 7230
ClientLeft = 2325
ClientTop = 315
ClientWidth = 5940
ForeColor = &H00000000&
Icon = "PICG.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7230
ScaleWidth = 5940
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton difficulty
Caption = "Easy"
Height = 500
Left = 50
TabIndex = 1
ToolTipText = "Difficulty"
Top = 800
Width = 600
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 15
Left = 4400
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 21
Top = 5000
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 14
Left = 4400
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 20
Top = 3400
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 13
Left = 4400
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 19
Top = 1800
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 12
Left = 4400
ScaleHeight = 1560
ScaleMode = 0 'User
ScaleWidth = 1160
TabIndex = 18
Top = 200
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 11
Left = 3200
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 17
Top = 5000
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 10
Left = 2000
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 16
Top = 5000
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 9
Left = 800
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 15
Top = 5000
Width = 1200
End
Begin VB.TextBox Watch
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 320
Left = 4300
Locked = -1 'True
TabIndex = 14
Top = 6700
Width = 1300
End
Begin VB.Timer Timer1
Interval = 1000
Left = 120
Top = 3720
End
Begin VB.CommandButton start
Caption = "Start"
Height = 500
Left = 50
TabIndex = 0
Top = 200
Width = 600
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 120
Top = 3480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
DefaultExt = "*.jpg,*.bmp,*.gif"
Flags = 4096
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 8
Left = 3200
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 13
Top = 3400
Width = 1200
End
Begin VB.CommandButton PicOpen
Caption = "Pic"
Height = 500
Left = 50
TabIndex = 3
ToolTipText = "Open file"
Top = 2000
Width = 600
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 7
Left = 2000
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 12
Top = 3400
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 6
Left = 800
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 11
Top = 3400
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 5
Left = 3200
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 10
Top = 1800
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 4
Left = 2000
ScaleHeight = 1545
ScaleWidth = 1140
TabIndex = 9
Top = 1800
Width = 1200
End
Begin VB.CommandButton exit
Caption = "Exit"
Height = 500
Left = 50
TabIndex = 4
Top = 2600
Width = 600
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 3
Left = 800
ScaleHeight = 1560
ScaleMode = 0 'User
ScaleWidth = 1160
TabIndex = 8
Top = 1800
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 2
Left = 3200
ScaleHeight = 1560
ScaleMode = 0 'User
ScaleWidth = 1160
TabIndex = 7
Top = 200
Width = 1200
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 1
Left = 2000
ScaleHeight = 1560
ScaleMode = 0 'User
ScaleWidth = 1160
TabIndex = 6
Top = 200
Width = 1200
End
Begin VB.CommandButton showpic
Caption = "Show"
Height = 500
Left = 50
TabIndex = 2
ToolTipText = "Show Pic"
Top = 1400
Width = 600
End
Begin VB.PictureBox PIC
AutoRedraw = -1 'True
Height = 1600
Index = 0
Left = 800
ScaleHeight = 1560
ScaleMode = 0 'User
ScaleWidth = 1160
TabIndex = 5
Top = 200
Width = 1200
End
Begin VB.Image Image1
Enabled = 0 'False
Height = 7140
Left = 800
Top = 200
Visible = 0 'False
Width = 5550
End
Begin VB.Image Image3
Enabled = 0 'False
Height = 400
Left = 120
Picture = "PICG.frx":08CA
Stretch = -1 'True
Top = 6700
Width = 3900
End
Begin VB.Image Image2
Enabled = 0 'False
Height = 2400
Left = -75
Picture = "PICG.frx":45AE
Stretch = -1 'True
Top = 3720
Width = 900
End
End
Attribute VB_Name = "PICG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public PHidL, PHidT, Mov, Nub, Dif, SS, MM As Integer
Public ImH, ImW As Integer
Public PicN As String
Private PL(15) As Integer
Private PT(15) As Integer
Public PHid As Integer
Public ST, MT As String
Public Hig As Integer
Public GTiM, GTiS As Integer
'GTim,GTis是设置游戏时间的变量。
'设置变量 PHidL（隐藏图片的Left）, PHidT（隐藏图片的Top）, _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -