vb 6.0 排队叫号系统

FSO对象模型提供了三种创建和打开文件的方法：其实本示例是创建了FileSystemObject对象，然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法，对文件进行操作，演示了三种FSO对象的操作方法，对学习初级的FSO文件操作有相当好的帮助作用。

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

VB 删除指定类型文件，用户选择电脑中指定路径下的文件类型后，可删除该目录下所有此类型的文件。

VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。 　　注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。

VB6.0 WinLock-锁住计算机 实现锁定电脑的功能，沐风视窗锁，程序由沐风工作室开发编写，锁定计算机后，按下回车键后请输入解锁密码才能解锁屏幕，另外这个锁屏程序还可以设置自启动、效验密码等功能。 　　本程序同时支持卸载，当用户点击 卸载按钮后，即将完成删除，程序将运行卸载程序。 　　温馨提示：第一次使用,请输入密码。密码设置成功,程序将重新启动。

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

VB 记录鼠标行为，记录用户是单击了鼠标右键或是左键，监控鼠标被单击了哪个键，核心的代码如下： 　　If GetAsyncKeyState(VK_LBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标左键 " 　　ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then 　　 Text1.Text = Text1.Text + " 鼠标右键 " 　　End If

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 利用Tag属性存储用户名 　　If Text1.Text = "" Or Text2.Text = "" Then 　　 MsgBox "用户名或密码不能为空", vbCritical, "信息提示" 　　 Exit Sub 　　Else 　　 If Text1.Text = "TSoft" And Text2.Text = "111" Then 　　 Me.Tag = Text1.Text 　　 Frm_Main.Show 1 　　 Unload Me 　　 Else 　　 MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示" 　　 End If 　　End If

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