Temas para cada utilizador

[obamaself]

Boas, quero que cada utilizador possa escolher uma cor da borda do formulário, como se a aplicação tivesse temas.

Dá para mudar a cor?

[Caça]

Acho que isso só muda com o tema do windows..

Para mudar terias de esquecer a borda normal e ser tu desenhar uma nova adequada as necessidades.

[obamaself]

pus isto:

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, Color.Red, 1, _
        ButtonBorderStyle.Solid, Color.Red, 1, ButtonBorderStyle.Solid, Color.Red, 1, _
        ButtonBorderStyle.Solid, Color.Red, 1, ButtonBorderStyle.Solid)
    End Sub

mas isto só põe uma linha.

[Caça]

Nas propriedades do form, coloca a propriedade FormBorderStyle em None. Agora desenhas a tua maneira.

[obamaself]

Foi o que fiz.

Assim parece mais real:

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, Color.Red, 1, _
        ButtonBorderStyle.Outset, Color.Red, 30, ButtonBorderStyle.Outset, Color.Red, 1, _
        ButtonBorderStyle.Outset, Color.Red, 1, ButtonBorderStyle.Outset)
    End Sub

Já qe não há maneira melhor.

[Caça]

Podes sempre aumentar o tamanho da linha

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, Color.Red, 10, _
        ButtonBorderStyle.Outset, Color.Red, 30, ButtonBorderStyle.Outset, Color.Red, 10, _
        ButtonBorderStyle.Inset, Color.Red, 10, ButtonBorderStyle.Inset)
    End Sub