VB6 利用Combo、DTPicker组合框辅助录入数据

VB 数据库连接通用类，这个数据库连接类支持的版本比较多了，不过有些老了，但是大致的连接原理都一样，支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法，并制作成了窗口的形式，以及测试程序，可以打开此数据库测试连接方法。

VB6.0在状态栏中显示当前状态，演示程序以一个画图程序来演示窗口状态栏的变化，当我们画直线、执行操作： 画正方形，执行操作： 画圆的时候，会显示出状态，要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了，很早的VB示例中就实现了，因此本源码比较基础了，高手请绕行。

VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下： 　　If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then 　　 MsgBox "输入的数0或溢出，请重新输入！" 　　 MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误" 　　 Text1.Text = "" 　　 Text2.Text = "" 　　 Text1.SetFocus 　　Else 　　 m = Val(Text1.Text) 　　 n = Val(Text2.Text) 　　If m < n Then 　　 temp = m: m = n: n = temp 　　End If 　　Do 　　 r = m Mod n 　　 m = n 　　 n = r 　　Loop While r 0 　　Label3.Caption = "两个正整数m和n的最大公约数为: " & m 　　End If

一个实现图像的旋转效果实例，由VB6.0编写，前几年的源码，本程序实现图片的逆时针旋转90度，单击窗口中的按钮即可实现旋转功能，这部分代码，可参考如下代码： 　　逆时针旋转90度 　　Private Sub Command2_Click() 　　 For j = 0 To h Step 1 　　 For i = 0 To w Step 1 　　 BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy 　　 Next i 　　 Next j 　　End Sub

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 NET SQLSERVER 酒店管理系统，功能模块：基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等，只是一个基础级的酒店客户管理程序，测试前请把Database下的数据库附加，修改数据库连接字符串，然后运行Debug中的exe程序。

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

VB.NET编写支持发送附件的邮件发送实例，本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类，这里使用了SmtpClient 类发送电子邮件，可设置允许添加的附件类型，支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式，为了避免程序出错，在本程序刚启动时，帐号、密码框暂时不可用。

VB6.0 改变扩展名保护Access数据库，也就是让用户修改Access数据库的扩展名，之前可能禁止改变，但本代码介绍的方法允许修改扩展名，以下是本例子核心功能部分的完整源码，仅供参考： 　　Private Sub Form_Load() 　　 Dim cnnstr As String 　　 cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False" 　　 cn.Open cnnstr 　　 Adodc1.ConnectionString = cnnstr 　　 Set Picture1.DataSource = Adodc1 　　 Picture1.DataField = "文件" 　　End Sub 　　Private Sub Form_Unload(Cancel As Integer) 　　 cn.Close 　　End Sub

VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码： 　　Call FlashWindow(hwnd, 1) 　　If Me.Caption = "闪烁的标题栏" Then 　　 Me.Caption = "欢迎使用管理软件！ " 　　Else 　　 Me.Caption = "闪烁的标题栏-www.codesc.net" 　　End If