甲虫g200.frm
来自「游戏源码大家来看」· FRM 代码 · 共 549 行 · 第 1/2 页
FRM
549 行
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "甲虫2@liuhan"
ClientHeight = 5325
ClientLeft = 150
ClientTop = 435
ClientWidth = 4560
Icon = "甲虫G200.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5325
ScaleWidth = 4560
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picout
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4575
Left = 0
ScaleHeight = 303
ScaleMode = 3 'Pixel
ScaleWidth = 303
TabIndex = 5
Top = 360
Width = 4575
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 3
Top = 4950
Width = 4560
_ExtentX = 8043
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin ComCtl3.CoolBar CoolBar1
Height = 390
Left = 0
TabIndex = 0
Top = 0
Width = 6375
_ExtentX = 11245
_ExtentY = 688
BandCount = 1
_CBWidth = 6375
_CBHeight = 390
_Version = "6.7.9782"
Child1 = "Toolbar1"
MinHeight1 = 330
Width1 = 1215
NewRow1 = 0 'False
Begin MSComctlLib.Toolbar Toolbar1
Height = 330
Left = 30
TabIndex = 1
Top = 30
Width = 6255
_ExtentX = 11033
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "选取图案"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "零七八碎"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "关于本程式"
ImageIndex = 4
EndProperty
EndProperty
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4920
Top = 4200
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 4200
Top = 4200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "甲虫G200.frx":27A2
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "甲虫G200.frx":2842
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "甲虫G200.frx":4D9E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "甲虫G200.frx":50EE
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Picin
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 4575
Left = 0
ScaleHeight = 303
ScaleMode = 3 'Pixel
ScaleWidth = 303
TabIndex = 4
Top = 360
Visible = 0 'False
Width = 4575
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Go"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 495
Left = 5520
TabIndex = 2
Top = 4200
Width = 615
End
Begin VB.Menu G200
Caption = "G200开幕(&B)"
Begin VB.Menu Image
Caption = "图形选集A(&I)"
Visible = 0 'False
End
Begin VB.Menu PCI
Caption = "拼图选择(&P)"
End
Begin VB.Menu Again
Caption = "魔法(&A)"
End
Begin VB.Menu P1
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出(&E)"
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu HelpXP
Caption = "说明文件"
End
Begin VB.Menu About
Caption = "关于本程式(&A)"
End
Begin VB.Menu web_MX
Caption = "主页"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'得到此代码的朋友注意：在不删改下列信息的情况下可随意传播。
'************************************************************
'* 作者: 林志棠 *
'* 地址: 广东省中山市大涌镇 *
'* 网名: liuhan *
'* 邮址: qisui97@ yahoo.com.cn *
'* QQ：43164929 *
'* 程式名称: 甲虫2 *
'* 游戏类型: 益智类 *
'* 开发工具: VB6 0 + API *
'* 最后更新日期：2004年11月7日 *
'************************************************************
'更多更新资料及动态请关注梦翔主页http://www.mengxiangstudio.com
'==================主页===================
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const web = "http://www.mengxiangstudio.com"
'调用
'Dim HyperJump
'HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
'=========================================
'显示关于本程式
Private Sub About_Click()
关于本程式.Show
End Sub
'拼图重绘
Private Sub GDraw()
Picout.Cls
Dim i As Integer, j As Integer
For i = 0 To 3
For j = 0 To 3
If GImage(i, j).xnow = 3 And GImage(i, j).ynow = 3 Then
Else
StretchBlt Picout.hdc, i * ZiseOutw, j * ZiseOuth, ZiseOutw, ZiseOuth, Picin.hdc, GImage(i, j).xnow * ZiseInw, GImage(i, j).ynow * ZiseInh, ZiseInw, ZiseInh, SRCCOPY
End If
Next j, i
Picout.Refresh
End Sub
'通关判断
Private Sub Gpass()
Dim i As Integer, j As Integer, Gn As Integer, msg As String
For i = 0 To 3
For j = 0 To 3
If GImage(i, j).xnow = GImage(i, j).xin And GImage(i, j).ynow = GImage(i, j).yin Then Gn = Gn + 1
If Gn = 16 Then
StretchBlt Picout.hdc, 3 * ZiseOutw, 3 * ZiseOuth, ZiseOutw, ZiseOuth, Picin.hdc, 3 * ZiseInw, 3 * ZiseInh, ZiseInw, ZiseInh, SRCCOPY
Picout.Refresh
Etime = Minute(Time$) 'etime = Second(time$)
msg = "Game Pass!" & "Number:" & Number & ".time:" & Etime - Stime & "Minutes."
'MsgBox msg
Picout.FontSize = 13
Picout.ForeColor = vbBlue
Picout.Print msg ' 打印消息
Picout.Print "Geme Over!"
Play_wav "1up.wav"
GBegin = False
Object_Enabled False
End If
Next j, i
End Sub
Private Sub HelpXP_Click()
SendKeys "{F1}" '发送击键到活动窗口
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?