none
Cantos arredondados em Panel com VB 2010. RRS feed

  • Pergunta

  • Boa noite Caríssimos!

    Alguém saberia me dizer como fazer para arredondar os cantos de um panel?


    Obrigado pela ajuda!

    quinta-feira, 6 de setembro de 2012 00:39

Respostas

  • Protected Declare Function CreateRoundRectRgn Lib "Gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer
    
    Protected regionHandle As IntPtr
        
    Public Sub carregaVisualComponente(ByVal componente As Object)
            regionHandle = New IntPtr(CreateRoundRectRgn(0, 0,                      componente.Width, componente.Height, 20, 20))
            componente.Region = Region.FromHrgn(regionHandle)
            componente.Region.ReleaseHrgn(regionHandle)
    End Sub
    Utilize esse método para arredondar as bordas dos componentes.
    • Marcado como Resposta zerocopia sexta-feira, 7 de setembro de 2012 01:14
    quinta-feira, 6 de setembro de 2012 12:04

Todas as Respostas

  • Protected Declare Function CreateRoundRectRgn Lib "Gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer
    
    Protected regionHandle As IntPtr
        
    Public Sub carregaVisualComponente(ByVal componente As Object)
            regionHandle = New IntPtr(CreateRoundRectRgn(0, 0,                      componente.Width, componente.Height, 20, 20))
            componente.Region = Region.FromHrgn(regionHandle)
            componente.Region.ReleaseHrgn(regionHandle)
    End Sub
    Utilize esse método para arredondar as bordas dos componentes.
    • Marcado como Resposta zerocopia sexta-feira, 7 de setembro de 2012 01:14
    quinta-feira, 6 de setembro de 2012 12:04
  • Obrigado!

    Valeu pela ajuda.

    Abraço!


    Obrigado pela ajuda!

    sexta-feira, 7 de setembro de 2012 01:14