|
~ 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 : FondDegrade ' 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 |
|
