在状态栏中显示当前状态-VB范例

vb演示如何调用其他应用程序菜单的方法，程序演示了在VB程序中，调用 windows记事本程序的菜单，不过测试发现，本程序在Windows 7中失效了，本代码写于2010年的，有些早了，当时可能只考虑了Windows XP，可能需要对以下代码加以修正，才能适用于windows 7/10环境： 　　hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单") 　　If hwnd = 0 Then Exit Sub 　　hMainMenu = GetMenu(hwnd) 　　hMenu = GetSubMenu(hMainMenu, 0) 　　MenuID = GetMenuItemID(hMenu, 3) 　　AppActivate "无标题 - 记事本菜单" 　　Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)

VB6.0在状态栏中显示当前状态，演示程序以一个画图程序来演示窗口状态栏的变化，当我们画直线、执行操作： 画正方形，执行操作： 画圆的时候，会显示出状态，要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了，很早的VB示例中就实现了，因此本源码比较基础了，高手请绕行。

vb.net 键盘鼠标全局线程钩子实例源码，源码中包括了HOOk的源码和Test项目源码，HookCode目录中是HOOk的源代码，TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下，与exe同级，运行效果如下图所示。

一款基于VB.NET和sqlserver数据库实现的考勤程序，实现公司员工的日常考勤功能，可实现指定日期的员工考勤，考勤时可选择考勤天数、考勤人，可查询本人的考勤记录，实现的是挺基本的考勤模块，还可显示当前用户的历史记录。 　　本实例的数据库文件在db文件夹下，请自行添加，并配置数据库信息。 　　源代码运行于VS2015环境下。

VB net 模拟考试系统,本考试时间为30分钟，系统会进行倒计时。你必须正确输入你所在班级、姓名和学号，交卷后不能再考，即时间未到不要急于点""交卷""！点击""确定""进入考试系统。本考试系统的窗口只允许打开一个，程序会判断窗体是否已经打开，如果已经打开，则不需要重复打开，只是显示。 　　程序正常运行需要SQL数据库，请在测试前附加并连接好。

一个使用Winsock控件的VB典型范例，架构为CS结构，由服务端和客户端组成，两者都运行后，可互通消息。调试步骤： 　　1）打开服务器端的“工程1.dsw”工程 　　2）点击运行按钮。 　　1）打开客户端的“工程1.dsw”工程 　　2）点击运行按钮。 　　3）此时服务器端和客户端已经建立连接 　　4）在服务器和客户端分别输入任何内容，另一端将会收到该内容并显示出来。 　　说明：必须先运行服务器端工程，再运行客户端工程。

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

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

VB6.0 实现表格样式的内容生成Excel表格式，将DataGrid的表格数据转换成Excel格式，生成Excel表文件，用Offie套件就可以打开，在转换前可设置文字格式、样式等参数，看上去是一个国外的程序，代码里的注释全是英文的，如果E文好的话，推荐参考。

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 　　此段代码被封装在按钮事件中，请参见源代码文件。