begin process at 2012 02 16 07:30:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Périphériques

 > TROUVER LA POSITION DE LA SOURIS

TROUVER LA POSITION DE LA SOURIS


 Information sur la source

Note :
7,11 / 10 - par 9 personnes
7,11 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Périphériques Classé sous :recuperer, coordonnees, souris, getcursorpos Niveau :Initié Date de création :15/05/1999 Vu :13 761

Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note


 Description

Comment connaître les coordonnées de la souris ?

Faites un Formulaire avec un TextBox (Text1) et une Horloge (Timer1)
Mettez ce Code dans un Module :

Source

  • Type POINTAPI
  • x As Long
  • y As Long
  • End Type
  • Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  • ' Ensuite dans le Code de votre Formulaire mettez ceci :
  • Private Sub Timer1_Timer()
  • Dim pos As POINTAPI
  • Dim ret As Long
  • ret = GetCursorPos(pos)
  • Text1.Text = Str(pos.x) + " " + Str(pos.y)
  • End Sub
Type POINTAPI
        x As Long
        y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

' Ensuite dans le Code de votre Formulaire mettez ceci :

Private Sub Timer1_Timer()
    Dim pos As POINTAPI
    Dim ret As Long

    ret = GetCursorPos(pos)
    Text1.Text = Str(pos.x) + " " + Str(pos.y)
End Sub



 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) LIRE ET CHANGER LA LUMINOSITÉ DES ÉCRANS LCD (DE PORTABLE) C... par ShareVB
Source avec Zip Source avec une capture VISUAL BASIC ET MICROPROCESSEUR MBED par ccllee
Source avec Zip Source avec une capture Source .NET (Dotnet) VARIATEUR SECTEUR 11 VOIES SUR PORT SERIE OU USB par mays
Source avec Zip Source avec une capture PILOTER LES PORTS PARALLELES. par djebbipgm
Source avec Zip PILOTER LES PORT COMM DE PC par djebbipgm

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture DÉMON D'ÉCOUTE par 8Tnerolf8
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami
Source avec Zip [VBA] SCROLLER UNE LISTBOX AVEC LA MOLETTE DE LA SOURIS PAR ... par Philippe734
Source avec Zip UTILISATION DE LA MOLETTE DE LA SOURIS AVEC LE CONTRÔLE DBGR... par jacques13
Source avec Zip Source avec une capture Source .NET (Dotnet) INVERSEUR DE SOURIS (CLIQUE ET/OU MOUVEMENT) par darkteam

Commentaires et avis

Commentaire de magicyoda le 23/12/2001 10:23:17

tres bon !

Commentaire de Ashtheone le 09/05/2004 13:48:10

Bonne sourec simple et efficace...

Commentaire de tykkenneo le 15/04/2008 18:53:07

bonjour comment on fait en vb 2005?...

Commentaire de testeur115 le 09/06/2008 22:57:45

oui pareil en vb express 2008, je n'arrive pas a faire fonctionner cela.
Autant le setcursorpos, il fonctionne que le getcursorpos, j'y arrive pas...

Commentaire de testeur115 le 09/06/2008 23:07:01

arff bah je viens de trouvé, :) en faite il n'y a pas besoin de se faire chier...
juste mettre :
pos=cursor.position :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Recuperer la position de la souris ds une form [ par Tetris42 ] Salut,Je cherche a recuperer la position de ma souris sur ma form quand je clike sur la form. Comment faire ? Merci Position souris [ par ketchouppy ] Bonjour, Pour recuperer la position de la souris, j'utilise la fonction GetCursorPos . La methode marche quand j'utilise le code dans Excel. MAIS : j' Visio - récuperer les coordonnees des zones de texte [ par wil3164 ] Bonjour,Nous utilisons visio pour dessiner (juste positionner des champs de texte sur une interface) et je voudrais pouvoir lister tous les elements d Recuperer la sensibilite de la souris [ par loskiller62 ] Quelqu'un sait il comment recuperer la sensibilite de la souris? (le truc qu'ils nomment vitesse de la souris dans windows) Recuperer l'icone par defaut de la souris [ par rivierem ] Voila j'aimerais recuperer l'icone par defaut de l'utilisateur pour pouvoir la changer et ensuite la remettreJ'ai essaye GetCursor mais il recupere le Molette de souris [ par Florian29 ] Salut !Je voudrais savoir s'il y a un moyen de faire fonctionner la molette de la souris lorsque l'on code dans le fenêtre de création? J'ai 2 souris Désactiver un périphérique [ par Jonef ] J'aimerai savoir comment désactiver un périphérique tel que la souris ou le clavier.Je sais déjà désactiver une souris et un clavier mais le problème Recuperer Nom DSN [ par tatofr ] Comment on fait pour recuperer les noms des DSN qui sont crees ds mon PC?en fait, je voudrais reemplir une combo avec les noms des DSN existents sur m recuperer un sendmessage [ par cirrus ] j'utilise l' API sendMessage pour communiquez avec pas mal d'application mais je n'est trouvé aucune information sur la manière ou l' API à utiliser p Session Windows NT [ par rivierem ] SalutJe voudrais recuperer tous les sessions ouvertes sur un pcEn fait ce pc sert de serveur d'impression mais vu qu'il y a seulement dix utilisateurs


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,741 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales