USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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]
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página