在VB中怎么调用Windows自带的鼠标指针？

[白掌柜]

在VB中怎么调用Windows自带的鼠标指针？
我说的可不是中VB的那个属性。

[shines77]

SetCursor()

【VB声明】
Private Declare Function SetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long

【说明】
将指定的鼠标指针设为当前指针

【返回值】
Long，前一个指针的值

【备注】
在vb里这个函数不能很好的工作，因为vb习惯在不同的时间将指针变回原来的样子

【参数表】
hCursor -------- Long，要设为当前指针的一个指针的句柄。如设为零，表示不显示任何指针

[TechnoFantasy]

是象十字、箭头那些系统指针么？首先要API
LoadCursor
www.applevb.com

[vbdabster]

朋友，没有办法是就想API把，他能帮你解决问题，上面两位的都不错，试试看

[白掌柜]

我想调用Windows里那个小手的指针。

[h_x_k]

呵呵，为什么不把MOUSEICON设置为99呢？然后找到你哪个小手的指针文件就可以了，不需要代码

[limengchen]

像h_x_k说的那样做就行了。

[TrueZq]

我来详细说说吧。
上面的仁兄都没说错。
strMediaPath是你的光标文件路径
如：strMediaPath ="D:\Resource\"
Public Const OCR_NORMAL = 32512
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Public Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, _
ByVal id As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long


1、显示手形光标
Public HandMouse As StdPicture '手形鼠标光标
Set HandMouse = LoadPicture(strMediaPath + "H_point.cur")
Command1.MousePointer = vbCustom '鼠标光标变为手形状
Command1.MouseIcon = HandMouse

如果将H_point.cur转换成H_point.ico,一样可以用
不过在有的时候，将导致光标闪烁或不可见，而H_point.cur就没有这个问题。
这种方法将会丢失光标的颜色信息，即只能显示黑白两种颜色。

2、显示彩色光标
Private ArrowMouse As Long
ArrowMouse = LoadCursorFromFile(strMediaPath + "bluearrow.cur")
Call SetSystemCursor(ArrowMouse , OCR_NORMAL)

这样可以显示彩色光标，但同样有闪烁现象。

3、显示动画光标
Private AniMouse As Long
AniMouse = LoadCursorFromFile(strMediaPath + "globe.ani")
Call SetSystemCursor(AniMouse , OCR_NORMAL)

还有问题再提。

[白掌柜]

我没有那个光标呀。

[xzjxu]

to citymeteor,
在你的硬盘了搜索一下*.ico

[xzjxu]

和*.cur

[白掌柜]

找了，没有。没办法只好自己画，可画得不好。

[白掌柜]

在VB中怎么调用Windows自带的鼠标指针？

[xzjxu]

肯定有！！！