Doorzichtige textbox

[geenID]

Geen probleem

Ik heb de dll, thx, nu eventjes testen of het werkt

 

[tim687]

die heb ik al

 

[JoZ1]

@TS: werkt het trouwens?

 

[geenID]

Net even getest en het lijkt te werken!

Heel erg bedankt voor de hulp

 

[JoZ1]

@GeenID: Goedzo.

 

[old Hippy]

Add een component noem hem TransparentControl

copy en plak de code er in.

Class TransparentControl
    Inherits Control
    
    Public Sub New()
        MyBase.New
        MyBase.SetStyle(ControlStyles.UserPaint, true)
        MyBase.SetStyle(ControlStyles.DoubleBuffer, true)
        MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, true)
    End Sub
End Class
Class TransparentRichTextBox
    Inherits RichTextBox
    
    Public Sub New()
        MyBase.New
        MyBase.ScrollBars = RichTextBoxScrollBars.None
    End Sub
    
    Protected 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 Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
        
    End Sub
End Class

Build je project en sleep het element in je form.

 

[tim687]

Oke bedankt!