~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Procédure : PicProgress Private Sub PicProgress(lgPourcent As Long, lgCouleur As Long) ' Attention, pas de vérification du pourcentage (on suppose qu'il ' est toujours entre 1 et 100). lgCouleur est la couleur de la ' barre de progression. Dim lgTmp As Long ' On rend la fonte transparente pour écrire le pourcentage de progression picTmp.FontTransparent = True lgTmp = (picTmp.ScaleWidth / 100) * lgPourcent ' Dessine la progression picTmp.Line (0, 0)-(lgTmp, picTmp.ScaleHeight), lgCouleur, BF ' On remplit le reste de la Picture pour effacer le pourcentage picTmp.Line (lgTmp + 10, 0)-(picTmp.ScaleWidth, picTmp.ScaleHeight), picTmp.BackColor, BF ' On calcule la largeur du texte pour le centrer dans le contrôle lgTmp = picTmp.TextWidth(lgPourcent & "%") picTmp.CurrentX = (picTmp.ScaleWidth - lgTmp) / 2 ' Pareil avec la hauteur lgTmp = picTmp.TextHeight(lgPourcent & "%") picTmp.CurrentY = (picTmp.ScaleHeight - lgTmp) / 2 ' On affiche enfin le pourcentage picTmp.Print lgPourcent & "%" End Sub |