Discussion :

[Godzestla]

Bonjour,

j'ai une application complexe pilotée par un Userform.

Le userform comprend (entre autres) 1 bouton start et 1 bouton stop.

En mode start, le code
* scanne les fichiers d'un répertoire,
* les traite,
* attend 15 secondes
* recommence son scan.

jusqu'à ce que le bouton stop soit enfoncé.

'Code Du Bouton start

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Start_Polling_Click()
'....
Do While BStop = False
 
    Found_Entry = ""
    Found_Entry = Dir(Search_file, vbNormal)
 
    Do While Found_Entry <> "" And BStop = False   ' Start the loop.
   'Traitement
        Found_Entry = Dir
    Loop
 
    If Not BStop Then
       Me.Status_text = "Waiting 15 sec before Polling"
       Application.Wait (Now + TimeValue("0:00:15"))
       Me.Repaint
    End If
 
 Loop
'....
End Sub

'Code du bouton Stop

Code :

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

1
2
3
4
5
Private Sub Stop_Polling_Click()
'...
BStop = True
'...
End Sub

J'ai 2 soucis

1) La boucle d'attente via

Code :

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

       Application.Wait (Now + TimeValue("0:00:15"))

consomme plus de 90% des ressources de mon pc.
Je cherche une solution moins gourmande.

2) Certainement une autre conséquence du soucis 1, il faut cliquer de nombreuses fois sur le bouton <Stop> pour arrêter le processus.

Est-il possible de faire autrement où dois-je d'urgence réécrire mon code dans un langage plus adapté comme le C++ ?

[fring]

Salut Godz

Je pense que .OnTime est moins gourmand que .Wait

Teste ceci :

Code :

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

1
2
3
4
If Not BStop Then
    Me.Status_text = "Waiting 15 sec before Polling"
    Application.OnTime Now + TimeValue("0:00:15"), "USF_Repaint"
End If

et dans un module

Code :

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

1
2
3
Sub USF_Repaint()
Me.Repaint
End Sub

[Godzestla]

Salut Fring,

merci pour ta réponse.

cela ne donne pas le résultat escompté.

La soumission de USF_Repaint est bien effectuée décallée (démarre 15 secondes plus tard) mais il n'y a aucune attente pour la suite du code principal et j'ai donc un superbe bouclage avec une multitudes d'appels à USF_Repaint..

[fring]

Effectivement, j'ai répondu un peu vite...

Et comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Start_Polling_Click()
'....
 
    Found_Entry = ""
    Found_Entry = Dir(Search_file, vbNormal)
 
    Do While Found_Entry <> "" And BStop = False   ' Start the loop.
   'Traitement
        Found_Entry = Dir
    Loop
 
       Me.Status_text = "Waiting 15 sec before Polling"
       Application.OnTime Now + TimeValue("0:00:15"), "USF_Repaint"
 
'....
End Sub

Code :

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

1
2
3
4
5
6
Sub USF_Repaint()
If BStop = False Then
    Userform.Repaint '<-- adapter le nom de l'userform
    Call Start_Polling_Click
End If
End Sub

[Godzestla]

J'étais en train d'envisager la même chose, mais là encore 2 problèmes :

1) La procédure appelée par .ONTIME doit être dans un module, et mon code principal est dans un USERFORM. Puis-je rappeler Start_Polling_Click() qui se trouve dans le Userform depuis USF_Repaint() qui est dans le Module ? Suffit-il de mettre Start_Polling_Click() en public ?

2) Je dois revoir quelque peu mon code car Start polling lance (ShellexecuteEx) ACRODR32.exe (entre autres) et le ferme quand le bouton stop est enclenché. Pour des raisons de performance, je veux que cela reste

Code :

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

1
2
'3h : Open Adobe with Dummy File
PhWnd = OpenProgramMinimize(Work_folder & "DO_NOT_TOUCH_THIS.PDF", 0)

quand je clique START et quand je clique STOP

Code :

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

    CloseProgram = CBool(TerminateProcess(hWnd, lExitCode))

mais là aussi peut-être je peux utiliser Application.Ontime pour les 2 process.

Qu'en penses-tu ?

[fring]

Puis-je rappeler Start_Polling_Click() qui se trouve dans le Userform depuis USF_Repaint() qui est dans le Module ? Suffit-il de mettre Start_Polling_Click() en public ?

Oui il faut mettre la Sub en Public et l'appeler comme ceci :

Code :

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

CallByName UserForm1, "Start_Polling_Click", VbMethod