|
Option Explicit
Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
Private Sub Form_Click()
Static CursorAn As Boolean
CursorAn = Not CursorAn
If CursorAn Then
HideMouse
Else
ShowMouse
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Static X1%, Y1%
Me.Cls
Me.Line (X, 0)-(X, Me.ScaleHeight)
Me.Line (0, Y)-(Me.ScaleWidth, Y)
Me.Circle (X, Y), 100
Me.Circle (X, Y), 200
Me.Circle (X, Y), 240
Me.Caption = "Maus-Cursor als Fadenkreuz: X=" & X & " ; Y=" & Y
End Sub
Private Sub HideMouse()
While ShowCursor(False) >= 0
Wend
End Sub
Private Sub ShowMouse()
While ShowCursor(True) < 0
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowMouse
Unload Me
End
End Sub
|
|