-
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
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB 网络连通检测
VB 网络连通检测，单击命令按钮可进行网络连通检测，判断是本机否连接到Internet。操作很简单，将连通测试检测结果输出到屏幕上。
- 2023-08-30 14:45:02下载
- 积分：1
-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称，这里获取星期几是使用了VB内置的WeekdayName函数，将获取到的日期和星期几直接显示在Text控件中，下面是这个函数的具体用法：
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码，生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分：1
-
内核为VB6的一个下载软件开源源码
内核为VB6的一个下载软件开源源码， 界面方面支持悬浮窗、支持TAB窗口选项卡切换内容，操作方便，关于下载文件方面，已经实现的功能：
1.同时下载两个文件
2.支持断点续传
3.支持代理服务器
使用方法：
1.双击开始或停止
2.其他按鼠标右键
- 2022-10-17 00:05:03下载
- 积分：1
-
VB6 设计带记忆的DataGrid数据录入窗口
VB6 设计带记忆的数据录入窗口，这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了，是一个数据库应用范例，本例子中的数据库采用的Access。在本例中，用户临时对任意DataGrid行列操作时输入的内容，临时保存至数据库中，使用时及时读取，模拟中了记忆功能，方便了用户操作，不过未做测试，不知道数据量较大的时候，会不会对数据库造成压力，有心者可以自行测试哦。
- 2023-04-17 21:20:02下载
- 积分：1
-
VB 以TextStream流的方式打开文本文件
VB 以流的方式打开文本文件，创建FileSystemObject MyFSO对象，创建TextStream对象，然后使用对象GetFile文件，最后使用对象OpenAsTextStream读取流文件，具体用法，可参见以下代码：
Private Sub Form_Load()
Dim MyFSO As New FileSystemObject
Dim MyFile As File
Dim MyTS As TextStream
Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")
Set MyTS = MyFile.OpenAsTextStream(ForReading)
Text1.Text = MyTS.ReadAll
MyTS.Close
End Sub
完整的可编译实例，请下载源码包。
- 2022-06-14 22:18:23下载
- 积分：1
-
VB生成圆形图表，圆饼百分比图表
VB成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。
- 2022-05-15 05:38:34下载
- 积分：1
-
VB 6.0 在字符串中用一子串替换另一子串
VB 6.0 在字符串中用一子串替换另一子串，采用VB中内置的Replace函数来实现，类似这种的替换字符串方法，在平时使用十分广泛，在WEB编程的ASP/PHP/ASP.NET中，同样使用广泛。本示例中，主要是替换一个字符串中的指定位字符串，将其替换成其它字符。
关于Replace的用法，请看以下代码片段：
Text3.Text = Replace(Text1, Mid(Text1, 2, 2), Text2)
- 2022-01-26 05:32:59下载
- 积分：1
-
VB SetWindowLong限制调整窗口大小的最大值
VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制：
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
- 2022-10-14 18:50:03下载
- 积分：1
