Label na vertical
18/08/2007
0
[quote:a953bc5cfc=´Moderação´]Título editado por Massuda
O título foi mudado de ´Delphi´ para ´Label na vertical´[/quote:a953bc5cfc]
Estou tentando colocar um label na vertical seria esta linha de codigo:
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
O título foi mudado de ´Delphi´ para ´Label na vertical´[/quote:a953bc5cfc]
Estou tentando colocar um label na vertical seria esta linha de codigo:
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
Liany
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)