Tudo bem, galera?

Em um Label, como faço para ter um alinhamento vertical? Sendo que o alinhamento horizontal é a propriedade alignment.

Muito thank you

http://www.vbweb.com.br/dicas_visual.asp?Codigo=862&Classificacao=

Tudo beleza, cara?

 

Mas este link nao deu certo produz um erro:

Run-time error '424'

Object required

 

Programaçao:

 

Private Sub Command1_Click()

    Dim Temp As String, Cont As Integer
    For Cont = 1 To Len(Lblaux.Caption)
        If Len(Temp) > 0 Then
esta linha tem erro:     Temp = Temp & vbNewLine & Mid(Lblauc.Caption, Cont, 1)
        Else
            Temp = Temp & Mid(Lblaux.Caption, Cont, 1)
        End If
    Next
    Lblaux.Caption = Temp

End Sub

leee o erro esta na palavra lblauc é lblaux

O erro anterior foi um descuido, mas acho que nao utilizei as palavras certas, é o seguinte:

Nao quero converter o texto (para que ele fique de pe),nao.

Quero que o mesmo fique no centro do (label, ou textBox), entendeu. Ja existe a propriedade Alignment que centraliza horizontalmente, mas se o label for grande, o conteudo dele fica centralizado, so que na parte superior do label. Quero no meio. Entao deveria tambem fazer uma alinhamento vertical. Nao é converter para o texto ficar de pe, nao

Falô

Faz o seguinte:

 

Use o alignment como centralizado (para centralizar na horizontal) e aumente a altura do label. Sempre que for colocar um texto no caption do label (imagine que ele teria no máximo 255 letras) faça o seguinte:

1) conte quantas letras tem o texto que irá ser colocado no caption (função LEN).

2) diminua 255 deste tamanho (se o tamanho for 65, por exemplo, ficará 190).

3) dividindo 190 por dois resulta-se em 95, daí coloque 95 espaços em branco antes do texto e outros 95 no final, como:

      label1.caption = space(95) & texto % space(95)

 

OBS: Claro que onde está o 95 seria uma variável. Se desejar posso escrever o código para ti.