LABEL VERTICAL

USUARIO.EXCLUIDOS 10/03/2005 15:02:58
#72163
Olá, alguem sabe como faz e se dá para colocar um label ou um textbox na vertical?

Valew...
USUARIO.EXCLUIDOS 10/03/2005 15:15:33
#72169
Label na vertical pode ser assim o:


'Inserir uma Label no formulário e coloque autoSize = true

Private Sub labelVertical(lbl As Label)
    Dim Temp As String, Cont As Integer
    
    For Cont = 1 To Len(lbl)
      Temp = Temp & IIf(Len(Temp) > 0, vbNewLine, "") & Mid(lbl.Caption, Cont, 1)
    Next
    lbl.Caption = Trim(Temp)
End Sub

Private Sub Form_Load()
   labelVertical Label1
End Sub

Dúvida sanada tópico encerrado...
até mais
USUARIO.EXCLUIDOS 10/03/2005 15:44:32
#72176
Muito legal GERMANIR, mas vc conhece um jeito que fique as letras na vertical, tipo girar o label a 90º.

Valew...
USUARIO.EXCLUIDOS 10/03/2005 15:49:31
#72178
Fico de devendo... não sei!!
Até!!!
ps: Não se esqueça de finalizar o tópico.
LCSD 10/03/2005 18:41:53
#72229
Vitor e Germanir

Aqui no site tem algumas Labels Especiais (Activex) que suportam escritas na Vertical e alguns outros recursos. é só baixar.
[s50]
FELIPEA 10/03/2005 18:51:51
#72235
Pra fazer em vertica, o código não é pequeno 

Private Sub Form_Load()
    Label1.Caption = _
    "V" & vbCrLf & _
    "b" & vbCrLf & _
    "M" & vbCrLf & _
    "a" & vbCrLf & _
    "n" & vbCrLf & _
    "i" & vbCrLf & _
    "a"
End Sub


Para pular linha, vc tem q usar "& vbCrLf &"
Tópico encerrado , respostas não são mais permitidas
Voltar