让VB使用彩色及动画光标的方法
添加时间: 2006-2-16 5:29:49 作者: VB教程 阅读次数:74 来源: http://www.d9soft.com
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim xin As Long
Dim jiu As Long
Private Sub Form_Load()
xin = LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani")
jiu = SetClassLong(hwnd, -12, xin)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetClassLong hwnd, -12, jiu
End Sub
上下文章:
上一篇文章: 怎样在VB中声明和使用API函数 下一篇文章: VB操作.ini后缀文件的方法
相关文章: