Placer un Timer sur la form

Résolu

didieraucun Messages postés 29 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 2 janvier 2008 - 2 janv. 2008 à 20:52
didieraucun Messages postés 29 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 2 janvier 2008 - 2 janv. 2008 à 22:06

J'ai trouvé ce code sur internet pour renvoyer la position de la souris :

' Exemple proposé par int19h (Int19h@caramail.com)

' Placer un Timer sur la form, puis le code suivant :

Private Declare Function GetCursorPos Lib "user32" _

         (lpPoint As PointAPI) As Long

Private Type PointAPI

    x As Long

    y As Long

End Type

Private Sub Form_Load()

Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Dim Tampon As PointAPI

GetCursorPos Tampon

Form1.Caption = "Mouse Position : " & Tampon.x & "-" & Tampon.y
End Sub

Comment fait on pour "Placer un Timer sur la form"

A voir également:

2 réponses

Réponse 1 / 2

didieraucun Messages postés 29 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 2 janvier 2008
2 janv. 2008 à 22:06

J'ai trouvé mon bonheur avec ce petit soft Pixie 3.1

Réponse 2 / 2

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
2 janv. 2008 à 20:55

Pas de contrôle Timer en VBA ...

Il va alors te falloir utiliser l'Api de Windows pour en créer un toi même (et le gérer)....

Discussions similaires

Gestion d'un timer

Faire une pause dans un timer

comment lancer un timer et arrêter ce dernier a partir d'une méthode sans utlise

Timer scrabble

Utiliser un timer dans une form

Votre réponse

Discussions similaires