CENTRALIZAR A PROPRIEDADE TEXT (NOME DO FORMULARIO

MRSILVA 24/12/2015 10:16:52
#455519
Olá pessoal.

Alguém poderia me ajudar a centralizar o nome do formulário, ou seja propriedade text via código.

Pesquisei não consigo encontrar como fazer isso.

Desde já agradeço.
JABA 24/12/2015 12:11:42
#455522 Resposta escolhida
Coloque isso no evento Load e Resize do seu Form:

Public Sub Centralizar_Text()
        Dim g As Graphics = Me.CreateGraphics()
        Dim pontoInicial As Double = (Me.Width / 2) - (g.MeasureString(Me.Text.Trim(), Me.Font).Width / 2)
        Dim tamanhoDoEspaco As Double = g.MeasureString([Ô] [Ô], Me.Font).Width
        Dim tmp As String = [Ô] [Ô]
        Dim t As Double = 0

        Do While ((t + tamanhoDoEspaco) < pontoInicial)
            tmp += [Ô] [Ô]
            t += tamanhoDoEspaco
        Loop
        Me.Text = tmp + Me.Text.Trim()
    End Sub
CLEVERTON 24/12/2015 13:23:01
#455523
JABA, só uma observação, no Windows8 o nome vem centralizado por default, então seria interessante verificar qual a versão do OS antes de executar seu código.
JABA 24/12/2015 13:47:01
#455524
Citação:

JABA, só uma observação, no Windows8 o nome vem centralizado por default, então seria interessante verificar qual a versão do OS antes de executar seu código.



Acho que não seria necessário, pois esse código teria que estar lá de qualquer maneira para atender aqueles que não centralizam. Se a intenção dele é centralizar, então, ao meu ver, não faria diferença alguma fazer essa verificação.
MRSILVA 25/12/2015 10:08:05
#455533
Muito obrigado Jaba, funcionou perfeitamente, obrigado também Cleverton.

Feliz Natal!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar