-
文件夹复制VB6.0实例
文件夹复制VB6.0实例源码，这里用了一个用户自定义函数，此函数可以出现一个对话框，并返回所选择的路径，若没有选择返回("")。模拟了Windows系统的文件夹模拟功能，看上去比较低级，只是通过这个功能，熟悉一些VB与文件操作的函数用法。
- 2022-03-05 20:29:32下载
- 积分：1
-
vb6.0 字节数组和字符串的相互转换
vb6.0 编程实现字节数组和字符串的相互转换，演示如何进行字节数组和字符串的相互转换.
- 2023-03-14 07:50:04下载
- 积分：1
-
VB6.0 实现表格样式的内容生成Excel表格式
VB6.0 实现表格样式的内容生成Excel表格式，将DataGrid的表格数据转换成Excel格式，生成Excel表文件，用Offie套件就可以打开，在转换前可设置文字格式、样式等参数，看上去是一个国外的程序，代码里的注释全是英文的，如果E文好的话，推荐参考。
- 2022-03-21 16:22:21下载
- 积分：1
-
VB6.0 获取汉字拼音简码（首字母）
VB6.0 获取汉字拼音简码，获取汉字拼音首字母，这个比较实用了，现在很多地方都会取首字母作为编号、帐号之类的，代码比较多，这里就不帖核心代码了，大家自行下载本源码吧，运行的效果如截图所示。
- 2022-04-15 06:44:52下载
- 积分：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 6.0 排队叫号系统
vb 排队叫号系统源代码，Cobeyond排队系统，程序分为了中心控制端、CyMobile管理系统、系统通讯端口设置、系统数据库设置、最大终端客户数设置、检查服务器名和端口号等众多子程序。本排队叫号系统可广泛应用于银行大厅排队叫号、便民服务大厅排队叫号等公共服务场所，系统涉及硬件、数据库及网络各方面的编程知识，是一套比较综合的VB管理系统。其中服务人员子程序打开后的界面如截图所示，源码包中还包括了排队叫号系统设计的流程图、网络拓扑结构图等编程资料，请下载源码包查看详情。
- 2022-02-21 04:44:48下载
- 积分：1
-
vb 通过程序设置系统日期和时间的格式
vb 通过程序设置系统日期和时间的格式，设定时可以改变长日期格式，短日期格式，改变时间格式，看着很像是以前Windows XP时候的时间设置窗口的功能。请注意，日期格式设置成功，需要重新启动计算机或注销后可以看到新的短日期格式！以下是改变日期格式其中的一个例子代码，仅供参考：
Dim ret2 As Long
Dim sd As String
ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey)
If ret2 = 0 Then
sd = Combo1.Text
RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))
MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口"
End If
- 2023-06-21 17:25:03下载
- 积分：1
-
支持代理的VB FTP服务器程序
一个FTP程序的例子，不过这个是支持代理服务器的，用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站，代码中很多注释，不过是英文的。这个FTP程序的样子似乎还需要完善，和当下流行的、CuteFTP、FlashFXP都有很大的区别，甚至说有点简陋，不过这个代码主查面向学习的，英文好的可下载本源码学习。
- 2022-03-06 02:53:34下载
- 积分：1
-
VB 数据库连接通用类
VB 数据库连接通用类，这个数据库连接类支持的版本比较多了，不过有些老了，但是大致的连接原理都一样，支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法，并制作成了窗口的形式，以及测试程序，可以打开此数据库测试连接方法。
- 2023-04-15 17:45:04下载
- 积分：1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分：1
