VisualBasic v6.0: Location souris

Bonjour à tous. je suis programmeur amateur qui s'amuse avec visual basic. j'ai une petite question qui vous semblera peut-être simplette mais bon... je voudrais savoir comment faire pour qu'un item de mon interface (label) se place automatiquement a l'endroit ou la souris de l'utilisateur se trouve sur l'écran. Aisni je pourrai place ce code dans une timer et mon label suivra la souris

PS: je ne désire pas savoir comment changer l'image de mon curseur.

Merci d'avance.

Il existe une solution radicale qui serais de passer par une API (Application Programming Interface) qui te donne la position de la souris sur l'ensemble de l'écran, voici comment procéder ::

tu déclare ca dans la partie <Declaration> de ta feuille ::

Private Type POINTAPI
x As Long
y As Long
End Type

Dim Souris As POINTAPI

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

puis dans un Timer tu met cela ::

GetCursorPos Souris
Label1.left = Souris.X + 10
Label1.top = Souris.y + 10

Et voila ton label suis ta souris, il se trouve juste en dessous, cependant il ne dépassera pas les limites de ta feuille bien evidement! :D

Geff

merci beaucoup sa marche !!! :)

Salut,

Oui je sais lol le message de Geff ne date pas d'hier, mais bon je suis tombé sur son code que j'ai trouvé bien interessant!!

Ceci dit, je l'ai testé biensur, mais chez moi , il y a deux petit soucis :
  * au lancement du programme le label ne se trouve pas à coté de la souris
* la souris se déplace beaucoup plus vite que le label

A quoi est-du?

Merci d'avance

Salut fred,En effet le message ne date pas d'hier ;)Mais il vaut mieu poser la question ici , plutot que de créer un nouvaus sujet! donc bonne initiative de ta part :)Pour ce qui est du fait que le label ne se trouve pas au niveau de la position de la souris au déammarage, essaye de mettre ce code :GetCursorPos SourisLabel1.left = Souris.X + 10Label1.top = Souris.y + 10dans la procédure Sub Form_Load()donc en gros tu auras ca :Sub Form_Load()GetCursorPos SourisLabel1.left = Souris.X + 10Label1.top = Souris.y + 10End SubCa devrait régler le problème de la position de départ, pour ce qui est de la lenteur, essaye de mettre la propriété Interval de ton timer à 1, si ca ne marche toujours pas, c'est que ton PC ne suit pas ;)En tout cas merci pour ce petit rappel nostalgique ;)# Geffmain(k){float i,j,r,x,y=-16;while(puts(""),y++=0;x++)|&IH%*#"[k&15]))for(i=k=r=0;j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i# GEFF