Créer une routine en arrière plans ?Résolu

Question

Bonjour, j'ai des users forms avec pleins de textes box pour divers calculs.
lorsque je change le contenue de l'une d'elle les autres sont mise à jour. Tout ça assez complexe et relier à une base accès. Le soucis c'est que les calculs mettent quelque 10é de secondes et que donc la saisie d'un chiffre assez long est assez peut agréable, il faut attendre que le calcul soit fini pour faire la saisie d'une autre case.
N'est il pas possible de faire ce calcul en transparence, le résultat n'étant pas nécessaire pour le reste de la saisie? Merci.

cs_DARKSIDIOUS · Accepted Answer

Non puisque le timer est asynchrone, &#224; moins que tu ne lui fasse ex&#233;cuter une boucle tr&#232;s longue.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

utilise un timer par exemple pour lancer ton calcul &#224; intervale r&#233;gulier si le texte &#224; &#233;t&#233; modifi&#233;.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

bambouzorus · Answer

Faut il utiliser une référence particulière ?
Petite précision je suis sous VBA, le timer ne va-t-il pas bloquer les saisies en cours ?

florantanplan · Answer

Moi je dis: Met un bouton pour lancer le calcul (simplicit&#233;, efficacit&#233;, r&#233;sultat...)

bambouzorus · Answer

Hello !
Merci pour votre aide qui ma bien aiguillé, j'ai donc utilisé cette routine qui ne fonctionne pas mal si ce n'est qu'il ne veut pas s'arrété par fois ..
Mais je devrais trouver l'astuce ...
a+


Public Declare Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long
Public TimerSeconds As Single

Sub StartTimer()
    TimerSeconds = 1 ' how often to "pop" the timer.
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub

Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
    ByVal nIDEvent As Long, ByVal dwTimer As Long)
    '
    ' The procedure is called by Windows. Put your
    ' timer-related code here.
    '
End Sub

Créer une routine en arrière plans ?

5 réponses

Discussions similaires