 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
Dégradé 
Paramètres en entrée : NomFeuille (Form)
Paramètres en sortie : Aucun
Description : Applique un dégradé bleu (ou rouge) à un feuille
Exemple : Dégradé Me
Sub Dégradé(NomFeuille As Form)
'Mettre AutoRedraw de la feuille sur True
Dim Variable As Integer
NomFeuille.AutoRedraw = True
NomFeuille.DrawStyle = vbInsideSolid
NomFeuille.DrawMode = vbCopyPen
NomFeuille.ScaleMode = vbPixels
NomFeuille.DrawWidth = 2
NomFeuille.ScaleHeight = 256
For Variable = 0 To 255
NomFeuille.Line (0, Variable)-(Screen.Width, Variable - 1), RGB(0, 0, 255 - Variable), B
Next Variable
'Pour un dégradé Rouge :
'NomFeuille.Line (0,Variable)-(Screen.Width,Variable -1),RGB(255 - Variable,0,0),B
'Pour avoir un bon dégradé,il faut mettre Dégradé Me dans les évenements
'suivants : Activate,Paint et Resize
End Sub
|
|
 |
|
 |
|
IDDN Certification
