GetCursorPos
Déterminer la place du curseur
Inconnue
1684 lectures
0 commentaire
Cet Api ma récemment servi pour me faire un petit programme qui représentait une seconde barre des taches, je m'en servait pour récupérer la position du curseur et quand elel était assez proche du bord droit de mon écran, ma barre apparaissait, donc comme vous l'avez compris, cet API sert à connaitre la position actuelle du curseur. Commencez par le déclarer avec la déclaration :
Déclaration privée ( Private ) d'une fonction ( Function ) se nommant GetCursorPos ( GetCursorPos ) se trouvant dans la bibliothèque User32.DLL (Lib "user32" ) ayant comme argument lpPoint étant du type POINTAPI ( (lpPoint As POINTAPI) ) et renvoyant un chiffre long ( As Long ). Le type POINTAPI doit ensuite être déclaré, tapez donc :
Pour déclarer ce type. Insérez maintenant un label sur votre feuille, un CommandButton avec la propriété Caption réglée sur Quitter et un Timer avec la propriété Interval sur 1. Double-cliquez sur le bouton Quitter et tapez :
Double-cliquez maintenant sur le Timer pour ouvrir son événement Timer et tapez :
Vous devez d'abord savoir que cest instructions s'exécuteront tout les millièmes de secondes grace à l'interval sur Timer. Avec ces instructions, nous commençons d'abord par déclarer une variable qui sera du type POINTAPI qui pourra donc prendre les propriétés X et Y étant des chiffres long (voir déclaration du type plus haut). ENsuite, nous devons donner une valeur à ces propriétés, donc nous faisons passez cette variable dans l'API GetCursorPos avec l'instruction, GetCursorPos point, ainsi, point.X vaudra les coordonnées en abcisses de la position de la souris et point.Y donnera les coordonnées en ordonnées de la position du curseur. Nous affichons le résultat dans le label avec la troisième ligne.
Ces coordonnées sont renseignées en Pixel, pour les transformer en Twip, il suffit de taper :
Déclaration privée ( Private ) d'une fonction ( Function ) se nommant GetCursorPos ( GetCursorPos ) se trouvant dans la bibliothèque User32.DLL (Lib "user32" ) ayant comme argument lpPoint étant du type POINTAPI ( (lpPoint As POINTAPI) ) et renvoyant un chiffre long ( As Long ). Le type POINTAPI doit ensuite être déclaré, tapez donc :
Pour déclarer ce type. Insérez maintenant un label sur votre feuille, un CommandButton avec la propriété Caption réglée sur Quitter et un Timer avec la propriété Interval sur 1. Double-cliquez sur le bouton Quitter et tapez :
Double-cliquez maintenant sur le Timer pour ouvrir son événement Timer et tapez :
Vous devez d'abord savoir que cest instructions s'exécuteront tout les millièmes de secondes grace à l'interval sur Timer. Avec ces instructions, nous commençons d'abord par déclarer une variable qui sera du type POINTAPI qui pourra donc prendre les propriétés X et Y étant des chiffres long (voir déclaration du type plus haut). ENsuite, nous devons donner une valeur à ces propriétés, donc nous faisons passez cette variable dans l'API GetCursorPos avec l'instruction, GetCursorPos point, ainsi, point.X vaudra les coordonnées en abcisses de la position de la souris et point.Y donnera les coordonnées en ordonnées de la position du curseur. Nous affichons le résultat dans le label avec la troisième ligne.
Ces coordonnées sont renseignées en Pixel, pour les transformer en Twip, il suffit de taper :
0 commentaires
Ajouter un commentaire