VB为Lable标签着色（填充不同颜色）

VB6.0演示矩阵的加法运算，本例中一共是两个矩阵，每一个矩阵都根据不同的算法生成矩阵数字序列，然后把这两个矩阵求和，最后一栏展示的是矩阵相加后的结果，以指定格式输出。看了代码，我暂时没搞懂是什么算法，感兴趣的自己下载源码，研究学习吧。

VB.NET 小型家庭理财记帐系统源代码，功能模块：文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ，里面对帐务明细的查询功能，对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER，为了确保本程序正常运行，请在运行前附加Database数据库到你的SQLSERVER中，并连接好数据库字符串，需要修改Module1.vb文件。

VB模拟输入的成绩判断奖学金等级，测试前请输入学生的三门功课的成绩，输入成绩后，程序会根据预设的判定一、二、三等奖学金的条件，来判断该同学成绩应该属于几等奖学金。 　　这类程序其实容易实现，中间的一些小技巧我觉得不错，比如当用户输入一科成绩后，光标自动定位到下一个文本框，如果需要用户输入内容比较多的时候，这个功能可大大提升用户体验。 　　更多源码细节请下载查看。

VB6.0 判断指定字符串出现的次数，判断字符串A在字符串B中出现的次数，使用了VB的Mid函数来判断，如图所示的运行效果，单击按钮即可查看运行结果。代码验证判断部分，采用for循环遍历判断，代码如下： 　　Dim j As Integer 　　j = 0 　　For i = 1 To Len(Text1) 　　 If Mid(Text1, i, Len(Text2)) = Text2 Then 　　 j = j + 1 　　 End If 　　Next i 　　Label2.Caption = "出现" & j & "次"

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

VB成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。

播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。 　　播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。 　　本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。

VB6 给窗体添加滚动条，调整水平滚动条的一些属性。当窗体的大小发生变化时发生，垂直滚动条与窗体相对位置不变，滚动条的大小随着窗体大小的改变而改变，命令按钮作水平滚动条与垂直滚动条交接处的填充。 　　因代码注释较多，详细代码情况请您下载本源码包，自行解压查看。

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

VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。