Affichage progressBar

**Australia** · 20/04/2006, 10h33

Bonjour tout le monde,

j'ai une fonction un peu lourde et longue donc je fais apparaître une progressbar afin que l'utilisateur soit au courant de l'avancment de la tache.

Avant de démarrer ma fonction, j'ouvre donc le formulaire qui contient la progressbar puis la fonction démarre.
Le problème c'est que le formulaire qui contient la progressbar ne s'affiche pas "correctement" ou "clairement", en fait je sais pas comment dire,
il s'affiche "en transparence" : on voit la progress bar défier mais le formulaire est en transparence et le champs avec le pourcentage associé ne se met pas à jour ...
Bref, il arrive pas bien à coordonner ma fonction et un affichage "normal"

J'espère être clair, j'en doute ...

**Nohant** · 20/04/2006, 10h41

Salut,

une copie d'écran ?
le code que tu utilises pour lancer le traitement et incrémenter la progressbar ?
probablement un problème de rafraîchissement de l'écran mais difficile d'en dire plus

**Australia** · 20/04/2006, 10h52

En fait quand l'utilisateur clique sur le bouton :

Code :

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

1
2
3
4
 
DoCmd.OpenForm "ProgressBar"
  ' parcours de l'arbo = ma fonction lourde
Call parcours_ComponentDev_Rec(TABLEAU_ARTICLE_EN_COURS(0))

après cette fonction parcours l'arbo et pour chaque noeud de l'arbo je fais avancer ma progressbar comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub avance_bar_progressBar()
    Dim partie_entiere_de_NB_AC_PROGRESS_BAR As Integer
 
    NB_AC_PROGRESS_BAR = NB_AC_PROGRESS_BAR + 100 / variablesPubliques.nb_article_dans_arbo_affaire
    Form_ProgressBar.Refresh
    If NB_AC_PROGRESS_BAR < 100 Then
        partie_entiere_de_NB_AC_PROGRESS_BAR = NB_AC_PROGRESS_BAR
        Form_ProgressBar.Pourcentage = partie_entiere_de_NB_AC_PROGRESS_BAR & " %"
        Form_ProgressBar.Bar = NB_AC_PROGRESS_BAR
 
    End If
End Sub

avec "Form_ProgessBar" mon formulaire contenant la ProgressBar "Bar" et le champs indépendant "Pourcentage" pour afficher le pourcentage de l'avancement.

Je pense aussi que c'est un problème de rafraîchissement mais je rame pas mal dans ce domaine ...