分类：电脑/网络-程序设计
问题：vb指针在鼠标不移动时自动隐藏如各种播放器暴风影音在全屏幕时指针 
如各种播放器 暴风影音 在全屏幕时指针在不移动时自动隐藏，在移动是又显现出来
回答：首先在全局模块中声明函数如下： Declare Function ShowCursor Lib User(ByVal bShow As Interger) As Interger 当bShow为True时，系统内部计数器加1；当bShow为False时，计数器减1。只有当计数器值大于或等于零时，才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示： Sub Form_Load Dim rc％ rc％=ShowCursor(False)　'隐藏鼠标 …… rc％=ShowCursor(True) 　'显示鼠标 End sub此种方法下ShowCursor(False)与ShowCursor(True)必须成对使用，否则有可能造成鼠标“丢失”的现象，即调用若干次ShowCursor(True)也有可能显示不出鼠标来(视内部计数器值而定)。当鼠标“丢失”时，可通过重新启动Windows来找回鼠标。