Question

VB怎么写换鼠标指针

我有很多个漂亮的ani图片，每次换个新的要去控制面板再点鼠标再点换指针，好麻烦，能不能用一段代码来实现呢？我在网上搜了下，全是一些只有在窗体上才生效，离开了窗体就复原了！这个代码不好，起不到效果，谢谢！
那个fxafh45,你不会写就算了，到网上搜这个来干嘛？！我早就看过了！那只是隐藏了鼠标而已，这是换鼠标指针哪？能用上我的图片吗？？！！不会写就不要回答，去睡你的觉觉！

Answer 1

mouse.hide?你们的VB版本是什么呀?VB6是没的.用API吧.

----------------------------------------------------
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Load()
ShowCursor 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
ShowCursor 1
End Sub
--------------------------------------------
注意:windows维持着一个内部显示计数；倘若bShow为TRUE，那么每调用一次这个函数，计数就会递增1；反之，如bShow为FALSE，则计数递减1。只有在这个计数大于或等于0的情况下，指针才会显示出来.
还有.,,在卸载事件里写ShowCursor 1是必要的.如果你不写.呵呵.后果自负..

Answer 2

给你传了邮件，注意查收。