VB.Net Modifier l'apparence de la souris à l'ouverture d'une Form

Signaler
Messages postés
532
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
6 octobre 2012
-
Messages postés
45
Date d'inscription
mercredi 5 mars 2008
Statut
Membre
Dernière intervention
23 juin 2008
-
Salut...

Je cherche un moyen pour modifier l'apparence de la souris lorsque je change de form.

Mon programme s'ouvre et si je clique sur un bouton qui fait fermer la Form active et ouvre un autre Form, je suis incapable de faire modifier l'apparence de la souris.

J'ai essayer un code de ce style...

Private
Sub BoutonToolStripMenuItem_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles BoutonToolStripMenuItem.Click
Cursor = Cursors.AppStarting

Me.Hide()
Form2.Show()

End
Sub

et au Load de la Form2 j'ai mis

PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.Cursor = Cursors.Default
End
Sub

et ca ne fonctionne pas :(

Où je doit mettre le code
Cursor = Cursors.AppStarting pour que ca fonctionne ???

P.S. je réussi très bien à modifier l'apparence de la souris lorsque je suis dans une Form mais pas entre deux Form.

Merci de votre aide

2 réponses

Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
Salut,

Il me semble quand cliquant sur la form en question, il y a dans la fenêtre Propriétés, un paramètre se nommant Cursor et permet de choisir le type de curseur qu'on veut voir apparaitre.

++
Messages postés
45
Date d'inscription
mercredi 5 mars 2008
Statut
Membre
Dernière intervention
23 juin 2008

salut je pense que sa devrai t'aider :

quand tu génère le load d'ouverture de ta form tu appelle l'objet Cursor et tu lui donne le paramêtre que tu lui souhaite affecté

ex:

    Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Appel de l'objet Cursor et transformation quand la page se charge en Cursor.Arrow  
    Cursor = Cursors.Arrow

    End Sub

voila :)