-
vb RTrim()去除字符串行尾空格
vb 演示如何去除字符串结尾空格,把输入框中的含有空格的字符串,全部过滤掉空格,这个源码似乎有上结简单了,使用RTrim(),一行代码即可搞定:
Private Sub Command1_Click()
Text2.Text = RTrim(Text1)
End Sub
主要是使用了RTrim()函数,这个函数不只是过滤行尾空格,也会将字符串中间空格过滤掉。
- 2022-10-07 20:30:03下载
- 积分:1
-
VB.net与OMRON CP系列PLC通讯的实例
VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。
LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
- 2023-03-30 11:55:03下载
- 积分:1
-
VB 数据库连接通用类
VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分:1
-
VB net 模拟考试系统 SQLSERVER版
VB net 模拟考试系统,本考试时间为30分钟,系统会进行倒计时。你必须正确输入你所在班级、姓名和学号,交卷后不能再考,即时间未到不要急于点""交卷""!点击""确定""进入考试系统。本考试系统的窗口只允许打开一个,程序会判断窗体是否已经打开,如果已经打开,则不需要重复打开,只是显示。
程序正常运行需要SQL数据库,请在测试前附加并连接好。
- 2022-02-07 21:46:47下载
- 积分:1
-
vb串口调试助手源码,可用于自己做调试测试工具
1.用易懂的VB语言编程 2.可设置串口号波特率 3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
- 2022-07-13 02:02:52下载
- 积分:1
-
VB 调用API函数设计关于窗体
VB 调用API函数设计关于窗体,看第一眼,我还以为是调用Windows系统的关于窗口,仔细看,定义了自己的信息,这个例子可看作是VB使用API函数的例子,了解一些用法,关于本例子中的API用法,可看以下代码:
API函数声明:
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Call ShellAbout(hWnd, "源码素材网", " 欢迎访问网站:http://www.codesc.net!", Me.Icon)
调用了ShellAbout显示信息,更多内容请下载源码。
- 2022-01-25 16:50:26下载
- 积分:1
-
VB 网络连通检测
VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
- 2023-08-30 14:45:02下载
- 积分:1
-
VB将程序图标添加到托盘
VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
- 2022-03-24 10:49:35下载
- 积分:1
-
VB 通过菜单控制操作权限并保存至数据库
VB 通过菜单控制操作权限,是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性,将操作权限写到Access数据库中,然后读取数据库的数据,通过数据库字段的值决定该菜单是否可以访问,从而达到通过菜单控制每个操作员操作权限的目的。运行程序,选择“销售业务管理”-“销售数据导入”,弹出没有操作权限的提示框。
- 2022-07-15 02:53:53下载
- 积分: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