[R] Image qui bouge pendant le chargement d'un prgm
Posté : jeu. 12 mars 2009 20:08
Bonjour,
J'ai créé une petite interface qui s'ouvre à l'ouverture d'une session tse.
Cette interface comporte quatre boutons. Derrière chaque bouton, il y a un programme.
Je souhaite, que dès que je clic sur un bouton : 1 : mon programme se lance
2 : une image animée (ou des chiffres ou des pointillés) tourne durant le chargement
J'ai eu l'idée de faire une fonction qui fait défiler des chiffres (pour le moment) et qui dès l'ouverture de ma fenêtre, se coupe.
Ma question est : si je lance cette fonction lors du clic sur le bouton, mon programme tourne en boucle tant que ma fenêtre de prgm n'est pas ouverte (ici notepad).
Y a t'il un moyen de lancer cette petite fonction et de lui dire de continuer le programme pdt ce temps là (sachant que la suite du prgm est la connexion de lecteur réseau, lecture de clef de registre et ensuite je lance l'appli)
Merci de votre retour.
Cordialement
Edouard
J'ai créé une petite interface qui s'ouvre à l'ouverture d'une session tse.
Cette interface comporte quatre boutons. Derrière chaque bouton, il y a un programme.
Je souhaite, que dès que je clic sur un bouton : 1 : mon programme se lance
2 : une image animée (ou des chiffres ou des pointillés) tourne durant le chargement
J'ai eu l'idée de faire une fonction qui fait défiler des chiffres (pour le moment) et qui dès l'ouverture de ma fenêtre, se coupe.
Ma question est : si je lance cette fonction lors du clic sur le bouton, mon programme tourne en boucle tant que ma fenêtre de prgm n'est pas ouverte (ici notepad).
Y a t'il un moyen de lancer cette petite fonction et de lui dire de continuer le programme pdt ce temps là (sachant que la suite du prgm est la connexion de lecteur réseau, lecture de clef de registre et ensuite je lance l'appli)
Merci de votre retour.
Code : Tout sélectionner
func _loading()
while not Winactive("Sans titre")
$message = "TYTY"
SplashTextOn("TitleFoo", $message)
$i = 0
$x = 1
For $x = 1 to 5
$i = $i + 1
$message = $message & $x & $i
ControlSetText("TitleFoo", "", "Static1", $message)
sleep(100)
Next
WEnd
EndFunc
Edouard