'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
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.