• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

mprim

[vb6] label vertical

2 mensagens neste tópico

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

0

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