Je souhaite que mon message apparaissent plus tardRésolu

Question

Bonjour, comme l'indique mon sujet je souhaiterais que le message souligner dans mon code apparaissent 2 seconde apres que j'ai valider &#224; la question en gras dans mon code

voici mon code

Private Sub Effacer_Click()
Open "c:\PageBlanche.txt" For Random As #1
rep1 = InputBox("indiquer le nom de la personne")
I = 0
While rep1 <> PageB.nom
I = I + 1
Get #1, I, PageB
Wend
With PageB
nom = .nom
prenom = .prenom
adresse = .adresse
tel = .tel
End With
Close #1
    rep = InputBox("effacer enregistrement, oui/non ?")
    If rep = "oui" Then
        With PageB
        .nom = " "
        .prenom = " "
        .adresse = " "
        .tel = " "
        End With
        Put #1, I, PageB
    End If
Close #1
End Sub

si jamais vous voulez plus de pr&#233;cision h&#233;siter pas a demander.

D'avance merci

Gobillot · Accepted Answer

Les donn&#233;es n'ont pas le temps de s'afficher &#224; cause du Sleep.
un DoEvents avant le Sleep peut r&#233;gler le probl&#232;me.
mais le Sleep a tendance &#224; utiliser toutes les ressources et bloquer la machine.
une meilleure m&#233;thode:

Dim Tps As Long
Tps = Timer + 2
While Timer < Tps
      DoEvents
      Wend

des fen&#234;tres restent ouvertes en fin de programme.
&#233;viter le End et fermer toutes les fen&#234;tres actives.
mieux: obliger l'utilisateur &#224; revenir &#224; la fen&#234;tre d'accueil pour n'avoir qu'un seul bouton quitter.

Private Sub Quitter_Click()
    Unload frm_Lecture
    . . . . . . . . . . . . . . . 
    Unload Me
End Sub

Daniel

Gobillot · Answer

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

pour 2 secondes tu peux faire Sleep 2000

Daniel

cs_ekinoxe · Answer

bon alors j'ai essayer avec cette solution mais je doit mal m'y prende car je n'arrive pas a la faire marcher, j'ai mis la ligne private ds la forme sa marche pas , dans un module sa marche pas non plus, pourrait tu me montrer ou la mettre . moi je vais essayer de poster un lien pour telecharger mon projet entier.
merci

cs_ekinoxe · Answer

voila pour telecharegr le projet c'est ici

http://s38.yousendit.com/d.aspx?id=3RL0OITS3QWYP09W04SMEADWBF

Gobillot · Answer

tu pouvais le mettre soit dans frm_Lecture en Private, soit dans annuaire.bas en Public. si tu veux un code plus visible, essaye de l'indenter et surtout n'oublie pas de mettre l'Option Explicit. frm_Lecture Option Explicit Private Type personne nom As String prenom As String adresse As String tel As String End Type Public PageB As personne Public N, I, j, k As Integer Public reponse As String Public rep As String Public Choix As String Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) frm_Lecture Private Sub Effacer_Click() Open "c:\PageBlanche.txt" For Random As #1 rep1 = InputBox("indiquer le nom de la personne") I = 0 While rep1 <> PageB.nom I = I + 1 Get #1, I, PageB Wend With PageB nom = .nom prenom = .prenom adresse = .adresse tel = .tel End With ~~' Close #1~~ Sleep 2000 rep = InputBox("effacer enregistrement, oui/non ?") If rep = "oui" Then With PageB .nom = " " .prenom = " " .adresse = " " .tel = " " End With Put #1, I, PageB End If Close #1 End Sub Daniel

cs_ekinoxe · Answer

Merci daniel la pause marche sauf que maintenant en fait je rentre le nom de la personne que je veut effacer et ensuite au bout de 2 sec les champ se rempliset et le message apparait en meme temps, moi je voudrait que les champs se remplisse aussitot mais que le message apparaissent 2 sec plus tard

Je souhaite que mon message apparaissent plus tard

6 réponses

Discussions similaires