Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1507 connectés 

  FORUM HardWare.fr
  Programmation

  Dégradé de couleurs en VB6

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Dégradé de couleurs en VB6

n°71408
blueman_82
Posté le 11-11-2001 à 17:00:24  profilanswer
 

J'ai trouvé une fonction qui permet d'afficher un dégradé de couleurs en arrière plan dans un formulaire. Seulement je ne comprend pas comment je peux choisir les couleurs à afficher.
 
Voici la fonction :
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

mood
Publicité
Posté le 11-11-2001 à 17:00:24  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  Dégradé de couleurs en VB6

 

Sujets relatifs
VB6 ???refresh d'une datagrid sous VB6
[VB6] Vérifier la castVB6 et Windows XP
[VB6] Menu en VB[VB6] mnuTruc.item(toto).enabled=tru e/false?
[VB6] Créer un menu "paramétrable"[VB6] Générer un fichier
[VB6] Comment lancer un exe à partir de VBProgrammation d'un Bot pour Direct Connect en VB6
Plus de sujets relatifs à : Dégradé de couleurs en VB6


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR