VB 5/6-Tipp 0180: Mauszeiger verstecken

von ActiveVB

Beschreibung

Tja, und verstecken läßt sich der Mauszeiger auch noch

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

ShowCursor

Download:

Download des Beispielprojektes [1,72 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Timersteuerelement "Timer1"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal _
        bShow As Long) As Long
        
Private Sub Form_Load()
  Timer1.Enabled = False
  Timer1.Interval = 3000
End Sub

Private Sub Command1_Click()
  Timer1.Enabled = True
  ShowCursor (0)
End Sub

Private Sub Timer1_Timer()
  Timer1.Enabled = False
  ShowCursor (1)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-Version	Win32s	Win95	Win98	WinME	WinNT4	Win2000	WinXP
VB4
VB5
VB6

Ihre Meinung

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Stefan am 10.07.2006 um 20:42

Nett. Kann man auch den Mauszeiger in einer fremden Anwendung verstecken? Oder zumindest dort den Mauszeiger volltransparent einstellen? Pinnacle PCTV Vision ist scheinbar nicht in der Lage, im Vollbild den Zeiger auszublenden und das nervt schon tierisch beim Fernsehen.

Kommentar von Detlef am 26.12.2004 um 12:12

Diesen Tipp liest man des öfteren, leider aber immer wieder mit demselben Fehler. Intern läuft ein Zähler, dessen Wert durch die Funktion ShowCursor zurück gegeben wird. ist dieser Wert kleiner als 0, ist der Mausezeiger unsichtbar.
Wird ShowCursor 1 mehrfach aufgerufen, funktioniert das ganze dann nicht mehr richtig. Man kann sich leicht davon überzeugen, indem man den Wert anzeigen läßt.

<code>
debug.print showcursor(1)
</code>

Und so funktioniert es richtig:
<code>
Public Sub ShowMousePointer(visible As Boolean)

If visible = True Then
Do
If ShowCursor(1) > -1 Then Exit Do
Loop
Else:
Do
If ShowCursor(0) < 0 Then Exit Do
Loop
End If

End Sub
</code>

Kommentar von Chrisibuu am 25.12.2003 um 23:21

Ich habs zwar noch nicht ausprobiert, aber warum macht ihr dann nicht einfach eine Form, die maximiert ist. Die macht ihr dann unsichtbar und voilà.

Kommentar von Anfaenger am 23.02.2002 um 17:02

Ebenso das selbe Problem
[WIN 98][VB5-Prof.]

Kommentar von Movergan am 04.10.2001 um 15:02

Bei mir genauso wie bei Boris! (Win95 und VB5)

Kommentar von Boris am 15.09.2001 um 17:37

Der Tipp funktioniert bei mir leider nur innerhalb der Applikation. Wenn ich die Maus aus dem Fenster bewege, erscheint der Zeiger wieder...
[VB6] [WIN2K]