-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分：1
-
VB.NET 超市管理系统
VB.NET 超市管理系统，数据库基于SQLSERVER，使Label透明显示，进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作，大部分是一些数据的基础应用。测试前请先附加好数据库，否则会弹出出错提示。
- 2022-01-26 05:34:54下载
- 积分：1
-
VB 网络连通检测
VB 网络连通检测，单击命令按钮可进行网络连通检测，判断是本机否连接到Internet。操作很简单，将连通测试检测结果输出到屏幕上。
- 2023-08-30 14:45:02下载
- 积分：1
-
VB net 模拟考试系统 SQLSERVER版
VB net 模拟考试系统,本考试时间为30分钟，系统会进行倒计时。你必须正确输入你所在班级、姓名和学号，交卷后不能再考，即时间未到不要急于点""交卷""！点击""确定""进入考试系统。本考试系统的窗口只允许打开一个，程序会判断窗体是否已经打开，如果已经打开，则不需要重复打开，只是显示。
程序正常运行需要SQL数据库，请在测试前附加并连接好。
- 2022-02-07 21:46:47下载
- 积分：1
-
vb IsDate判断字符串是否为日期或时间
vb 判断字符串是否为日期或时间，在输入框输入任意字符串类型，程序将会判断出该字符串是否是时间字符串，这个判断方法VB员自带有函数，使用IsDate即可实现，下面是使用IsDate的简单用法示例：
If IsDate(Text1) = True Then
Text2.Text = "是日期"
Else
Text2.Text = "不是日期"
End If
您也可以在本页下载完整的源码实例。
- 2022-08-18 06:21:54下载
- 积分：1
-
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
-
VB6.0 屏幕滚动字幕（文字滚动）
VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路：
Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分：1
-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容，从例子来看，是一个数据库搜索的例子，也就是用户搜索的什么，列表中会显示出相关内容。只是说法不同而已，为了可以正常运行，本示例中的数据库采用Access数据库，数据库文件为：db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分：1
-
VB模拟输入的成绩判断奖学金等级
VB模拟输入的成绩判断奖学金等级，测试前请输入学生的三门功课的成绩，输入成绩后，程序会根据预设的判定一、二、三等奖学金的条件，来判断该同学成绩应该属于几等奖学金。
这类程序其实容易实现，中间的一些小技巧我觉得不错，比如当用户输入一科成绩后，光标自动定位到下一个文本框，如果需要用户输入内容比较多的时候，这个功能可大大提升用户体验。
更多源码细节请下载查看。
- 2022-02-20 07:54:43下载
- 积分：1
-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分：1
