Curseur sablier help !!!Résolu

Question

Bonjours,

  Je voudrait que lorsque que mon application tourne (ce qui dure assez longtemps), mon curseur se mette sous forme d'un sablier.

Car pour le moment g mit enabled=false mais se n'est pas suffisant car en cas de clic sur la fenetre il me demande un basculement.

Merci à vous, et, souhaiter moi bonne chance.

cs_rene38 · Accepted Answer

Bonjour

essaie :
Screen.MousePointer = vbHourGlass (=> sablier)
Screen.MousePointer = vbNormal      (=> curseur normal)

crenaud76 · Answer

Me.MousePointer = vbHourGlass   'Passe la souris en sablier
' ...
' Ici, tu places ton code qui dure longtemps ...
' ...
Me.MousePointer = vbNormal    ' Revient au curseur normal


Christophe R.

qualimetrie · Answer

Pourrait tu m'aider a comprendre a quoi sert vraiemnt le ME car je n'ai jamais compris.
Se n'est pas une variable normal ?

Merci à vous, et, souhaiter moi bonne chance.

crenaud76 · Answer

Me est un mot réservé du langage VB qui représentante la fenêtre courante. 
N'importe ou dans le code d'une form, sur n'importe quelle form, "Me" vaut la form en cours. 
C'est super pratique comme raccourci.

Christophe R.

qualimetrie · Answer

Ok merci, mais sinon c bizar pour le curseur de souris sa ne fonctionne pas, aucun message d'erreur mais aucun changement  de curseur.
Mon est dans un module alors je n'est pas mit Me:



    Principal.MousePointer = vbHourglass
    Principal.Enabled = False

    'Mon code

    Principal.MousePointer = vbNormal 
    Principal.Enabled = True



Merci à vous, et, souhaiter moi bonne chance.

crenaud76 · Answer

Tu peux aussi essayer de rajouter 1 "Doevents" juste après le changement de "MousePointer" en "vbHourGlass".
si ton PC est trop occupé par le code qui suis, Windobe n'a peut-être pas assez de ressource pour afficher le chgt de curseur.
Christophe R.

qualimetrie · Answer

Je vous remerci, sa marche bien maintenant.

Merci à vous, et, souhaiter moi bonne chance.