-
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制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏,这个窗口中的Toolbar允许用户自己调整位置,可以拖动至指定位置,记得word中的工具栏就是这样,当你改变默认的工具栏布局时,程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗?")弹出确认信息。另外,本范例也可看作是一个在VB窗口中制作图标菜单的好范例,如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分:1
-
VB.NET窗体Tab 读取ini文件 界面滑动等功能集
本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
- 2022-01-26 07:32:46下载
- 积分:1
-
VB6.0 WinLock-锁住计算机 沐风视窗锁
VB6.0 WinLock-锁住计算机 实现锁定电脑的功能,沐风视窗锁,程序由沐风工作室开发编写,锁定计算机后,按下回车键后请输入解锁密码才能解锁屏幕,另外这个锁屏程序还可以设置自启动、效验密码等功能。
本程序同时支持卸载,当用户点击 卸载按钮后,即将完成删除,程序将运行卸载程序。
温馨提示:第一次使用,请输入密码。密码设置成功,程序将重新启动。
- 2022-08-12 14:41:19下载
- 积分:1
-
vb.net读取Access数据库数据并生成适时曲线
vb.net绘制生成曲线,数据从access数据库中读取,然后将数据进行简要处理后,传送给曲线生成函数,生成适时的数据曲线。
请注意:vb.net里PICTURE只支持像素,长度比较大,需要乘除定义精确值,8当余数为1,则刚好够总长度,否则需要判断长度,计算出坐标,画图,如果要设置数值或日期的显示格可以设置Format属性,例如: .Format = "¥0.00"。
- 2022-03-21 23:38:41下载
- 积分: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.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。
注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分:1
-
VB整源码判断字符串中某一字符是否大写
VB编写完整源码判断字符串中某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:
If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
- 2022-06-27 09:12:36下载
- 积分:1
-
VB NET sqlserver 销售管理系统
VB NET sqlserver 销售管理系统,销售业务,销售发货,销售退货,回款管理,统计报表,基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。
版权所有(C) 作者个人自由创作室
VB.NET 销售管理系统 V1.0,SQLSERVER2000数据库。
- 2022-03-16 19:52:06下载
- 积分:1
-
VB 数据库连接通用类
VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分:1