Discussion :

[Domi2]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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+

[Domi2]

Bonjour,

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

[loufab]

Bonjour,

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

Cordialement,

[Domi2]

Bonjour Loufab,

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