MousePointer pour les utilisateurs de Visual Basic 6.0

Article
08/21/2008

Mise à jour : novembre 2007

Dans Visual Basic 2008, la propriété MousePointer de Visual Basic 6.0 a été remplacée par la propriété Cursor et les noms des constantes MousePointer ont été changés.

Différences conceptuelles

Dans Visual Basic 6.0, la propriété MousePointer d'un formulaire ou contrôle est utilisée pour modifier l'apparence du curseur lorsqu'il passe sur ce formulaire ou contrôle.

Dans Visual Basic 2008, la propriété Cursor assure la même fonctionnalité que la propriété MousePointer.

Pointeurs de souris personnalisés

Dans Visual Basic 6.0, vous pouvez utiliser tout fichier icône (.ico) ou curseur (.cur) comme un MousePointer personnalisé.

Dans Visual Basic 2008, seuls les fichiers curseur sont pris en charge ; vous pouvez définir un curseur personnalisé au moment de l'exécution en assignant un fichier curseur à la propriété Cursor.

Constante vbIconPointer

Visual Basic 6.0 inclut la constante vbIconPointerMousePointer pour modifier le curseur en un symbole d'icône (un petit carré dans un carré). Cette constante est fournie uniquement à des fins d'héritage ; sur les systèmes d'exploitation plus récents, elle n'a aucun effet et le curseur par défaut est affiché. Il n'existe aucun équivalent dans Visual Basic 2008.

Modifications du code pour la propriété MousePointer

Les exemples ci-dessous illustrent les différences entre les techniques de codage dans Visual Basic 6.0 et dans Visual Basic 2008.

Modification de l'apparence du curseur

Le code suivant illustre la façon dont le curseur change d'apparence lorsqu'il passe sur un contrôle de zone de texte au moment de l'exécution, en remplaçant la flèche par défaut par un pointeur en sablier. L'exemple Visual Basic 6.0 définit la propriété MousePointer ; dans l'exemple Visual Basic 2008, la propriété Cursor est l'équivalent de MousePointer. L'exemple de Visual Basic 2008 utilise également le nouvel événement MouseEnter.

' 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

Affichage d'un curseur personnalisé

Le code suivant illustre l'affichage d'un curseur en forme de main lorsque le curseur passe sur un contrôle de zone de texte. L'exemple Visual Basic 6.0 définit à la fois les propriétés MouseIcon et MousePointer ; l'exemple Visual Basic 2005 affecte à la propriété Cursor une nouvelle instance d'un objet Cursor.

' 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

Équivalences de la constante MousePointer

Le tableau suivant répertorie les constantes Visual Basic 6.0 et leurs équivalents dans Visual Basic 2008.

Visual Basic 6.0	Équivalent Visual Basic 2008
0 – vbDefault	Default
1 – vbArrow	Arrow
2 – vbCrossHair	Cross
3 – vbIBeam	IBeam
4 – vbIconPointer	Obsolète — remplacé par 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	Aucun équivalent — pour plus d'informations, consultez Impossible de définir un pointeur de souris personnalisé

Mettre à niveau des remarques

Lorsqu'une application Visual Basic 6.0 est mise à niveau vers Visual Basic 2008, la propriété MousePointer est remplacée par la propriété Cursor. Le code qui utilise des constantes MousePointer est modifié pour utiliser des énumérations CursorsVisual Basic 2008.

Si l'application Visual Basic 6.0 utilise un MousePointer personnalisé, le paramètre de design ou le code MousePointer personnalisé ne sera pas mis à niveau et un avertissement sera émis.

De plus, si l'application Visual Basic 6.0 affecte au MousePointer la constante vbIconPointer au moment du design ou de l'exécution, il sera remplacé par le curseur par défaut lors de la mise à niveau.

Voir aussi

Référence

Impossible de définir un pointeur de souris personnalisé

Autres ressources

Contrôles Windows Forms pour les utilisateurs de Visual Basic 6.0

Modifications des propriétés, méthodes et événements des contrôles pour les utilisateurs de Visual Basic 6.0

Partager via