在VB5.0下有效控制鼠标的输入焦点

al=500 动态提示延时功能,设置延迟值

　　该程序中将Picture1的客户区域划分为3个部分(见文后程序中的Form－Load( )函数中的初始化数据)，用来演示鼠标移动过程中光标形状的变化和输入焦点控制功能以及相关的命令按钮提示、凸凹状态和执行操作等。程序中通过变量控制当前有效的客户命令区域，当然读者可根据实际需要将其修改为各种命令按钮或图片等。程序中的相关提示功能采用了最为常用的鼠标光标形状变化、动态提示窗口和按钮状态变化的提示方法，其中动态提示功能还在提示窗口首次显示前进行了一定延时处理，使其和当前的可视编程工具中的提示功能完全相同。程序中图版框中设置的命令按钮是在Picture1－Paint()函数中设置的，命令按钮的状态变化是通过UpLine()和DownLine()两个函数来实现的。当命令区域取得输入焦点后，为简化程序其执行功能只显示一个用户模态对话框。
　　本文程序在P200计算机、VB5.0和Windows 98测试版下调试通过，程序的运行结果见图1和图2，其中图1为程序运行时的界面，图2为当鼠标指针移动到命令按钮二上时鼠标光标、命令按钮的状态变化以及按钮的动态提示情况，当鼠标指针移开后，程序界面又恢复图1的状态。实际程序设计时可根据具体情况进行相应的功能取舍或补充。总之，在应用程序中灵活地控制鼠标输入焦点，可使开发的应用程序具有很高的专业水准和简单灵活的操作方法。