Arrêt de timers VBA

Bonjour,

J'utilise les timers VBA d'Arkham dans mes applications. Ca fonctionne :king:

Je cherche juste à faire une amélioration si c'est possible, à savoir arrêter tous les timers qui serait activés.

Ici, les API

Code:

---

1 2 3

'Déclaration d'API pour timer Private Declare Function APISetTimer Lib "user32.dll" Alias "SetTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerProc As Long) As Long Private Declare Function APIKillTimer Lib "user32.dll" Alias "KillTimer" (ByVal hwnd As Long, ByVal uIDEvent As Long) As Long

---

Ici, le code pour les arrêter

Code:

---

1 2 3 4 5 6

Private Sub ArretTimers(uIDEvent As Long)     APIKillTimer Application.hWndAccessApp, uIDEvent   End sub

---

Ou uIDEvent est le numéro du timer.

Je voudrais donc une procédure supplémentaire (je veux garder la possibilité de les arrêter indépendamment) ou je n'ai pas besoin de passer le numéro du timer en paramètre.

J'ai essayé de modifier la fonction comme suit :

Code:

---

Private Declare Function APIKillTimer Lib "user32.dll" Alias "KillTimer" (ByVal hwnd As Long)

---

Je n'ai pas d'erreur, mais les timers continuent de fonctionner.

Merci pour votre aide.

Domi2

Salut Domi2,

Pour moi c'est impossible !
Un API windows utilise des paramètres que tu ne peux pas modifier.

Tu seras toujours obligé de passer quelque part le numéro du timer :?

A+

Bonjour,

Citation:

---

Pour moi c'est impossible !

---

Effectivement, j'ai fait pas mal de recherche sur Google, tous les exemples que j'ai vu ont un identifiant de timer...

J'espérais quand même...

Je laisse encore la discussion ouverte un moment...

Merci de ton aide.

Domi2

Bonjour,

Peut-être qu'en stockant les uidtimer dans un tableau global tu aurais l'inventaire exact ?

Cordialement,

Bonjour Loufab,

Citation:

---

Peut-être qu'en stockant les uidtimer dans un tableau global tu aurais l'inventaire exact ?

---

C'est effectivement une idée, merci !

J'utilise au maximum 6 timers et ils ne sont pas toujours actifs à la fermeture de l'application (j'ai un bouton qui me permet de revenir directement à Access, ce qui pose problème).

J'aurais donc bien voulu faire une fonction générique, plutôt que devoir appeler 6 fonctions. D'un autre côté, je n'ai pas d'erreur si j'arrête un timer inactif. Je vais encore réfléchir à la chose.

En tout les cas, merci à tous les deux.

Domi2