📄 ernos.frm
字号:
VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 7200
ClientLeft = 0
ClientTop = 0
ClientWidth = 9585
FillColor = &H00FFFFFF&
ForeColor = &H8000000E&
Icon = "ernos.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MousePointer = 99 'Custom
Picture = "ernos.frx":030A
ScaleHeight = 480
ScaleMode = 3 'Pixel
ScaleWidth = 639
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 750
Left = 75
Picture = "ernos.frx":4E5F
ScaleHeight = 50
ScaleMode = 3 'Pixel
ScaleWidth = 630
TabIndex = 9
Top = 450
Width = 9450
Begin DevPowerTransImg.TransImg TransImg1
Height = 900
Index = 0
Left = 0
TabIndex = 10
Top = -45
Width = 9600
_ExtentX = 16933
_ExtentY = 1588
Transparent = -1 'True
Picture = "ernos.frx":90F5
End
Begin DevPowerTransImg.TransImg TransImg1
Height = 900
Index = 1
Left = 9600
TabIndex = 11
Top = 0
Width = 9600
_ExtentX = 16933
_ExtentY = 1588
Transparent = -1 'True
Picture = "ernos.frx":9B87
End
End
Begin VB.Timer Timer3
Interval = 1000
Left = 2520
Top = 7335
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 525
Index = 6
Left = 7575
MouseIcon = "ernos.frx":A983
MousePointer = 99 'Custom
Picture = "ernos.frx":AC8D
ScaleHeight = 525
ScaleWidth = 1395
TabIndex = 8
Top = 3870
Width = 1395
End
Begin VB.Timer Timer2
Interval = 50
Left = 2115
Top = 7335
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 525
Index = 5
Left = 7575
MouseIcon = "ernos.frx":B348
MousePointer = 99 'Custom
Picture = "ernos.frx":B652
ScaleHeight = 525
ScaleWidth = 1395
TabIndex = 7
Top = 5595
Width = 1395
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Index = 4
Left = 7290
MouseIcon = "ernos.frx":BD95
MousePointer = 99 'Custom
Picture = "ernos.frx":C09F
ScaleHeight = 450
ScaleWidth = 1965
TabIndex = 6
Top = 2295
Width = 1965
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 420
Index = 3
Left = 7335
MouseIcon = "ernos.frx":CB29
MousePointer = 99 'Custom
Picture = "ernos.frx":CE33
ScaleHeight = 420
ScaleWidth = 1875
TabIndex = 5
Top = 3090
Width = 1875
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Index = 2
Left = 7335
MouseIcon = "ernos.frx":D8A6
MousePointer = 99 'Custom
Picture = "ernos.frx":DBB0
ScaleHeight = 495
ScaleWidth = 1935
TabIndex = 4
Top = 6480
Width = 1935
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Index = 1
Left = 7575
MouseIcon = "ernos.frx":E5D8
MousePointer = 99 'Custom
Picture = "ernos.frx":E8E2
ScaleHeight = 495
ScaleWidth = 1395
TabIndex = 3
Top = 4755
Width = 1395
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 7320
MouseIcon = "ernos.frx":F028
MousePointer = 99 'Custom
Picture = "ernos.frx":F332
ScaleHeight = 495
ScaleWidth = 1890
TabIndex = 2
Top = 1440
Width = 1890
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 400
Left = 1710
Top = 7335
End
Begin VB.Image Image3
Height = 300
Index = 0
Left = 4545
Top = 2385
Width = 300
End
Begin VB.Image Image11
Appearance = 0 'Flat
Height = 300
Index = 2
Left = 7080
Picture = "ernos.frx":FD6A
Top = 5670
Visible = 0 'False
Width = 375
End
Begin VB.Image Image11
Appearance = 0 'Flat
Height = 300
Index = 1
Left = 7080
Picture = "ernos.frx":10390
Top = 3960
Width = 375
End
Begin VB.Image Image11
Appearance = 0 'Flat
Height = 300
Index = 0
Left = 6840
Picture = "ernos.frx":109B6
Top = 2400
Width = 375
End
Begin VB.Image Image10
Appearance = 0 'Flat
Height = 300
Index = 1
Left = 5880
MouseIcon = "ernos.frx":10FDC
MousePointer = 99 'Custom
Picture = "ernos.frx":112E6
Top = 4800
Width = 300
End
Begin VB.Image Image10
Appearance = 0 'Flat
Height = 300
Index = 0
Left = 4920
MouseIcon = "ernos.frx":11531
MousePointer = 99 'Custom
Picture = "ernos.frx":1183B
Top = 4800
Width = 300
End
Begin VB.Image Image9
Height = 300
Index = 3
Left = 1395
Picture = "ernos.frx":11C45
Top = 7425
Visible = 0 'False
Width = 300
End
Begin VB.Image Image9
Height = 300
Index = 2
Left = 1125
Picture = "ernos.frx":11EA0
Top = 7425
Visible = 0 'False
Width = 300
End
Begin VB.Image Image9
Height = 300
Index = 1
Left = 855
Picture = "ernos.frx":120EB
Top = 7425
Visible = 0 'False
Width = 300
End
Begin VB.Image Image9
Height = 300
Index = 0
Left = 585
Picture = "ernos.frx":12278
Top = 7425
Visible = 0 'False
Width = 300
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00050505&
Caption = "1"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 5400
MousePointer = 99 'Custom
TabIndex = 1
Top = 4200
Width = 495
End
Begin VB.Image Image2
Height = 300
Index = 7
Left = 2475
Picture = "ernos.frx":12682
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Label Label1
BackColor = &H00050505&
Caption = "0"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 450
Left = 4500
TabIndex = 0
Top = 5985
Width = 1215
End
Begin VB.Image Image1
Height = 300
Index = 0
Left = 450
Top = 6570
Visible = 0 'False
Width = 345
End
Begin VB.Image Image2
Height = 300
Index = 6
Left = 2205
Picture = "ernos.frx":128DF
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 5
Left = 1935
Picture = "ernos.frx":12B63
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 4
Left = 1620
Picture = "ernos.frx":12DDE
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 3
Left = 1350
Picture = "ernos.frx":13052
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 2
Left = 1080
Picture = "ernos.frx":132C9
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 1
Left = 810
Picture = "ernos.frx":13528
Top = 7785
Visible = 0 'False
Width = 300
End
Begin VB.Image Image2
Height = 300
Index = 0
Left = 540
Picture = "ernos.frx":13782
Top = 7785
Visible = 0 'False
Width = 300
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer, a1 As Integer, b As Integer
Dim i As Integer, j As Integer, m As Integer
Dim n As Integer, X As Integer, Y As Integer
Dim z As Integer, ta As Integer, tb As Integer
Dim zb As Integer, cta As Integer, ctb As Integer
Dim czb As Integer, cco As Integer
Dim score, score1 As Integer, bta As Integer
Dim btb As Integer, bzb As Integer, l As Integer
Dim bco As Integer, gk As Integer
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public p As Integer, tgk As Integer
Dim t As Integer
Dim pause As Boolean
Dim ii As Integer
Dim musickey As Boolean
Dim musici As Integer
Option Explicit
Public Sub start() '开始游戏
Randomize
For i = 0 To 179
Image1(i).Visible = False
Next i
pause = True
If t = 1 Then
Select Case tgk
Case 1
For i = 80 To 179 Step 2
Call tt(i)
Next i
Case 2
For i = 80 To 179
Call tt(i)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -