afficher message pendant calcul

Question

Bonjour.
J ai une fonction qui met bcp de temps a calculer
et je voudrais avertir l utilisateur que mon prog
n a pas planté...Comment puisje faire pour afficher
ma messagebox pendant mon calcul et la "killer" dès
la fin de celui-ci
Merci

Rurouni

oliver68 · Answer

et si au lieu d 'une msgbox tu affichais un tout petit form ?

Rurouni · Answer

Parce qu une forme n a pas le temps de s afficher que mon calcul se lance juste apres.Comme un msgbox est plus prioritaire, je suis sur qu il s affichera.

Rurouni

oliver68 · Answer

et avec un DoEvents entre les 2 ?

schouly · Answer

Essaie ça

Sub TonCalcul()
form2.show
form2.refresh

Calcul

unload form2
end sub

ou alors se renseigner sur les propriété modale des msgbox ... mais je pense pas que l'affichage non modale d'une msgbox est possible

Shadow · Answer

==========================================================
Salut!

Essaies de rajouter un timer avec un label ou une progressBar (ou ce que tu veux)
Initialise le timer avec un intervalle de 100
    
Private Sub Timer1_Timer()
    DoEvents
    
    If Label1.Caption = "....." Then
        Label1.Caption = ".."
    Else
        Label1.Caption = "....."
    End If
End Sub

A+
Shw

==========================================================

tH3 GuItArIsTe 666 · Answer

komment tu fe ton timer ?? tu pe mettre l'exemple pour par exemple 14h24 ??

MERCI DE ME REPONDRE

+++SLT+++

Afficher message pendant calcul

6 réponses

Discussions similaires