マウスカーソルの表示/非表示          <TOP>


フォーム上のマウスカーソルの表示および非表示を設定します。

ShowCursor マウスポインターの表示/非表示

 

ボタンをクリックすると、マウスが非表示になります。フォームを外れた場合、マウスカーソルは表示されます。

フォーム内をクリックするとフォーム上でもカーソルは表示されます。

 

 

'================================================================
'= マウスカーソルの表示/非表示
'=    (ShowCursor.bas)
'================================================================
#include "Windows.bi"

' マウスカーソルの表示・非表示
Declare Function Api_ShowCursor& Lib "user32" Alias "ShowCursor" (ByVal bShow&)

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long
    Ret = Api_ShowCursor(False)
End Sub

'================================================================
'=
'================================================================
Declare Sub MainForm_Click edecl ()
Sub MainForm_Click ()
    Var Ret As Long
    Ret = Api_ShowCursor(True)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End