Discussion :

[Ricardinio]

Salut Salut

J'ai fait un petit programme qui permet de changer la couleur d'un elément de ma zone répéter lorsque l'on appuis su un bouton:

initialisation de la fenetre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ZoneRépétéeAjouteLigne(ZR_SansNom1)
ZR_SansNom1[1].LIB_id_adresse = 999
 
ZoneRépétéeAjouteLigne(ZR_SansNom1)
ZR_SansNom1[2].LIB_id_adresse = 888
 
ZoneRépétéeAjouteLigne(ZR_SansNom1)
ZR_SansNom1[3].LIB_id_adresse = 777

...


Code: click sur le bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
n = 1
 
TANTQUE n <> 5
 
   ZR_SansNom1[n].LIB_id_adresse..CouleurFond = VertPastel
 
   ZoneRépétéeAffiche(ZR_SansNom1)	
 
 
   ThreadPause(500)
 
   n= n+ 1
FIN

le programme ne s'éxecute pas comme je l'attendais
les élément de ma zone répété se met en VertPastel a la fin de l'execution de la boucle
or je voudrais que l'affichage se met a jour à chaque parcour de la boucle

j'ai essayer d'utiliser les fonctions DemandeMiseAjourIHM et ExécuteMiseAJourIHM avec le traitmement "Demande de mise a jours de l'affichage de FEN ..."
mais j'ai pas réussi

j'ai besoin d'aide s'il vous plait

Merci d'avance

Ricardinio

[Ricardinio]

j'ai changer le code, j'utilise un ExécuteMiseAJourIHM

dans le bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
n= 1
 
TANTQUE n<> 5	
 
	ExécuteMiseAJourIHM(n)
 
	ThreadPause(50)
 
	n= n+ 1
FIN

et dans le traitement de la fenêtre "Demande de mise a jour de la FEN...":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PROCEDURE DemandeMiseAjour(n est un entier)
ZR_SansNom1[n].LIB_id_adresse..CouleurFond = VertPastel
ZoneRépétéeAffiche(ZR_SansNom1)

resultat

ma ZR se met a jour a la fin de la boucle et non a chaque passage

[tbc92]

Plutôt que ThreadPause(), utilise Multitache(-1), ou MultitacheRepeint()

[Ricardinio]

Merci pour ta reponse tbc92, t'es au top , j'ai utilise un multitache et bim !! ça marche