vb 6.0 排队叫号系统

VB程序托盘控件+源码实例，VB自定义一个添加程序到Windows托盘图标的控件，编译控件源码后生成Tray.ocx，源码包中附有一个调用本托盘程序的示例，在TrayDEMO文件夹内，在Class1.cls文件中实现了托盘的主要操作：将程序图标添加到系统托盘区，将图标从系统托盘区中删除，设置图标的提示信息，添加图标右键操作等功能。

VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“

vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置： 　　Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString() 　　获取键盘按下： 　　Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()

VB6.0 删除指定路径下的文件夹【目录】 ，删除时请输入要删除文件夹的所在路径和名称，单击按钮即可。支持遍历目录删除文件，我觉得这是一个挺好的使用FSO操作的VB范例，对于VB新手学习相关的文件操作有很好的帮助。

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

VB6.0 使用鼠标分割窗体，用鼠标切分主窗体，实现SplitForm，可以用鼠标切分的窗体，在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框的大校 　　演示窗口其实是一个布满了各种导航菜单的窗口，这也是大家学习的一个亮点哦，作为一个信息管理系统的主界面效果还是相当不错的，分隔窗体在很多时候我们也用得上的。

VB.NET 软件在线自动升级功能演示，含源代码，程序自动更新版本源码中核心文件为UpdatingForm.vb，此文件包括了程序自动升级的主要功能，比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。 　　本程序需要一个存放软件最新版本的服务器或者是网址，程序运行后最先检测该网址下的软件是否是最新，若该网址不存在或出错，程序将不再继续，直接退出，如图所示。

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

VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的： 　　Private Sub Command1_Click() 　　 On Error GoTo Err_Out 　　 Dim lTemp As Long 　　 Dim sTemp As String 　　 lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) 　　 sTemp = InputBox("请输入密码", "密码输入框") 　　Err_Out: End Sub

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