Discussion :

[gds35]

Mes AMIS du Forum Bonjour , Bonne semaine

J'ai un usf en plein ecran avec un label dont l'intitule est "MODIF RU EFFECTUE" et dont les lettres s'affichent toutes les 0.5 s les unes apres les autres. Je recherche désespérent a ajouter en bas de cet USF une barre de progression qui s'incrémenterait apres chaque affichage d'une lettre.J'ai trouvé sur le forum plusieurs exemples de barre de progression et est tenté de les adapter ss succes. (Le but est surtout pour un design cool)

Auriez vous une simple idée ??? Je joins un fichier ou j'ai copie le code du remplissage du label

Merci . Cordialemnt GDS35

[babaothe]

Salut,

- je n'ai pas ouvert ton fichier.
- rien ne saurait t'empêcher de :
---- définir à 0 la propriété Min de ta barre
---- définir à Len(le_texte_que_tu_affiches) la propriété max de ta barre
---- définir à Len(la_partie_déja_affichée) la propriété Value de ta barre

De cette manière, pour un texte de 20 caractères, elle avancerait de 1/20 de 20 toutes tes 0.5 secondes.

[Qwazerty]

Salut
J'ai fait un truc comme ça pour un collègue.
L'inconvénient c'est qu'il faut que le traitement soit assez conséquent, sinon la boucle s'enchaine trop vite est l'image scintille.
Sur ta UserFOrm tu mets une image, dans la initialise du UserForm tu mets

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Image1.Width = 0
End Sub

Voila ce que donne le code d'utilisation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
Dim TauxAv As Double, Pour100 As Double
 
UserWait.Show False
UserWait.Repaint
 
 
TauxAv = 375 / UBound(Tab_Base, 1)
Pour100 = 0
 
'On boucle sur le code GDO colonne I
For xBase = 2 To UBound(Tab_Base, 1)
    Pour100 = Pour100 + TauxAv
    UserWait.Image1.Width = Round(Pour100)
    DoEvents
    '[...]Traitement
Next
End Sub

Y'a surement mieux comme Progresse Barre, mais ça a l'avantage d'être vite fait , dans mon cas c'était surtout pour éviter que l'utilisateur se demande si la traitement avait planté ou s'il était bien en cours, étant donné que ça dure une bonne minute...

A++
Qwaz

[gds35]

Mes AMIS du forum Bonsoir,

Merci a tous de vous être interresse a mon pb de barre de progression.
j'ai grace a vous trouve une solution peut être pas tres catholique mais qui fonctionne. Je joins le p'tit fichier il pourra peut être servir a d'autres personnes sur le forum.

Cordialemnt GDS35

[Qwazerty]

Salut
Ton code est plutot gourmand en ressource dis moi.
Regarde du coté de Wait, un petit coup de F1 te donnera plus d'info
De plus je vois pas trop l'intérêt
1/d'avoir une barre de progression qui avance sans avoir de traitement derrière?? c juste pour faire jolie? si c'est un exemple, comment vas tu l'intégrer par la suite?
2/d'avoir 9 labels, 1 image contenant le dessin des petits carrés noirs que tu redimensionnais aurait fait l'affaire non?

A++
Qwaz

[gds35]

Salut QWAZERTY , et bon WE a toi ,

Le traitement se fait en avancement des maj car je le lance a partir d'un autre USF par un bouton valid. Par contre je ne vois pas l'utilisation de Wait .... je vais chercher.

Encore Bon WE et cordialement GDS35