Dégradé de deux couleurs avec transparence et angle

Commenter

Contenu du snippet

je sais qu'il y a pas mal de codes qui traite se sujet , j'espère que celui la est différant et plus utile.

Source / Exemple : 


Imports System.Drawing.Drawing2D

Public Class Form1

    Public Sub DrawGradient(ByVal C As Control, ByVal rect As Rectangle, ByVal Color1 As Color, ByVal Color2 As Color, _
                     ByVal color1Opacity As Integer, ByVal color2Opacity As Integer, ByVal ang As Integer, _
                     ByVal isMonochrome As Boolean)

        Dim gr As Graphics = C.CreateGraphics
        Dim Brosse As LinearGradientBrush
        Color1 = Color.FromArgb(color1Opacity, Color1.R, Color1.G, Color1.B)

        If isMonochrome = True Then
            Color2 = Color.Transparent
        Else
            Color2 = Color.FromArgb(color2Opacity, Color2.R, Color2.G, Color2.B)
        End If

        Brosse = New LinearGradientBrush(rect, Color1, Color2, ang, True)

        gr.FillRectangle(Brosse, rect)

        gr.Dispose()
        Brosse.Dispose()
    End Sub

   'Exemple d'application:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DrawGradient(Me, New Rectangle(0, 0, Me.Width, Me.Height), _
                     Color.Black, Color.Blue, 255, 160, 45, False)
    End Sub
End Class

A voir également

S'inscrire maintenant

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.

Du même auteur (jaljalil2010)