VB6.0 使用递归过程实现阶乘运算

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码： 　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub

VB6 判断文件是否存在，使用VB内置的函数FileExists来实现，可以说实现方法简单，直接调用函数（文件路径）即可，至于返回的结果，这里有两种形式，一种是以MsgBox的方式弹出窗口告之，另一种是返回布尔值，True或False，然后再进行相关处理。关于FileExists用法，有以下代码供参考： 　　Dim B As Boolean 　　B = FileExists(Me.Txt_Path.Text) 　　If B Then 　　 MsgBox "文件存在" 　　Else 　　 MsgBox "文件不存在" 　　End If 　　以上代码段封装在按钮事件中，用户单击按钮后，执行本段代码，判断指定的文件是否存在。

一款基于VB.NET和sqlserver数据库实现的考勤程序，实现公司员工的日常考勤功能，可实现指定日期的员工考勤，考勤时可选择考勤天数、考勤人，可查询本人的考勤记录，实现的是挺基本的考勤模块，还可显示当前用户的历史记录。 　　本实例的数据库文件在db文件夹下，请自行添加，并配置数据库信息。 　　源代码运行于VS2015环境下。

VB演示分割文件与合并文件，这里使用到比较多的文件操作函数，比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路：程序通过调用FreeFile函数来取得可以的文件号，以二进制的方式打开文件，根据文件的长度FilesLen和每个分割单位的比较，得出被分割之后的子文件个数，重新定义最后一个子文件的大小，将所取得的内容，分别存储到各个子文件中，将文件分割情况，存储到自定义的结构类型FileInfoFile中，最后将文件分割的情况，存入到模版文件中。 　　关于文件合并，则可看作是上述的逆过程，不再详述，请参见源码中的文件注释。

网络五子棋游戏源码之客户大厅和服务器 VB编的

VB6.0折线图生成实例,使用曲线图展示各项指标完成情况,同样是使用了MSChart控件的功能,这个折线图的数据取自SQL数据库,在程序中会建立数据库操作模块,将数据读取出来,然后交给折线图生成模块,最终生成这种不同颜色的曲线图,每条曲线都代表一项指标,在视图方面,本示例中的折线图可以按行显示标记,也可以叠置显示,最终效果,如测试图示. 　　运行前,请确保已正确连接测试数据库,否则程序不能运行.

vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定： 　　Private Sub Command1_Click() 　　 Text2.Text = RTrim(Text1) 　　End Sub 　　主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。

VB6.0 删除指定路径下的文件夹【目录】 ，删除时请输入要删除文件夹的所在路径和名称，单击按钮即可。支持遍历目录删除文件，我觉得这是一个挺好的使用FSO操作的VB范例，对于VB新手学习相关的文件操作有很好的帮助。

vb 判断经历多少个工作日，在两个日期选择器中选择日期值，然后判断选定的两个日期之间相差了多少天，判断两个定点之间的天数，比较基础，但也很有必要学习，时间和日期计算在很多软件中都要用到，这个例子相对简单些。大致代码： 　　If IsDate(Text1) = True And IsDate(Text2) = True Then 　　 Dim i As Integer 　　 i = gongzuori(CDate(Text1), CDate(Text2)) 　　 Label3.Caption = "经历" & i & "个工作日" 　　Else 　　 MsgBox "请输入日期型" 　　End If

VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。 　　玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。