MousePointer für Visual Basic 6.0-Benutzer

Aktualisiert: November 2007

In Visual Basic 2008 wurde die MousePointer-Eigenschaft von Visual Basic 6.0 durch die Cursor-Eigenschaft ersetzt. Die Namen der MousePointer-Konstanten wurden geändert.

Konzeptionelle Unterschiede

In Visual Basic 6.0 wird mit der MousePointer-Eigenschaft eines Formulars oder Steuerelements die Darstellung des Cursors geändert, wenn dieser über das Formular oder das Steuerelement bewegt wird.

In Visual Basic 2008 bietet die Cursor-Eigenschaft die gleiche Funktionalität wie MousePointer.

Benutzerdefinierte Mauszeiger

In Visual Basic 6.0 können Sie jede Symboldatei (ICO) oder Cursordatei (CUR) als benutzerdefinierte MousePointer-Eigenschaft verwenden.

In Visual Basic 2008 werden nur Cursordateien unterstützt. Sie können zur Laufzeit einen benutzerdefinierten Cursor festlegen, indem Sie der Cursor-Eigenschaft eine Cursordatei zuweisen.

vbIconPointer-Konstante

Visual Basic 6.0 enthält die MousePointer-Konstante vbIconPointer. Diese bewirkt, dass der Cursor zu einem Symbol (ein kleines Quadrat innerhalb eines Quadrats) wird. Diese Konstante ist nur für Legacyzwecke vorgesehen. Bei neueren Betriebssystemen ist sie wirkungslos, und der Standardcursor wird angezeigt. In Visual Basic 2008 gibt es keine Entsprechung.

Änderungen am Code der MousePointer-Eigenschaft

Im folgenden Beispiel werden Unterschiede in den Codierungstechniken von Visual Basic 6.0 und Visual Basic 2008 dargestellt.

Ändern der Cursordarstellung

Das folgene Codebeispiel zeigt, wie sich das Erscheinungsbild des Cursors ändert, wenn er zur Laufzeit über ein Textfeldsteuerelement bewegt wird. Der standardmäßige Pfeilcursor wird dabei durch eine Sanduhr ersetzt. Im Visual Basic 6.0-Beispiel wird die MousePointer-Eigenschaft festgelegt. Im Visual Basic 2008-Beispiel ist die Cursor-Eigenschaft die Entsprechung zu MousePointer. Im Visual Basic 2008-Beispiel wird außerdem das neue MouseEnter-Ereignis verwendet.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MousePointer = vbHourGlass
End Sub
' Visual Basic
Private Sub TextBox1_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
    TextBox1.Cursor = System.Windows.Forms.Cursors.WaitCursor
End Sub

Anzeigen eines benutzerdefinierten Cursors

Der folgende Code zeigt, wie der Cursor als Handcursor dargestellt wird, wenn er über ein Textfeldsteuerelement bewegt wird. Im Visual Basic 6.0-Beispiel wird sowohl die MouseIcon-Eigenschaft als auch die MousePointer-Eigenschaft festgelegt. Im Visual Basic 2005-Beispiel wird die Cursor-Eigenschaft auf eine neue Instanz eines Cursor-Objekts festgelegt.

' Visual Basic 6.0
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
    Text1.MouseIcon = LoadPicture("C:\Windows\Cursors\hmove.cur")
    Text1.MousePointer = vbHourGlass
End Sub
' Visual Basic
Private Sub TextBox2_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox2.MouseEnter
    TextBox2.Cursor = New System.Windows.Forms.Cursor _
    ("C:\mypath\mycursor.cur")
End Sub

Entsprechungen für MousePointer-Konstanten

In der folgenden Tabelle sind die Konstanten von Visual Basic 6.0 und deren Visual Basic 2008-Entsprechungen aufgeführt.

Visual Basic 6.0

Visual Basic 2008-Entsprechung

0 – vbDefault

Default

1 – vbArrow

Arrow

2 – vbCrossHair

Cross

3 – vbIBeam

IBeam

4 – vbIconPointer

Veraltet; ersetzt durch Default

5 – vbSizePointer

SizeAll

6 – vbSizeNESW

SizeNESW

7 – vbSizeNS

SizeNS

8 – vbSizeNWSE

SizeNWSE

9 – vbSizeWE

SizeWE

10 – vbUpArrow

UpArrow

11 – vbHourGlass

WaitCursor

12 – vbNoDrop

No

13 – vbArrowHourGlass

AppStarting

14 – vbArrowQuestion

Help

15 – vbSizeAll

SizeAll

99 – vbCustom

Keine Entsprechung. Weitere Informationen finden Sie unter Es kann kein benutzerdefinierter MousePointer festgelegt werden.

Hinweise zum Durchführen einer Aktualisierung

Beim Aktualisieren einer Visual Basic 6.0-Anwendung auf Visual Basic 2008 wird die MousePointer-Eigenschaft durch die Cursor-Eigenschaft ersetzt. Code, in dem MousePointer-Konstanten verwendet werden, wird so geändert, dass Cursors-Enumerationen von Visual Basic 2008 verwendet werden.

Wird in der Visual Basic 6.0-Anwendung eine benutzerdefinierte MousePointer-Eigenschaft verwendet, werden die zur Entwurfszeit geltende Einstellung oder der benutzerdefinierte MousePointer-Code nicht aktualisiert, und es wird eine Warnung ausgegeben.

Wenn darüber hinaus MousePointer in der Visual Basic 6.0-Anwendung zur Entwurfszeit oder zur Laufzeit auf die vbIconPointer-Konstante festgelegt wird, wird der Cursor während der Aktualisierung durch den Standardcursor ersetzt.

Siehe auch

Referenz

Es kann kein benutzerdefinierter MousePointer festgelegt werden

Weitere Ressourcen

Windows Forms-Steuerelemente für Visual Basic 6.0-Benutzer

Änderungen an Steuerelementeigenschaften, -methoden und -ereignissen für Visual Basic 6.0-Benutzer