VB 使用鼠标分割窗体的Split实例源码

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

VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码： 　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) 　　Private Sub Form_Load() 　　 Dim i As Long 　　 Dim j As Long 　　 i = 1234 　　 j = 4321 　　 Debug.Print VarPtr(i) 　　 Debug.Print VarPtr(j) 　　 CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4 　　 Text1.Text = i 　　End Sub

VisualBasic 6.0 获取网页超链接，VB根据网址打开指定页面，预览网页并获取该页面中所有的超链接，最后会统计出该网页内有多少个链接。 　　同时本源码还可区分网页中的文本和图片，将剔除图片，在文本中查找超链接个数，主要是针对href进行精准匹配统计出出现的次数，运行效果如下图所示。 　　具体源代码请下载本源码查看。

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

VB 通过菜单控制操作权限，是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性，将操作权限写到Access数据库中，然后读取数据库的数据，通过数据库字段的值决定该菜单是否可以访问，从而达到通过菜单控制每个操作员操作权限的目的。运行程序，选择“销售业务管理”-“销售数据导入”，弹出没有操作权限的提示框。

VB创建一个个性化的椭圆形窗口界面，使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性，可以使程序更具吸引力。见惯了方方正正的矩形窗体，椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体，运行程序，窗体为椭圆形，单击窗体，即可退出程序。

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 　　完整的可编译实例，请下载源码包。

VB 生成验证码的控件附实例调用例子，支持中文的验证码控件，内含Demo和验证码控件源码，使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数，0到6随机数，0到15随机数，从1到15的随机数，从0到14的随机数等，生成了超多的随机数数组，来生成复杂的中文和数学验证码混合体，请参见例子中的使用方法，运行效果如测试截图所示。

简单的VB6 播放视频文件程序，也算是一个简单的视频文件播放器吧，核心基于Windows中的msdxm.ocx控件，可控制播放文件开始暂停、快进快退等简单操作，在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.

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