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 : FondDegrade
Donne un effet de couleur dégradé au fond d'une fenêtre.
(Consulté 18303 fois.)

Public Sub FondDegrade(frmCall As Form)
' Cette fonction permet de faire un fond en dégradé sur la fenêtre passé en paramètre.
' Pour faire varier les couleurs, il suffit de jouer avec la fonction RGB,
' pour un dégradé noir vers bleu on prend par exemple RGB(0, 0, lgFor / lgInc).
' Pour conserver son aspect dégradé il est conseillé d'appelé cette fonction
' dans l'évènement Resize de la fenêtre.
Dim lgFor As Long, lgWidth As Long, lgInc As Long
frmCall.AutoRedraw = True
frmCall.DrawWidth = 2
frmCall.DrawStyle = 6
lgWidth = frmCall.Width
lgInc = frmCall.Height / 256
For lgFor = 0 To frmCall.Height Step lgInc
    frmCall.Line (0, lgFor)-(lgWidth, lgFor + lgInc), RGB(256, lgFor / lgInc, 0), BF
Next lgFor
End Sub

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