pb+api实际应用(8)

30、如何将的游标显示成动画游标

动画在 Windows 底下是 .ani 格式的档案， 要显示此类游标，首先要利用LoadCursorFromFile API 载入.ani 档案， 然或利用 SetSystemCursor API 加以显示。 实现步骤： 定义实例变量

Constant long OCR_NORMAL = 32512 Constant long IDC_ARROW = 32512 外部函数引用声明

Function long LoadCursorFromFile (string lpFileName ) Library \

Function long LoadCursor (ref long hInstance , long lpCursorName) Library \//注释： modified

Function long SetSystemCursor (long hcur , long id ) Library \实现代码： long hCursor

hCursor = LoadCursorFromFile(\欲显示的 .ani 或 .cur 档案名称\SetSystemCursor(hCursor, OCR_NORMAL)

//若要将鼠标游标还原原状， 则是执行以下叙述： long ll_temp ll_temp=0

hCursor = LoadCursor(0, IDC_ARROW) SetSystemCursor(hCursor, OCR_NORMAL)