# Re: 隐藏滑鼠指标

Posted by 小v on July 08, 1999 at 13:26:07:

In Reply to: Win95 OSR2 设定问题... 急!!! posted by 战豪 on July 08, 1999 at 04:59:42:

: 我于一组网络电脑上编写客户程式时,遇到以下难题:

: 1. 如何设定Win95 OSR2在没有滑鼠的情况底下(只用键盘查),完全不显示鼠标呢?

Declare Function ShowCursor Lib "User32" (ByVal bShow As Integer) As Integer

Private Sub Form_Load()
Dim ret As Long
'隐藏滑鼠
Do
ret=ShowCursor(False)
Loop Until ret<0
End Sub

Private Sub Form_Unload(Cancel As Integer)
'显示滑鼠
Dim ret As Long
Do
ret=ShowCursor(True)
Loop Until ret>=0
End Sub

Follow Ups:

- Re: 隐藏滑鼠指标 战豪 00:09:19 7/09/99 (0)