VB.NET 小游戏 打地鼠
用VB.NET做的小游戏--打地鼠
Public Class Form1
Inherits System.Windows.Forms.Form
Dim pic As New PictureBox
Dim goal As Integer
Dim i As Integer
Dim j As Integer
Dim xx1() As Integer = {135, 277, 417}
Dim xx2() As Integer = {157, 367}
Dim xx3() As Integer = {32, 251, 482}
Dim timer As Double = 1
Dim count As Integer '计时器跳动次数
Dim ifclick As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "小游戏"
Me.Size = New Size(650, 465)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 600
Timer1.Enabled = True
Button2.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "暂停" Then
Button2.Text = "继续"
Timer1.Enabled = False
PictureBox1.Enabled = False
ElseIf Button2.Text = "继续" Then
Button2.Text = "暂停"
Timer1.Enabled = True
PictureBox1.Enabled = True
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ifclick = False
PictureBox1.Enabled = True
If timer = 0 Then
Timer1.Enabled = False
MsgBox("游戏结束，您的得分：" + goal.ToString)
Button3.Visible = False
Exit Sub
End If
addpic()
timer = 10 - count * 0.5
文件下载
资源详情
[{"title":"（ 38 个子文件 402KB ） VB.NET 小游戏 打地鼠","children":[{"title":"打地鼠","children":[{"title":"dadishu.sln <span style='color:#111;'> 910B </span>","children":null,"spread":false},{"title":"dadishu","children":[{"title":"bin","children":[{"title":"Debug","children":[{"title":"图片1.png <span style='color:#111;'> 19.14KB </span>","children":null,"spread":false},{"title":"dadishu.pdb <span style='color:#111;'> 65.50KB </span>","children":null,"spread":false},{"title":"图片2.png <span style='color:#111;'> 23.57KB </span>","children":null,"spread":false},{"title":"dadishu.exe <span style='color:#111;'> 72.00KB </span>","children":null,"spread":false},{"title":"dadishu.xml <span style='color:#111;'> 613B </span>","children":null,"spread":false},{"title":"dadishu.vshost.exe <span style='color:#111;'> 5.50KB </span>","children":null,"spread":false}],"spread":true},{"title":"Release","children":[{"title":"dadishu.pdb <span style='color:#111;'> 57.50KB </span>","children":null,"spread":false},{"title":"dadishu.exe <span style='color:#111;'> 68.00KB </span>","children":null,"spread":false},{"title":"dadishu.xml <span style='color:#111;'> 613B </span>","children":null,"spread":false}],"spread":true}],"spread":true},{"title":"Form1.vb <span style='color:#111;'> 3.07KB </span>","children":null,"spread":false},{"title":"obj","children":[{"title":"Debug","children":[{"title":"dadishu.pdb <span style='color:#111;'> 65.50KB </span>","children":null,"spread":false},{"title":"dadishu.Form1.resources <span style='color:#111;'> 180B </span>","children":null,"spread":false},{"title":"dadishu.exe <span style='color:#111;'> 72.00KB </span>","children":null,"spread":false},{"title":"dadishu.xml <span style='color:#111;'> 613B </span>","children":null,"spread":false},{"title":"TempPE","children":[{"title":"My Project.Resources.Designer.vb.dll <span style='color:#111;'> 7.50KB </span>","children":null,"spread":false}],"spread":true},{"title":"dadishu.vbproj.GenerateResource.Cache <span style='color:#111;'> 883B </span>","children":null,"spread":false},{"title":"dadishu.Resources.resources <span style='color:#111;'> 39.20KB </span>","children":null,"spread":false}],"spread":true},{"title":"dadishu.vbproj.FileList.txt <span style='color:#111;'> 626B </span>","children":null,"spread":false},{"title":"Release","children":[{"title":"dadishu.pdb <span style='color:#111;'> 57.50KB </span>","children":null,"spread":false},{"title":"dadishu.Form1.resources <span style='color:#111;'> 180B </span>","children":null,"spread":false},{"title":"dadishu.exe <span style='color:#111;'> 68.00KB </span>","children":null,"spread":false},{"title":"dadishu.xml <span style='color:#111;'> 613B </span>","children":null,"spread":false},{"title":"TempPE","children":[{"title":"My Project.Resources.Designer.vb.dll <span style='color:#111;'> 7.50KB </span>","children":null,"spread":false}],"spread":true},{"title":"dadishu.vbproj.GenerateResource.Cache <span style='color:#111;'> 883B </span>","children":null,"spread":false},{"title":"dadishu.Resources.resources <span style='color:#111;'> 39.20KB </span>","children":null,"spread":false}],"spread":true}],"spread":true},{"title":"Resources","children":[{"title":"beijing.jpg <span style='color:#111;'> 38.74KB </span>","children":null,"spread":false}],"spread":true},{"title":"dadishu.vbproj <span style='color:#111;'> 4.37KB </span>","children":null,"spread":false},{"title":"My Project","children":[{"title":"AssemblyInfo.vb <span style='color:#111;'> 1.08KB </span>","children":null,"spread":false},{"title":"Settings.Designer.vb <span style='color:#111;'> 2.96KB </span>","children":null,"spread":false},{"title":"Application.myapp <span style='color:#111;'> 510B </span>","children":null,"spread":false},{"title":"Settings.settings <span style='color:#111;'> 279B </span>","children":null,"spread":false},{"title":"Resources.resx <span style='color:#111;'> 6.06KB </span>","children":null,"spread":false},{"title":"Resources.Designer.vb <span style='color:#111;'> 2.99KB </span>","children":null,"spread":false},{"title":"Application.Designer.vb <span style='color:#111;'> 1.47KB </span>","children":null,"spread":false}],"spread":true},{"title":"Form1.resx <span style='color:#111;'> 5.87KB </span>","children":null,"spread":false},{"title":"Form1.Designer.vb <span style='color:#111;'> 6.14KB </span>","children":null,"spread":false}],"spread":true},{"title":"dadishu.suo <span style='color:#111;'> 18.50KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}]
评论信息
-
-
-
qq631042016 :很好，直接运行2014-04-09 -
-
sanshao14530 :可以用、 谢谢、2013-12-30
-
-
ww4332 :可以用的，用vs2005打开了，做的还不错2013-07-30
-
-
用力刨代码 :做的不错 程序没有报错已经很不容易了 改进了鼠标的指针图片 form1的背景图是不随窗口大小改变的 可以改一下2013-06-17
-
-
cl1058434932 :整体都很赞呀！！！就是木有重来一局，最后还是自己改了2013-05-22
-
其他资源
- Duilib界面设计器DuiDesigner下载
- 基于ARM的RFID门禁管理系统设计报告
- 适用于2016年电子设计竞赛江苏省以及辽宁省循迹小车题目的报告
- STM32自带adc实现低频示波器及FFT频谱显示-其它文档类资源
- 多播发送和接收工具MCastTest
- Matrikon OPC Client
- Opengl读取OFF文件加绘制
- notepad下的lua配置资源
- 射频宽带放大器
- Xport v1.1.2.0串口复制软件
- 使用Matlab进行多幅图像合成
- 安川加油油孔位置.pdf
- 研华 数据采集卡应用与编程
- 基于SSM的教学资源管理系统
- Twisted-19.10.0-cp38-cp38-win_amd64.whl
- 遥感影像几何校正重采样
- expo 最新安卓安装包 19年4月1号
- Redgate .NET Reflector 10.1.1.1137 破解版 VSPro
- 手机基带培训资料
- 基于matlab异步电机矢量控制
- 东北大学计算机网络期末试题
- opencv中的cvaux.lib文件
- Manning ASP.NET Core in Action 2018.6 pdf
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明