MsAccess-ProgressBarrre2

v 1.0 Petite démo de barre de progression.

Idée inspiré de nala

Formulaire F_Barre2Demo

Utilisation :

• Ouvrir le formulaire F_Barre2Demo

Déclaration de la classe

    Dim Prb As C_ProgB2
    Set Prb = New C_ProgB2

• INFO vous pouvez déclarer le nom des labels (AVANT l'initialisation) avec :

    Prb.NomLabelGauche = Me.lblxx.Name
    Prb.NomLabelDroite = Me.lblxx.Name
    Prb.NomLabelInfo = Me.lblxx.Name
    Prb.NomLabelRota = Me.lblxx.Name

• Sinon la classe utiliseras les noms par defaut avec les Constantes : LBL_GAUCHE, LBL_DROITE, LBL_INFO, LBL_ROTA.

• Paramètres optionnels de la barre (a faire AVANT l'initialisation (InitLabels))

    Prb.LabelWidth = Nz(Me.txtTaille)   '// Optionnel(Defaut voir Const LBL_WIDTH)  a definir AVANT l'initialisation.
    Prb.LabelHeight = Nz(Me.txtHauteur) '// Optionnel(Deafut voit Const LBL_HAUT)   a definir AVANT l'initialisation.

• Initialisation de la classe :

    Prb.InitLabels Me, Me.txtBoucle

• Actualisation :

    Prb.UpdateLabels
    DoEvents

• Reset des labels à la fin de votre code:

    Prb.CleanLabels

Important :

• Pour un positionnement correct des labels, suivre les indications ci-dessous

  • L'emplacement du label de texte (lbl_M2Texte) définira la positions des autres labels (a partir de sont coin bas/droite).

  • le lable1 (lbl_M2Texte) doit avoir le point d'encrage horizontal(HorizontalAnchor) défini sur 'GAUCHE'

  • le lable1 (lbl_BarreDeb) doit avoir le point d'encrage horizontal(HorizontalAnchor) défini sur 'GAUCHE'

  • le lable1 (lbl_BarreFin) doit avoir le point d'encrage horizontal(HorizontalAnchor) défini sur 'GAUCHE'

  • Les 3 labels doivent avoir leurs point d'encrage vertical(VerticalAnchor) défini sur 'HAUT'

• Dans le cas contraire les labels ne se potionnerons pas correctement.

Résumé

Créer le	2022/09/04
Auteur	@meuslau
Catégorie	MsAccess
Type	Utilitaire
Langage	VBA

Code exporté avec l'outil de : @joyfullservice - msaccess-vcs-integration

• Créez une base vide et utilisez msaccess-vcs-integration pour réimporter le code.