用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
2021-05-12 19:36:09 402KB 小游戏 VB.NET 打地鼠
1
VB.NET 写 EXCEL ComAddin Demo 源代码,支持32位/64位 EXCEL ,WPS
2021-05-12 19:33:12 750KB VB.NET WPS ComAddin 源码
1
VB.NET五子棋
2021-05-12 18:58:32 25KB VB.NET 五子棋 游戏
1
VB.NET学生图书管理系统+access数据库,正是广大同学们所需的,可用于学习,毕业设计等。
2021-05-11 21:07:23 919KB 图书 管理 系统 access
1
VB.net绘制生成code128条形码的例子,另外还有EAN128、包括了Code128 A/B/C类型的条形码,程序非常好用,在文本框输入规定要求的数据,即时输入,即时生成。程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成条形码的朋友,本范例源码是个很好的参考。
2021-05-11 20:49:17 28KB VB源码-图形处理
1
VB.NET生成条形码与二维码:在做代码之前需引用:BarcodeLib.dll与DotNetBarcode.dll类。支持多种条形码格式!
1
1.创建自己的多用户聊天应用程序 2.串行通信 3.将指纹识别纳入NET
2021-05-11 16:07:54 4.61MB -C#与VB.NET 网络通信开发实战
1
三菱官方MxComponent4说明文档,中文编程手册,操作手册
2021-05-11 15:15:12 21.34MB MxComponent MxComponent4 C# vb.net
1
对文本内容信息进行朗读,可转换中英文和改变朗读速度,可以暂停和保存为音频文件,需要系统支持语音库。
2021-05-08 18:34:57 292KB VB.NET 语音朗读
1
VB.NET 进制转换 2进制 8进制 10进制 16进制 实现互转 自己写的代码有不足之处请多包涵
2021-05-07 20:21:17 182KB VB.NET 进制转换 互转
1