[R] SplashText et pause
Posté : jeu. 13 mars 2014 15:46
Bonjour,
Afin de faire patienter l'utilisateur, un SplashText affiche le pourcentage des lignes lues d'un fichier dans une boucle.
Quand l'objet de la recherche de l'utilisateur est trouvé, une MsgBox attend le choix de l'utilisateur :
si le résultat convient --> sortie de la boucle ;
sinon --> poursuite de la lecture du fichier.
Après cette pause, le SplashText disparaît et ne se réaffiche plus lorsque l'utilisateur opte pour la poursuite de la recherche.
Que faudrait-il faire pour le SplashText soit présent à l'écran jusqu'à ce que l'utilisateur opte pour une sortie de la boucle ou jusqu'à la fin de la lecture du fichier ?
Merci de votre aide.
Afin de faire patienter l'utilisateur, un SplashText affiche le pourcentage des lignes lues d'un fichier dans une boucle.
Quand l'objet de la recherche de l'utilisateur est trouvé, une MsgBox attend le choix de l'utilisateur :
si le résultat convient --> sortie de la boucle ;
sinon --> poursuite de la lecture du fichier.
Après cette pause, le SplashText disparaît et ne se réaffiche plus lorsque l'utilisateur opte pour la poursuite de la recherche.
Que faudrait-il faire pour le SplashText soit présent à l'écran jusqu'à ce que l'utilisateur opte pour une sortie de la boucle ou jusqu'à la fin de la lecture du fichier ?
Code : Tout sélectionner
Local $splash = SplashTextOn ("", "Merci de patienter...", 500, 25, -1, -1, 49)
Local $pourcent
Local $SplashBoucle = 0
Local $CountLigne = _FileCountLines($File)
.......
While (_SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK)
$SplashBoucle = $SplashBoucle + 1
$pourcent = int(($SplashBoucle / $CountLigne) * 100)
ControlSetText("", "Merci de patienter...", $splash, $pourcent & " % des enregistrements lus")
if $aRow[10] = $Recherche Then $MaMsgbox = MsgBox(36,"", $Recherche & " trouvé" & @CRLF & "Acceptez-vous cette proposition ?")
if $MaMsgbox = 6 Then ExitLoop
......
Wend
Splashoff()
Merci de votre aide.