ca se fait aussi
j ai le code quelque part, j ai bossé sur un truc similaire l année derniere en stage
je te retrouve ca.
edit : voila
ds un formulaire, un label nommé TextWait et un objet OLE nommé ProgressBar, Application OLE ProgCtrl, classe d objet COMCTL.ProgCtrl.1
code du formulaire:
Code :
- Private Sub Form_Load()
- On Error Resume Next
- ' pour le texte a mettre
- Me.TextWait.Caption = Me.OpenArgs
- End Sub
|
ds un module nommé modProgressBar:
Code :
- Sub create_ProgressBar(Msg As String, Max As Integer)
- On Error Resume Next
- If Max = 0 Then
- Max = 10
- End If
- DoCmd.OpenForm "frm_ProgressBar",,,,, acDialog, Msg
- With Forms![frm_ProgressBar]
- .Visible = True
- .ProgressBar.Max = Max
- .ProgressBar.Value = 0
- .Repaint
- End With
- End Sub
- --------------------------------------------------------
- Sub Progress_ProgressBar(step As Integer)
- On Error Resume Next
- If Forms![frm_ProgressBAr].ProgressBar.Value + step > Forms![frm_ProgressBar].ProgressBar.Max Then
- step = Forms![frm_ProgressBar].ProgressBar.Max - Forms![frm_ProgressBar].ProgressBar.Value
- End If
- Forms![frm_ProgressBar].ProgressBar.Value = Forms![frm_ProgressBar].ProgressBar.Value + step
- If Forms![frm_ProgressBar].ProgressBar.Value = Forms![frm_ProgressBar].ProgressBar.Max Then
- DoCmd.Close acForm, "frm_ProgressBar"
- End If
- End Sub
|
Tu y fais appel avec :
modProgressBar.create_ProgressBar _texte_a_entrer_, _max_de_la_barre_
et t incrementes avec :
modProgressBar.Progress_ProgressBar _step_
arrivé au max le formulaire se ferme tout seul, a toi d ajuster les step pour que ce soit nickel
Message édité par _deskira_ le 05-04-2003 à 23:06:08