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
-
其他资源
- 东南DX7壁纸更换包
- MacFilterCalloutInstaller
- C# 人脸识别Demo（基于虹软免费SDK）完整版
- 用遗传算法求解最短路径问题
- c#+Arcgis_Engine二三维联动_可以实现
- spyglass 使用讲解
- mmdbridge.rar
- 基于vhdl的拔河游戏机设计
- 拉普拉斯算子边缘检测C语言代码
- PHP+MYSQL视频网站
- linux服务器监控工具Nmon
- tp5微信小程序封装类库
- WS 363-2011卫生信息数据元目录 第16部分：药品、设备与材料.pdf
- 2021年中国企业智慧通信产品研究报告.pdf
- 2-蝉大师2020年度榜单-中国区App下载排行Top200.pdf
- flink-1.11.2-src.tgz
- 百度地图城市编码city_code
- 自适应NLMS算法
- 腾讯地图全国地址信息（省、市、区、gcj02 gps）sql文件
- RF Power Amplifiers for Wireless Communication
- activiti插件及相关JAR包
- RDO中文破解版 连接windows神器
- 可以安排考试的软件
- php-5.4.8-nts-Win32-VC9-x86.zip
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明