textbox randkleur

[famlam]

Hoe kun je de kleur van de RAND van een textbox veranderen?

 

[Pizara]

Daar is geen propery voor de ENIGE manier is om deze zelf te tekenen om de textboxxen

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Red, 2.0)
        For Each ctr As Control In Me.Controls
            If TypeOf ctr Is TextBox Then
                g.DrawRectangle(pen, New  _
                Rectangle(ctr.Location, ctr.Size))
            End If
        Next
        pen.Dispose()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.BorderStyle = BorderStyle.None
    End Sub

End Class

 

[famlam]

Daar is geen propery voor de ENIGE manier is om deze zelf te tekenen om de textboxxen

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Red, 2.0)
        For Each ctr As Control In Me.Controls
            If TypeOf ctr Is TextBox Then
                g.DrawRectangle(pen, New  _
                Rectangle(ctr.Location, ctr.Size))
            End If
        Next
        pen.Dispose()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.BorderStyle = BorderStyle.None
    End Sub

End Class

Weet je toevallig ook hoe ik deze in een function krijg? Daar bestaat e.Graphics namelijk niet.
De reden dat ik het graag in een function wil is dat ik zo meerdere kleuren kan gebruiken, zonder steeds die code opnieuw te moeten maken

 

[ninjaplayer]

Dit zet je bovenaan

Dim g as Graphics = Me.CreateGraphics 'Als de tekstbox in bijv een panel zit, moet je "Me" veranderen in bijv "Panel1"

Dan moet je wel g.DrawRectangle typen ipv e