Ir para o conteúdo
mprim

[vb6] label vertical

Mensagens Recomendadas

mprim    0
mprim

fica aqui desde já, um código pró pessoal que estiver farto das labels apresentadas na horizontal :P

espero que um dia o possam utilizar... :P

Private Function ShowVertical(ByVal sMyString As String) As String

    Dim sTheString As String

    Dim i As Long

        For i = 1 To Len(sMyString)

            If i < Len(sMyString) Then

                sTheString = sTheString + Mid$(sMyString, i, 1) & vbCrLf

            Else

                sTheString = sTheString + Mid$(sMyString, i, 1)

            End If

        Next

        ShowVertical = sTheString

End Function

Private Sub Form_Load()

Label1.Caption = ShowVertical(Label1.Caption)

End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade