分享
 
 
 

使用Win95的动画光标

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

-在Windows 95系统中具有一个Windows 3.x所不具备的特性――支持动画的光标文件。你可以在Windows 95目录中的Cursors子目录下看到这些动画的光标文件,它们均具有扩展名*.ANI。在程序中使用相应的动画光标能够极大地改善程序的外观,本文介绍了如何在你的Visual Basic应用程序中使用Windows 95所附带的动画光标文件。

使用动画光标文件

----要在Visual Basic的应用程序中使用Windows 95所附带的动画光标,你需要使用下列Windows 应用程序编程接口(API)函数:

LoadCursorFormFile,用于从磁盘上载入光标文件;

ClipeCursor,用于将光标限制在一个固定的矩形区域内;

GetWindowRect,用于获取该矩形区域,在下面的样例程序中就是程序主窗体的本身;

SetClassLong,用于设置和提取窗口类的数据,以使光标被显示在窗体上;

GetClassLong函数,在退出应用程序之前,需要将应用程序的缺省光标设置回程序执行以前的光标,所以需要在程序运行时首先对以前的光标状态进行备份,这项工作由该函数来完成;

DestroyCursor,在正确显示了光标之后,需要使用该函数来取消载入的光标。

样例程序

----下面的样例程序将在窗体区域内显示出C:\WIN95\CURSORS目录下的APPSTART.ANI动画光标文件,如果你的Windows 95路径不同的话,你需要修改样例程序以正确显示出动画光标。

在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。

在Form1上创建一个命令按钮控件,采用缺省的方法建立Command1。将它的Caption属性设置为“显示动画光标”。

在Form1上创建第二个命令按钮控件,采用缺省的方法建立Command2。将它的Caption属性设置为“恢复缺省光标”。

创建一个新的模块,采用缺省的方法建立Module1.Bas。将如下的声明,类型和常量语句添加到Module1.Bas的通用声明部分中:

Option Explicit

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Const GCL_HCURSOR = (-12)

Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA"

(ByVal lpFileName As String) As Long

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,

lpRect As RECT) As Long

Declare Function SetClassLong Lib "user32" Alias "SetClassLongA"

(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function GetClassLong Lib "user32" Alias "GetClassLongA"

(ByVal hwnd As Long, ByVal nIndex As Long) As Long

注意上面的声明语句需要书写在一行内。

将如下的语句添加到Form1的通用声明部分中:

Option Explicit

Dim mhBaseCursor As Long

Dim mhAniCursor As Long

将如下的代码添加到Form1的Form_Load事件中:

Private Sub Form_Load()

Dim lResult As Long

mhBaseCursor = GetClassLong((Me.hwnd), GCL_HCURSOR)

End Sub

将如下的代码添加到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, mhAniCursor)

lResult = GetWindowRect((Me.hwnd), RT_FormArea)

lResult = ClipCursor(RT_FormArea)

End Sub

将如下的代码添加到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.TwipsPerPixelX

RT_ScreenArea.Right = Screen.Width \ Screen.TwipsPerPixelY

lResult = ClipCursor(RT_ScreenArea)

lResult = SetClassLong((Me.hwnd), GCL_HCURSOR, mhBaseCursor)

lResult = DestroyCursor(mhAniCursor)

End Sub

----通过按下F5键来运行该程序,单击“显示动画光标”命令按钮,则在窗体的范围内光标变成为APPSTART.ANI光标,并且光标被限制在窗体的范围内。单击“恢复缺省光标”命令按钮,则窗体中的光标被恢复为缺省的光标。注意,在退出该样例程序之前,需要单击“恢复缺省光标”命令按钮,否则将不能在系统中正确进行其它操作。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有