Mauszeiger in VB.NET Zwei nützliche Tipps, wie sich der Mauszeiger unter VB.NET ändern lässt.
Autor:   Martin Riedl	Bewertung:     [ Jetzt bewerten ]	Views:  64.551
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 58 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend zwei Tipps, wie man den Mauszeiger unter VB.NET ändern bzw. wie man eigene Mauscursor verwendet.

1. Ändern des Mauszeigers in VB.NET
In VB.NET ist das Ändern des Standart-Mauszeigers etwas anders als es in VB6 der Fall ist!
Während man in VB6 noch

Me.MousePointer = vbHourglass

schrieb, um den Cursor auf die Sanduhr zu setzen, muss man nun bei VB.NET einen anderen Befehl benutzten:

Cursor.Current = Cursors.WaitCursor

Der Vorteil daran ist jedoch, dass man gleich alle Mauszeiger-Varianten über die Klasse Cursors angezeigt bekommt.

2. Eigenen Mauszeiger in VB.NET verwenden
Auch das Einbinden von eigenen Mauszeigern ist in VB.NET inzwischen komplett anders. Während man in VB6 einen eigenen Mauszeiger noch ganz leicht über das Eigenschaftsfenster auswählen konnte, benötigt man in VB.NET jetzt ein Stream-Objekt. Da man sicherlich das Mauszeigersymbol nicht als gesonderte Datei mitgeben will, laden wir den Mauszeiger einfach in unser Projekt: Hierzu über Projekt - Vorhandenes Element hinzufügen den Mauszeiger auswählen. Jetzt sollte der Mauszeiger im Projektmappen-Explorer angezeigt werden. Auf dieses Icon klicken wir und wechseln in das Eigenschaften-Fenster. Dort angelangt setzen wir die Eigenschaft Buildaktion auf Eingebettete Ressource. Jetzt müssen wir nur noch folgenden Code eingeben, um den Mauszeiger verwenden zu können:

' Erstellen eines neuen Stream
Dim oStream As System.IO.Stream
 
' Mauszeiger laden
oStream = Me.GetType().Assembly.GetManifestResourceStream( _
  "Projektname.Cursordatei.cur")
 
' Mauszeiger festlegen
Me.Cursor = New Cursor(oStream)