Degrade de couleur dans l'evenement paint d'un form

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 393 fois - Téléchargée 70 fois

Contenu du snippet

'Frm = Form1.Caption ou Me
'Idegrade = 0 ou 1 ou 2
'ValR = Rien si iDegrade = 0 ou 0 à 255
'ValG = Rien si iDegrade = 1 ou 0 à 255
'ValB = Rien si iDegrade = 2 ou 0 à 255
'Placez ceci ( Degrade Me, 0, , 100, 155 )
Dans Evenement Paint du Form:

Degrade Me, 0, , 100, 155

Source / Exemple :


Public Sub Degrade(Frm As Form, iDegrade As Integer, Optional ValR As Variant, Optional ValG As variant, Optional ValB As Variant)
Dim BoucleInt As Long
Dim x As Single
Frm.DrawWidth = 15000 'Définit l'épaisseur des lignes de sortie
Frm.ScaleHeight = 300 'Renvoient ou définissent le nombre d'unités de mesure verticale
Frm.DrawStyle = vbInsideSolid 'Retourne ou définit une valeur déterminant le style de ligne
Frm.DrawMode = vbCopyPen 'Définit une valeur qui détermine l'aspect de la sortie
Frm.ScaleMode = vbPixels 'Définit une valeur indiquant l'unité de mesure des coordonnées d'un objet
'Determine la valeur de (x)
x = Val(Format((255 / Frm.ScaleHeight), "0.000"))
For BoucleInt = 0 To Frm.ScaleHeight
    Select Case iDegrade
        Case 0 'Rouge
            Frm.Line (0, BoucleInt)-(Frm.ScaleWidth, BoucleInt - 1), RGB((255 - x * BoucleInt), ValG, ValB), B
        Case 1 'Vert
            Frm.Line (0, BoucleInt)-(Frm.ScaleWidth, BoucleInt - 1), RGB(ValR, (255 - x * BoucleInt), ValB), B
        Case 2 'Bleu
            Frm.Line (0, BoucleInt)-(Frm.ScaleWidth, BoucleInt - 1), RGB(ValR, ValG, (255 - x * BoucleInt)), B
        Case Else 'si iDegrade <> de 0 ou 1 ou 2 alors par defaut degrade de bleu
            Frm.Line (0, BoucleInt)-(Frm.ScaleWidth, BoucleInt - 1), RGB(0, 0, (255 - x * BoucleInt)), B
    End Select
Next
End Sub

Conclusion :


Variante du code CREER UN DEGRADE BLEU par NIX
merci à lui pour l'ensemble de ces codes.
je le classe niveau 2.
bon travail a tous A+ Sellig

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.