Richtexbox transparente en vb.net

Commenter

Contenu du snippet

Classe pour transparence d'une richtextbox (source introuvable ailleur)

mettez une image en fond dans une form !

ajouter un richtextbox

puis dans le code remplacer :

Me.Rich1 = New System.Windows.Forms.RichTextBox

par

Me.Rich1 = New TransparentRichTextBox

et ca :

Friend WithEvents Rich1 As System.Windows.Forms.RichTextBox

par

Friend WithEvents Rich1 As TransparentRichTextBox

mais avant creer une nouvelle class et coller le code :)

amusez vous bien et bonne prog

Source / Exemple : 


Class TransparentControl
    Inherits Control

    Public Sub New()
        MyBase.SetStyle(ControlStyles.UserPaint, True)
        MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        MyBase.UpdateStyles()
        MyBase.Visible = True
    End Sub

End Class

Class TransparentRichTextBox
    Inherits RichTextBox

    Public Sub New()
        MyBase.ScrollBars = RichTextBoxScrollBars.None
    End Sub

    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or 32
            Return cp
        End Get
    End Property

    Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub
End Class

Conclusion :


Code realisé avec la colaboration bienvenue nhervagault qui m'a enlevé une grosse epine du pied

merci a lui

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 (yohan49)