(Resolvido) Eliminar "Space" entre textos de um TextBox

[Danleonhart]

Galera...

Como faço para eliminar os espaços queestão entre textos de uma TextBox ?

EX:

Se for digitado "Daniel Silva" apareça: "DanielSilva".

Tem uma maneira simples de se fazer isto ?

Editado Janeiro 16, 2011 por Danleonhart

[Danleonhart]

Já achei pessoal ! :)

Fica o código:

Private Sub Command1_Click()
    Dim Valor(1) As String, b, u As Integer
    Valor(0) = Text1.Text
    b = Len(Valor(0))
    For u = 1 To b
        If Mid(Valor(0), u, 1) <> " " Then Valor(1) = Valor(1) & Mid(Valor(0), u, 1)
    Next u
    Label1.Caption = Valor(1)
End Sub

No exemplo, o código está em um CommandButton, que ao ser clicado retira todos os "espaços" colocado entre os textos digitados na TextBox "Text1"... e apresenta o resultado na Label1.

Valeu ! :rolleyes:

[kuroi]

a funcao Replace() já faz isso pra vc:

Label1.Caption = Replace(Text1.Text, " ", "")

[Danleonhart]

@ Kuroi:

Caraca meu !

Muito mais simples !

VALEU !