|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Criar uma Label vertical
|
 |
|
|
|
Postada em 6/1/2003 por Spidey
'Inserir uma Label no formulário e coloque autoSize = true
'''[CODE language=VB]
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
'''[/CODE]
|
|
|
|
|
