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
-
其他资源
- CCS5.5纯软件仿真步骤和实例
- 时间序列的理论与方法
- 现代数字信号处理扫描版
- 数据库课程设计-超市管理系统
- JSP+Oracle 学生课程信息管理系统（完整源码+数据库）
- 用C#实现一个字模点阵提取程序
- ADSv1.2安装.zip
- mpu6050+姿态解算
- odrive驱动电路AD文件包括文件库.rar
- 解决虚拟机运行卡的问题
- STM32H743ZI官方开发板裸机Ethernet LWIP库示例代码
- Android studio 百度地图定位
- 数字通信课后习题答案作者John G.Proakis 张力军译著
- C51全功能仿真.pdsprj
- 锁频环FLL的matlab仿真
- Linux - mysql 安装包.rar
- 中央广播电视大学《应用写作》期末总复习资料（含答案）.pdf
- swiftScan-master.zip
- 改制手柄驱动升级版支持lpt3.rar
- STM32F407 例程
- quartus II 11.0破解
- fundamentals of logic design 5th edition
- 音频低通滤波
- 小游戏开发实例教程 c++版
- jsp在线物流网站
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明