# Re: 隐藏滑鼠指标

Posted by 战豪 on July 09, 1999 at 00:09:19:

In Reply to: Re: 隐藏滑鼠指标 posted by 小v on July 08, 1999 at 13:26:07:

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

: : 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

Really thank you, but this code I'm already using on my project early, my problem is how to disable mouse pointer display while log on Win95 OSR2, not after my program loaded...

Follow Ups: