阿啵呲嘚 -
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hCur As Long, ByVal id As Long) As Long
"关于 SetSystemCursor
hCur：光标的句柄，该函数hCur标识的光标的内容代替id定义的系统光标内容。系统通过调用DestroyCursor函数销毁hCur。因此hCur不能是由LoadCursor函数载入的光标。要指定一个从资源载入的光标，先用CopyCursor函数复制该光标，然后把该副本传送给SetSystemCursor函数。
id：指定由hour的内容替换系统光标。
下面是一系列的系统光标标识符：
OCR_APPSTARTING：标准箭头和小的沙漏
OCR_NORMAL：标准箭头
OCR_CROSS：交叉十字线光标
OCR_HAND：手的形状（Windows NT 5.0 和以后版本）
OCR_HELP：箭头和向东标记
OCR_IBEAM：I形梁
OCR_NO：斜的圆
OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西
OCR_SIZENESEW：双箭头分别指向东北和西南
OCR_SIZENS：双箭头，分别指向北和南
OCR_SIZENWSE：双箭头分别指向西北和东南
OCR_SIZEWE：双箭头分别指向西和东
OCR_UP：垂直箭头
OCR_WAIT：沙漏
然后 SetSystemCursor LoadCursorFromFile("D:1.ani"),OCR_NORMAL 即可。
系统会自动调用 DestroyCursor 来销毁。
Option Explicit
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hCur As Long, ByVal id As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCur As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lRet As Long
Private Sub Form_Load()
lRet = LoadCursorFromFile("D:IconsStandard Hand.cur")"我的图标路径
SetSystemCursor lRet, OCR_NORMAL
End Sub
Private Sub Command1_Click()
DestroyCursor(lRet)
End Sub
惨了……变不回去……必须要重设光标了。
牛云 -
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hCur As Long, ByVal id As Long) As Long
"关于 SetSystemCursor
hCur：光标的句柄，该函数hCur标识的光标的内容代替id定义的系统光标内容。系统通过调用DestroyCursor函数销毁hCur。因此hCur不能是由LoadCursor函数载入的光标。要指定一个从资源载入的光标，先用CopyCursor函数复制该光标，然后把该副本传送给SetSystemCursor函数。
id：指定由hour的内容替换系统光标。
下面是一系列的系统光标标识符：
OCR_APPSTARTING：标准箭头和小的沙漏
OCR_NORMAL：标准箭头
OCR_CROSS：交叉十字线光标
OCR_HAND：手的形状（Windows NT 5.0 和以后版本）
OCR_HELP：箭头和向东标记
OCR_IBEAM：I形梁
OCR_NO：斜的圆
OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西
OCR_SIZENESEW：双箭头分别指向东北和西南
OCR_SIZENS：双箭头，分别指向北和南
OCR_SIZENWSE：双箭头分别指向西北和东南
OCR_SIZEWE：双箭头分别指向西和东
OCR_UP：垂直箭头
OCR_WAIT：沙漏
然后 SetSystemCursor LoadCursorFromFile("D:1.ani"),OCR_NORMAL 即可。
系统会自动调用 DestroyCursor 来销毁。
Option Explicit
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hCur As Long, ByVal id As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCur As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lRet As Long
Private Sub Form_Load()
lRet = LoadCursorFromFile("D:IconsStandard Hand.cur")"我的图标路径
SetSystemCursor lRet, OCR_NORMAL
End Sub
Private Sub Command1_Click()
DestroyCursor(lRet)
End Sub
北境漫步 -
vb6.0生成的程序图标是默认使用启动窗体的icon属性里指定的图标的,比如一个程序的启动窗体是form1,那么在form1的属性里修改它的icon属性就可以了,但vb中使用的图标是有要求的,就是不能使用真彩色或者rgb色彩的图标,最大可以使用256色的图标,但对图标的大小似乎没有过多的要求,以上的回答希望可以对你有帮助
一颗苹果 -
SetSystemCursor
VB声明
Declare Function SetSystemCursor Lib "user32 " Alias "SetSystemCursor " (ByVal hcur As Long, ByVal id As Long) As Long
说明
改变任何一个标准系统指针
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hcur Long，新指针
id Long，以 OCR_ 前缀起头的一个常数，用于指定标准系统指针
注解
不要破坏由hcur指定的指针——在必要的时候，它会由系统自行清除