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 |
|
1 – vbArrow |
|
2 – vbCrossHair |
|
3 – vbIBeam |
|
4 – vbIconPointer |
Veraltet; ersetzt durch Default |
5 – vbSizePointer |
|
6 – vbSizeNESW |
|
7 – vbSizeNS |
|
8 – vbSizeNWSE |
|
9 – vbSizeWE |
|
10 – vbUpArrow |
|
11 – vbHourGlass |
|
12 – vbNoDrop |
|
13 – vbArrowHourGlass |
|
14 – vbArrowQuestion |
|
15 – vbSizeAll |
|
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