-
VB输入限制：只允许输入汉字
VB输入限制功能一例：只允许输入汉字，本实例只允许用户输入汉字，如果输入其它类型的字符，程序将不允许输入，且会提醒用户。原理是获取键盘上的ASCII值，并判断是否在中文汉字的范围，若不在，就禁止输入。实现本功能的关键代码，分享给大家：
If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then
KeyAscii = 0
MsgBox "只允许输入汉字！", 48, "提示"
End If
因为是对键盘的控制实现对输入的限制，因此若鼠标复制了一段包含其它字符的文字，则程序无能为力，因为鼠标不在监控范围。
- 2023-02-18 18:05:03下载
- 积分：1
-
VB为Lable标签着色（填充不同颜色）
VB6.0为Lable标签着色（填充不同颜色），把标签分别填充上不同的颜色，在显示一些统计数据的时候，可清淅的显示出各种数据类型，提升用户浏览体验。
为Lable着色是非常简单的，你可以从本例子中学会用法。
- 2022-02-05 08:55:36下载
- 积分：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 RTrim()去除字符串行尾空格
vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定：
Private Sub Command1_Click()
Text2.Text = RTrim(Text1)
End Sub
主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。
- 2022-10-07 20:30:03下载
- 积分：1
-
VB6.0 使用ADO对象访问数据库
VB6.0 使用ADO对象访问数据库，这个例子其实很简单，就是基本的VB连接数据库、读取数据库内容，然后浏览一条一条的数据，最后关闭数据库，面向VB编程开发新手，有兴趣下载整个源码，在代码中都有详细的注释，因此很适合学习一些数据库操作的基础知识，源码运行截图如下：
- 2022-08-22 22:55:07下载
- 积分：1
-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分：1
-
VB NET写的DVD播放器源代码
播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。
本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
- 2023-05-18 15:05: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 SetWindowLong限制调整窗口大小的最大值
VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制：
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
- 2022-10-14 18:50:03下载
- 积分：1
-
在状态栏中显示当前状态-VB范例
VB6.0在状态栏中显示当前状态，演示程序以一个画图程序来演示窗口状态栏的变化，当我们画直线、执行操作： 画正方形，执行操作： 画圆的时候，会显示出状态，要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了，很早的VB示例中就实现了，因此本源码比较基础了，高手请绕行。
- 2023-03-24 17:45:04下载
- 积分：1
