|
VB本身不支持彩色光标和动画光标，但可以通过调用Windows的API函数实现这一目的。这里用到两个API函数，LoadCursorFromFile用于装入新光标(xin)，需要指明新光标的具体路径及文件名；SetClassLong用于设置使用新光标(xin)。这一函数使用时会返回一个代表前一个光标的变量值(jiu)，为我们关闭程序时得以方便的恢复原始光标(jiu) 3t6Linux联盟
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long 3t6Linux联盟
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 3t6Linux联盟
Dim xin As Long 3t6Linux联盟
Dim jiu As Long 3t6Linux联盟
3t6Linux联盟
Private Sub Form_Load() 3t6Linux联盟
xin = LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani") 3t6Linux联盟
jiu = SetClassLong(hwnd, -12, xin) 3t6Linux联盟
End Sub 3t6Linux联盟
3t6Linux联盟
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 3t6Linux联盟
SetClassLong hwnd, -12, jiu 3t6Linux联盟
End Sub
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
