Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : PicProgress
Réaliser une barre de progression complètement fonctionnelle en seulement 10 lignes de code avec un contrôle Picture.
(Consulté 19756 fois.)

' Le contrôle Picture s'appelle ici picTmp.
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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr