VB 版 (精华区)

发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 利用VB5.0设计屏幕保护程序(3) 
发信站: 哈工大紫丁香 (2000年05月31日19:37:46 星期三), 转信

发信人: esc (书剑飘零), 信区: VB
标  题: 利用VB5.0设计屏幕保护程序(3)
发信站: 虎踞龙盘东南站 (Fri Aug 20 16:00:03 1999), 转信

2、如何在屏幕保护程序中隐藏鼠标光标

ShowCursor API函数允许在Visual Basic应用程序中隐藏或
显示鼠标光标，Windows通过更改它所维护的一个变量中的
计数跟踪鼠标光标的可视性，每次用参数值True调用
ShowCursor都使这个计数递增，每次用参数值False调用
ShowCursor都使这个计数递减，如果该计数为0或者更小，
鼠标光标自动隐藏起来。以下是ShowCursor API函数的声明
：

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

下面是两个使用ShowCursor函数的例子。

显示鼠标光标：

Private Sub ShowMouse()
While ShowCursor(True)<=0
Wend
End Sub

隐藏鼠标光标：

Private Sub HideMouse()
While ShowCursor(False)>0
Wend

End Sub
--
既然要注定流浪，风又何必苦苦推难。
    既然帆想要靠岸，海又何必处处阻拦。

  
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]