Tipp 0228 Maus-Cursor als Fadenkreuz
Autor/Einsender:
Datum:
  Michael Werner
20.04.2002
Entwicklungsumgebung:   VB 5
Ein Beispiel, wie man ein Maus-gesteuertes Fadenkreuz über eine Form legt. Hier wird auch der richtige Einsatz der API-Funktion ShowCursor demonstriert.
 
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
 
Weitere Links zum Thema
Maus-Cursor verstecken
Animierten Cursor verwenden
Position des Maus-Cursors ermitteln

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 1747 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 4. September 2011