VB 网络连通检测

游戏说明： 　　1、控制键 　　 “回车键”-----新游戏或终止游戏 　　 “5”（数字键区的）----暂停或恢复 　　 方向控制键（数字键区的） 　　 “8、2、4、6”----对应控制“上、下、左、右”移动 　　 “1”-----“左下”移动 　　 “3”-----“右下”移动 　　 “7”-----“左上”移动 　　 “9”-----“右下”移动 　　2、地图 　　 蓝色方块----食物（吃到食物后，蛇身长度增加一节） 　　 红色方块----炸弹（吃到炸弹，所得分数会减去当前级别数的2倍） 　　 地图上一次出现2个食物和1个炸弹，被蛇吃掉后会随机位置补充 　　 灰色方块----蛇头 　　 绿色方块----蛇身 　　 暗海洋绿方块----奖品 　　 当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品，奖品 　　 上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50 　　 之间的随机数，当奖品出现后就会开始不断的减少，所以玩家要尽快吃 　　 到才能增加到更多的分数。 　　3、计分方法 　　 每吃到一个食物，增加的分数等于当前级别的数值； 　　 每吃到一个炸弹，扣掉的分数等于当前级别数值的2倍； 　　 玩家的起始分数等于当前的级别数值的2倍加1 　　 例如 等级为3，则玩家起始分数是7分；每吃到一个食物加3分； 　　 每吃到一个炸弹减6分 　　4、游戏结束 　　 当总分

VB将程序图标添加到托盘，任务栏的系统托盘上有本程序的图标，并可通过图标的右键菜单，调出程序主窗口、退出关闭程序等功能，是一种比较常见的添加系统托盘的示例。

VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。

VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码： 　　Dim x, y As Long 　　x = Form1.Width - 200 - Frame1.Width - Image1.Width 　　y = (Frame1.Height - Drive1.Height - Drive1.Top - 200) 　　Frame1.Width = Frame1.Width + x / 2 　　Image1.Left = Frame1.Left + Frame1.Width + 100 　　Image1.Width = Image1.Width + x / 2 　　Image1.Height = Me.Height - 600 　　Frame1.Height = Image1.Height 　　Dir1.Width = Frame1.Width - 280 　　File1.Width = Dir1.Width 　　Drive1.Width = Dir1.Width 　　Dir1.Height = y / 3 　　File1.Top = Dir1.Top + Dir1.Height + 100 　　File1.Height = 2 / 3 * y 　　此段代码被封装在按钮事件中，请参见源代码文件。

VB6.0为Lable标签着色（填充不同颜色），把标签分别填充上不同的颜色，在显示一些统计数据的时候，可清淅的显示出各种数据类型，提升用户浏览体验。 　　为Lable着色是非常简单的，你可以从本例子中学会用法。

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编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下： 　　Private Sub Timer1_Timer() 　　 On Error GoTo H 　　 Timer1.Interval = 1000 　　 Dim i As Date 　　 i = CDate(Text1) 　　 Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒" 　　 Exit Sub 　　H: 　　 MsgBox "请输入正确的时间" 　　 Timer1.Enabled = False 　　End Sub

vb6 批量生成证书、房屋等编号，学会了本例子，是个比较实用的技巧，在一些需要批量生成编号的地方，你都可以借鉴本程序，来实现编号生成，在本例中，是批量生成房屋的编号，用户可选择楼层范围、单元范围等参数后，即可快速生成编号。十分方便哦。这个小程序从界面和功能易用上来说，都设计的都好用的。

VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。

VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。 　　测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。