VisualBasic v6.0: Location souris

Question

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.

cs_Geff · Answer

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  >:)

Radiohead4ever · Answer

merci beaucoup sa marche !!! :)

fredflo74 · Answer

Salut,

Oui je sais lol le message de Geff ne date pas d'hier, mais bon je suis tomb&#233; sur son code que j'ai trouv&#233; bien interessant!!

Ceci dit, je l'ai test&#233; biensur, mais chez moi , il y a deux petit soucis :
  * au lancement du programme le label ne se trouve pas &#224; cot&#233; de la souris
* la souris se d&#233;place beaucoup plus vite que le label

A quoi est-du?

Merci d'avance

cs_Geff · Answer

Salut fred,

En effet le message ne date pas d'hier ;)

Mais il vaut mieu poser la question ici , plutot que de cr&#233;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&#233;ammarage, essaye de mettre ce code :

GetCursorPos Souris
Label1.left = Souris.X + 10
Label1.top = Souris.y + 10

dans la proc&#233;dure 

Sub Form_Load()

donc en gros tu auras ca :

Sub Form_Load()

GetCursorPos Souris
Label1.left = Souris.X + 10
Label1.top = Souris.y + 10

End Sub

Ca devrait r&#233;gler le probl&#232;me de la position de d&#233;part, pour ce qui est de la lenteur, essaye de mettre la propri&#233;t&#233; Interval de ton timer &#224; 1, si ca ne marche toujours pas, c'est que ton PC ne suit pas ;)

En tout cas merci pour ce petit rappel nostalgique ;)

# Geff

main(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

VisualBasic v6.0: Location souris

4 réponses

Discussions similaires