-
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
