? Windows 95系统有一个Windows 3.x所不具备的特性——支持动 画的光标文件,可以在Windows
95目录中的Cursors子目录下看到这些 动画光标的文件,它们均具有扩展名*. ANI。在程序中使用相应的动
画光标能够极大地改善程序的外观。本文介绍如何在Visua lBasic应 用程序中使用Windows 95所附带的动画光标文件。
使用动画光标文件 要在Visual Basic的应用程序中使用Windows 95所附带的动画光 标,需要使用下列W
indows 应用程序编程接口(API)函数: ●LoadCursorFormFile函数,用于从磁盘上载入光标文件;
●ClipeCursor函数,用于将光标限制在一个固定的矩形区域内;
●GetWindowRect函数,用于获取该矩形区域,在下面的样例程序 中就是程序主窗体的本身;
●SetClassLong函数,用于设置和提取窗口类的数据,以使光标被 显示在窗体上;
●GetClassLong函数,在退出应用程序之前,需要将应用程序的缺 省光标设置回程序执行以前的光标,所以需要在程序运行时首先对以
前的光标状态进行备份,这项工作由该函数来完成; ●DestroyCursor,在正确显示光标之后,需要用该函数来取消载 入的光标。
样例程序 下面的样例程序在窗体区域内显示出C:\WIN95\CURSORS目录下的
APPSTART.ANI动画光标文件,如果读者的Windows 95路径占上述路径 不同的话,需修改样例程序以正确显示出动画光标。步骤如下:
1. 在Visual Basic中开始一个新的工程,采用缺省的方法建立Fo rm1。 2.
在Form1上创建一个命令按钮控件,采用缺省的方法建立Comma nd1。将其Caption 属性设置为"显示动画光标"。 3.
在Form1上创建第二个命令按钮控件,采用缺省的方法建立Com mand2。将其Capti on属性设置为"恢复缺省光标"。 4.
创建一个新的模块,采用缺省的方法建立Module1.Bas。将如
下声明、类型和常量语句添加到Module1.Bas的通用声明部分中: Option Explicit
Type RECT Left As Long Top As Long Right As
Long Bottom As Long End Type PublicConst GCL_HCURSOR =
(-12) Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function DestroyCursor Lib "user32" (ByVal hCurs or As Long) As
Long Declare Function LoadCursorFromFile Lib "user32 lias "
LoadCursorFromFi leA"(ByVal lpFileName As String) As Long Declare
Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRectA s RECT) As
Long Declare Function SetClassLong Lib "user32" Alias "SetCla ssLongA"
(ByValh wnd As Long, ByVal nIndex As Long, ByVal dw NewLong As Long) As Long
Declare Function GetClassLong Lib "user32"Alias "GetClas sLongA" (ByValhw
nd As Long, ByVal nIndex As Long) As Long 注意:上面的声明语句需要书写在一行内。
5. 将如下语句添加到Form1的通用声明部分中: Option Explicit Dim mhBaseCursor
As Long Dim mhAniCursor As Long 6. 将如下代码添加到Form1的Form_Load事件中:
Private Sub Form_Load() Dim lResult As Long
mhBaseCursor = GetClassLong((Me.hwnd), GCL_HCURSOR) End Sub
7. 将如下代码添加到Command1的单击事件中: Private Sub Command1_Click() Dim
lResult As Long Dim RT_FormArea As RECT mhAniCursor
LoadCursorFromFile("c:\Win95\Cursors\appstart.ani") lResult =
SetClassLong((Me.hwnd), GCL_HCURSOR, mhAniCurs or) lResult =
GetWindowRect((Me.hwnd), RT_FormArea) lResult =
ClipCursor(RT_FormArea) End Sub 8. 将如下代码添加到Command2的单击事件中:
Private Sub Command2_Click() Dim lResult As Long Dim
RT_ScreenArea As RECT RT_ScreenArea.Top = 0 RT_ScreenArea.Left = 0
RT_ScreenArea.Bottom = Screen.Height\Screen.TwipsPerPixe lX
RT_ScreenArea.Right = Screen.Width Screen.TwipsPerPixelY lResult =
ClipCursor(RT_ScreenArea) lResult = SetClassLong(Me.hwnd), GCL_HCURSOR,
mhBaseCurs or) lResult = DestroyCursor(mhAniCursor) End Sub
按下F5键来运行该程序,单击"显示动画光标"命令按钮,则在窗体 的范围内光标变成为APPSTART.ANI光标,并且光标被限制在该窗体的
范围内。单击"恢复缺省光标"命令按钮,则窗体中的光标被恢复为缺 省的光标。注意:在退出该样例程序之前,需要单击"恢复缺省光标"命
令按钮,否则将不能在系统中正确进行其它操作。
[VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解