-
- '==================================================================================
- 'PROCEDURE D'ALIGNEMENT POUR UNE IMAGE EN FORME DE PROGRESS BAR =
- '==================================================================================
- Public Sub PROCEDURE_MAJPROGRESSBAR(PIC_PROGRESSBAR As PictureBox, PIC_LBL_POSITION As Label, ACT_POSITION As Double, MAX_POSITION As Double, Optional PIC_COULEUR As String = &HC0C0&)
- PIC_PROGRESSBAR.Cls
- PIC_LBL_POSITION.Caption = ACT_POSITION & "/" & MAX_POSITION
- PIC_PROGRESSBAR.ForeColor = PIC_COULEUR
- PIC_PROGRESSBAR.ScaleWidth = MAX_POSITION
- PIC_PROGRESSBAR.Line (-10, -10)-(ACT_POSITION, PIC_PROGRESSBAR.Height + 75), PIC_PROGRESSBAR.ForeColor, BF
- PIC_PROGRESSBAR.Refresh
-
- End Sub
-
- '==================================================================================
- 'CONTROLE LST_BOX =
- '==================================================================================
- Private Sub LST_PROJECT_Click()
- PROCEDURE_MAJPROGRESSBAR PIC_PROGRESS, LBL_PICPRGSPOSITION(0), LST_PROJECT.ListIndex + 1, LST_PROJECT.ListCount, &H4080&
-
- End Sub
-
- '==================================================================================
- 'DECOMPOSITION =
- '==================================================================================
- 'PROCEDURE_MAJPROGRESSBAR : NOM D'APPEL POUR LA PROCEDURE
- 'PIC_PROGRESS : NOM DU CONTROLE PICTURE BOX
- 'LBL_PICPRGSPOSITION(0) : NOM DU CONTROLE LABEL BOX POUR AFFICHER LE NUMERO ACTUEL
- 'LST_PROJECT.ListIndex + 1 : ENVOIE LA VALEUR DE LA POSITION DE LA LISTE BOX
- 'LST_PROJECT.ListCount : ENVOIE LA VALEUR MAX DE LA LISTE BOX
- '&H4080& : CODE COULEUR DE LA BARRE DE PROGRESSION
'==================================================================================
'PROCEDURE D'ALIGNEMENT POUR UNE IMAGE EN FORME DE PROGRESS BAR =
'==================================================================================
Public Sub PROCEDURE_MAJPROGRESSBAR(PIC_PROGRESSBAR As PictureBox, PIC_LBL_POSITION As Label, ACT_POSITION As Double, MAX_POSITION As Double, Optional PIC_COULEUR As String = &HC0C0&)
PIC_PROGRESSBAR.Cls
PIC_LBL_POSITION.Caption = ACT_POSITION & "/" & MAX_POSITION
PIC_PROGRESSBAR.ForeColor = PIC_COULEUR
PIC_PROGRESSBAR.ScaleWidth = MAX_POSITION
PIC_PROGRESSBAR.Line (-10, -10)-(ACT_POSITION, PIC_PROGRESSBAR.Height + 75), PIC_PROGRESSBAR.ForeColor, BF
PIC_PROGRESSBAR.Refresh
End Sub
'==================================================================================
'CONTROLE LST_BOX =
'==================================================================================
Private Sub LST_PROJECT_Click()
PROCEDURE_MAJPROGRESSBAR PIC_PROGRESS, LBL_PICPRGSPOSITION(0), LST_PROJECT.ListIndex + 1, LST_PROJECT.ListCount, &H4080&
End Sub
'==================================================================================
'DECOMPOSITION =
'==================================================================================
'PROCEDURE_MAJPROGRESSBAR : NOM D'APPEL POUR LA PROCEDURE
'PIC_PROGRESS : NOM DU CONTROLE PICTURE BOX
'LBL_PICPRGSPOSITION(0) : NOM DU CONTROLE LABEL BOX POUR AFFICHER LE NUMERO ACTUEL
'LST_PROJECT.ListIndex + 1 : ENVOIE LA VALEUR DE LA POSITION DE LA LISTE BOX
'LST_PROJECT.ListCount : ENVOIE LA VALEUR MAX DE LA LISTE BOX
'&H4080& : CODE COULEUR DE LA BARRE DE PROGRESSION