用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
1
VB.NET 写 EXCEL ComAddin Demo 源代码，支持32位/64位 EXCEL ，WPS
2021-05-12 19:33:12
750KB
1
VB.NET学生图书管理系统+access数据库，正是广大同学们所需的，可用于学习，毕业设计等。
2021-05-11 21:07:23
919KB
1
VB.net绘制生成code128条形码的例子，另外还有EAN128、包括了Code128 A/B/C类型的条形码，程序非常好用，在文本框输入规定要求的数据，即时输入，即时生成。程序中为生成条形码，创建了一些函数，比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等，在VB.NET生成条形码的朋友，本范例源码是个很好的参考。
2021-05-11 20:49:17
28KB
1
VB.NET生成条形码与二维码：在做代码之前需引用：BarcodeLib.dll与DotNetBarcode.dll类。支持多种条形码格式！
2021-05-11 17:09:39
112KB
1