-
VB.NET应用程序管理工具-类似360桌布助手
这是一个用VB.NET开发的应用程序管理工具-类似360桌布助手的某此功能,通过导入保存有常用程序列表的XML文件,来通过程序来管理各应用程序的快捷方式,用户可以把常用的程序收集起来,在这里可以直接双击列表中程序名称或点击【启动程序】来启动每个程序。不用到处找你所安装的程序或软件。方便,快捷,常用程序列表:(用户可以拖放任何文件到下面列表中)。
程序列表的操作有导入和导出。
- 2022-08-20 10:25:11下载
- 积分:1
-
VisualBasic 6.0 获取网页超链接
VisualBasic 6.0 获取网页超链接,VB根据网址打开指定页面,预览网页并获取该页面中所有的超链接,最后会统计出该网页内有多少个链接。
同时本源码还可区分网页中的文本和图片,将剔除图片,在文本中查找超链接个数,主要是针对href进行精准匹配统计出出现的次数,运行效果如下图所示。
具体源代码请下载本源码查看。
- 2022-10-27 08:40:03下载
- 积分:1
-
Vb6.0 仿制资源管理器界面折叠菜单
Vb6.0 仿制资源管理器界面折叠菜单,这个菜单的形式估计大家都见到过,像Windows窗口右侧的资源管理器窗口那样,鼠标单击的时候会折叠起来,再次点击会展开所属子菜单项,相信这个菜单的功能不用多介绍了,代码方面实现还是挺麻烦的,有兴趣的下载源码参见代码。
- 2023-01-05 08:10:03下载
- 积分:1
-
VB 使用ODBC DSN连接SQL Server数据库
VB 6 使用ODBC DSN连接SQL Server数据库,要想运行本实例,首先需要附加SQL数据库,然后配置ODBC,ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中,当用户单击按钮后,开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据,并绑定到MSHFlexGrid控件中显示,运行效果请见截图。主代码:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=
rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
- 2022-01-25 22:59:47下载
- 积分:1
-
VB6.0 顺序文件写操作的操作演示
VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。
这三种方法是:
把文件的内容一次性的写入
把字符一个一个写入
依次写入顺序文件
- 2022-01-26 17:24:14下载
- 积分:1
-
VB6.0 使用递归过程实现阶乘运算
VB6.0 使用递归过程实现阶乘运算
Function F(n As Integer) As Single
If n > 1 And n
- 2022-04-27 22:53:13下载
- 积分:1
-
支持代理的VB FTP服务器程序
一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。
- 2022-03-06 02:53:34下载
- 积分:1
-
VB.NET将任意图像文件设置为鼠标形状
VB.NET将任意图像文件设置为鼠标形状,变换光标,光标文件读取,支持自定义光标的图像文件格式为:图像文件(*.jpg;*.gif;*.png;*.bmp)。操作方法挺简单的,点击 按钮选择一个格式合适的光标文件即可,注意查看鼠标光标的变化。
- 2022-05-05 06:26:41下载
- 积分:1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据,输入框什么的就不多说了,主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法,方便用户选择数据、选择时间,特别是时间,可固定为指定格式,防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分:1
-
VB 利用Tag属性存储用户名
VB 利用Tag属性存储用户名
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或密码不能为空", vbCritical, "信息提示"
Exit Sub
Else
If Text1.Text = "TSoft" And Text2.Text = "111" Then
Me.Tag = Text1.Text
Frm_Main.Show 1
Unload Me
Else
MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"
End If
End If
- 2022-02-04 07:45:58下载
- 积分:1