VB6.0检查是否有拨号连接

一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释，不过注释都是英文。这款跳棋感觉和国内的不一样，走棋方法不同，试着玩了，按照国内的走棋方法，棋子并不走动，不知道如何玩。但是源代码在VB6.0下可顺利编译成功，有兴趣的可下载源代码参考学习。运行效果如下图所示。

VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。

VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定: 　　MSChart1.RowLabel = "" 　　不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示. 　　MSChart主要用来生成一些简单的图表，包括饼图、曲线图、柱状图等，较复杂的图表就需要借助三方控件了。

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 OutLook式主界面菜单，可折叠和展开，类似WindowsXP的界面左侧菜单，如示例图所示，本示例菜单效果请看左侧的图文式菜单，鼠标单击后可向下滑开，显示出二级的图文菜单，再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用，本源码是仿写的这种菜单。

VB 演示创建视图 以及使用视图保存数据，数据库选择了MSSQL，根据各数据库字段创建视图，并使用这个视图进行数据保存，测试前请确保数据库连接成功。

VB.NET 软件在线自动升级功能演示，含源代码，程序自动更新版本源码中核心文件为UpdatingForm.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 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能： 　　If IsNumeric(Txt_a.Text) Then 　　 a = Val(Txt_a.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　If IsNumeric(Txt_b.Text) Then 　　 b = Val(Txt_b.Text) 　　Else 　　 MsgBox "请输入数字！" 　　 Exit Sub 　　End If 　　a = a + b 　　b = a - b 　　a = a - b 　　Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b

本源码基于VB.NET编写，集合了VB.NET中的读取ini文件，窗体Tab标签，界面滑动等效果，界面看上去是一个音乐播放器，其实本程序是侧重于界面的编程设计，演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现，使用了比较多的三方DLL，已经都打包了，感兴趣的下载源码，在VS2012版本以上的VS中打开并编译。