barre de progression pour enregistrement :

Question

j'enregistrer des données dans des fichiers txt et à la fin de l'enregistrement il y a un msgbox qui dit que l'enregistrement est terminé mais j'aimerais bien mettre un "buisness" (car je connais pas le nom) qui lorsque l'utilisateur appuie sur entrer pour valiser l'enregistrement, qu'il y ait une simpathique fenêtre qui s'affiche avec une barre de progression et en plus ça serait le top si pendant l'enregistrement que ça écrive en dessous de la barre un truc du genre "enregistrement en cours" ?

voici le code que j'ai fait :
IncrementInv = 0.025

ReDim CoordInv(1 To 100000, 1 To 2) As Double

i = 1 ' origine
CoordInv(1, 1) = XInv
CoordInv(1, 2) = YInv
TetaCorrection = TetaMax - 0.025

While (Teta <= TetaCorrection)
    i = i + 1
    Teta = Teta + IncrementInv 'pas
    X = Rb * (Cos(Teta) + Teta * Sin(Teta))
    Y = Rb * (Sin(Teta) - Teta * Cos(Teta))
    CoordInv(i, 1) = X  ' extremite
    CoordInv(i, 2) = Y
Wend
    CoordInv(i + 1, 1) = Xm ' extremite
    CoordInv(i + 1, 2) = Ym

ReDim CoordReelInv(1 To i + 1, 1 To 2) As Double

For k = 1 To i + 1
    chaine = chaine + Str(CoordInv(k, 1)) + "   " + Str(CoordInv(k, 2)) + Chr(13)
    CoordReelInv(k, 1) = CoordInv(k, 1)
    CoordReelInv(k, 2) = CoordInv(k, 2)
Next k
'MsgBox chaine 'affichage des points calculés inactif
'enregistrement
Open "Involute.txt" For Output As #1
  For k = 1 To i + 1
  Write #1, CoordReelInv(k, 1), CoordReelInv(k, 2), 0
  Next k
Close (1)
CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then
        MsgBox "Enregistrement de l'involute effectué", vbInformation, "Saillie"
    End If

bon voilà et en fait ça peut paraitre inutil que je veuille mettre un barre de progression car l'enregistrement est quasi instantanné mais c'est pour un effet recherché !

merci !

nebut · Answer

Tu dois d'abord créer une nouvelle form (appelons_la "nouv")
Sur cette feuille tu ajoutes le composant ProgressBAR (si il nest pas disponible dans ta barre d'outils , fait ajouter un composant)
Tu déclare dans cette feuille:
ProgressBar1.Max=100
dans l'évenement lié à un clique sur "entrer"
tapes:
nouv.show

de cette façon ta fenetre apparaitra.
il ne te reste plus qu' a faire progresser la valeur de ta barre dans la feuille où le code que tu as mis dans ton message se trouve. Pour cela tu utilises progressbar.value
(ne dépasses pas 100 si tu as mis le max à 100
nebut le miagiste

Barre de progression pour enregistrement :

1 réponse

Discussions similaires