-
vb6 批量生成证书、房屋等编号
vb6 批量生成证书、房屋等编号，学会了本例子，是个比较实用的技巧，在一些需要批量生成编号的地方，你都可以借鉴本程序，来实现编号生成，在本例中，是批量生成房屋的编号，用户可选择楼层范围、单元范围等参数后，即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说，都设计的都好用的。
- 2022-10-19 14:10:03下载
- 积分：1
-
VB 6.0 打印与打印预览功能源码
VB 6.0 打印与打印预览功能源码，这个打印预览可以调节预览的放大倍率，在不同的放大状态下预览打印内容，支持打印文字内容和图片的内容，自动调用Windows默认的打印机进行打印，如测试截图所示的效果。
- 2023-05-22 11:35:03下载
- 积分：1
-
VB源码演示如何制作倒计时程序
VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下：
Private Sub Timer1_Timer()
On Error GoTo H
Timer1.Interval = 1000
Dim i As Date
i = CDate(Text1)
Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"
Exit Sub
H:
MsgBox "请输入正确的时间"
Timer1.Enabled = False
End Sub
- 2022-03-13 16:12:01下载
- 积分：1
-
Vb.NET 贪吃蛇游戏
游戏说明：
1、控制键
“回车键”-----新游戏或终止游戏
“5”（数字键区的）----暂停或恢复
方向控制键（数字键区的）
“8、2、4、6”----对应控制“上、下、左、右”移动
“1”-----“左下”移动
“3”-----“右下”移动
“7”-----“左上”移动
“9”-----“右下”移动
2、地图
蓝色方块----食物（吃到食物后，蛇身长度增加一节）
红色方块----炸弹（吃到炸弹，所得分数会减去当前级别数的2倍）
地图上一次出现2个食物和1个炸弹，被蛇吃掉后会随机位置补充
灰色方块----蛇头
绿色方块----蛇身
暗海洋绿方块----奖品
当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品，奖品
上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50
之间的随机数，当奖品出现后就会开始不断的减少，所以玩家要尽快吃
到才能增加到更多的分数。
3、计分方法
每吃到一个食物，增加的分数等于当前级别的数值；
每吃到一个炸弹，扣掉的分数等于当前级别数值的2倍；
玩家的起始分数等于当前的级别数值的2倍加1
例如 等级为3，则玩家起始分数是7分；每吃到一个食物加3分；
每吃到一个炸弹减6分
4、游戏结束
当总分
- 2022-03-02 23:06:57下载
- 积分：1
-
VB 删除指定类型文件
VB 删除指定类型文件，用户选择电脑中指定路径下的文件类型后，可删除该目录下所有此类型的文件。
- 2022-10-25 21:50:02下载
- 积分：1
-
VB演示操作存储过程的方法
VB演示操作带参数和不带参数的存储过程的方法，通过一个数据库查询来体现功能的差别。同时还包括了创建存储过程信息。
我们从打开数据链接开始，演示如何简单创建一个存储过程，下面是核心的几何代码：
con.Open
con.Execute ("Create Procedure book1 @price int As Select * From 书名 where 单价>=@price")
MsgBox "成功创建存储过程"
con.Close
SQL语句是一个查询书名对应价格的例子，仅供参考。
- 2022-01-25 20:38:51下载
- 积分：1
-
VB 值参与变参举例
VB 值参与变参如何用的小例子源码，这个其实平时有时候也用到了，只是不知道这是值参或是变参，通过这个小实例，你或许对这两者的用法会更熟悉些，以下代码仅供参考：
Private Sub Command2_Click()
Dim a As Integer, b As Integer
a = 10: b = 20
Picture2.Print "交换前:a="; a; " b= "; b
Swap2 a, b
Picture2.Print "交换后:a="; a; " b= "; b
End Sub
- 2022-07-25 08:20:44下载
- 积分：1
-
股票采集数据源码
用VB编的股票采集数据源码、分享出来希望对大家有用。
- 2022-07-10 11:37:10下载
- 积分：1
-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称，这里获取星期几是使用了VB内置的WeekdayName函数，将获取到的日期和星期几直接显示在Text控件中，下面是这个函数的具体用法：
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码，生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分：1
-
VB6.0 使用递归过程实现阶乘运算
VB6.0 使用递归过程实现阶乘运算
Function F(n As Integer) As Single
If n > 1 And n
- 2022-04-27 22:53:13下载
- 积分：1
