mousemove

Question

J aimerai faire apparaitre une info bulle pendant quelques secondes lorsqu on survole un bouton et que la bulle disparaisse des qu on ne survole plus le bouton.
Je ne suis pas tres cale en prog mais j ai commence par faire ca:

Private sub CommandButton1_MouseMove(......)
with assistant.newballoon
      .Heading="blabla"
      .text="blabla"
      .show
end with 
end sub                    
                    
ca me permet d afficher une bulle mais je n arrive pas a la faire disparaitre je pense que je dois utiliser mousemove dans la form mais je sais pas trop quoi ecrire
Merci

cs_liquide · Answer

salut,
c'est du VB.NET ?

Bonne prog, poele_a_frire@hotmail.com
liquide

Renfield · Answer

T'as pas Evenement MouseOver ou MouseLeave ?

en VB6, on peut utiliser TRackMouseEvent pour generer ces messages...

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

jdetrez · Answer

c du vba en fait

jdetrez · Answer

j ai que les evenements mousemove,mousedown et mouseup

Renfield · Answer

Utiliser un mouse_move sur la form pourrais fonctionner.... 

mais je préconise tout de même l'utilisation de l'API TrackMouseEvents

qq chose comme :

Dim Balloon as Object

Private sub Form_MouseMove(......)
    Balloon.Hide
End Sub

Private sub CommandButton1_MouseMove(......)
Set Balloon = assistant.newballoon
with Balloon
.Heading="blabla"
.text="blabla"
.show
end with 
end sub 


Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

bilaloch · Answer

Bonjour,

Utilise la propriete du bouton tooltiptext. @ +.

Merci :approve)  et @ Plus  ;) 

BIL@Loch
  :)

jdetrez · Answer

ok je vais essayer avec ca merci a tous!

Renfield · Answer

bilaloch, ToolTipText, je suis d'accord, mais il ne semble pas vouloir utiliser ca...

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Mousemove

8 réponses

Discussions similaires