VB.net 实现的海盗船小游戏
小时候在学习机上玩过，极其魔性的游戏，学了VB后根据记忆编写了一个。
你驾驶你的商船躲避海盗船。（你说那不像商船？我只是一只猿，不会美工……）。 键盘qweadzxc分别是向八个方向走一格，s键开炮，可以炸死红叉子上面的海盗船，但是你的炮是安置在两侧的，只能向运动方向的垂直方向开炮，所以主要还是靠把海盗船引诱到岛上让它自己撞死。海盗船全部炸死或撞死你就赢了，反之你被海盗追上就输了。
2021-05-14 10:41:08
514KB
1
VB NET版 五子棋（人机对弈）,五子棋游戏源码，单击菜单中的开局即可开始游戏，人先走棋，电脑随后，每一步会有提示，游戏功能不算太复杂。源代码部分，主要实现了游戏数据初始化、获取鼠标单击位置值、绘制棋盘网格、定义图形类对象、重绘控件的控制等，可了解一下VB编写棋牌游戏的一些要领。
2021-05-14 08:52:34
19KB
1
VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。
2021-05-13 17:07:41
16KB
1
在打地鼠游戏中，程序主要是一个随机函数Rnd()，此函数会随机产生“鼠“的位置，然后用户可以根据”鼠“的位置进行单击，单击不成功的话，便会出现”X “，程序便会根据成功的次数与总次数比较，得出用户的成绩，另外用户还可以选择游戏的等级。
2021-05-13 15:01:42
60KB
1
用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