Textbox

[Guest --bsmith --]

Olá pessoal,

Estou com algumas duvidas sobre textbox:

1- Como faço um code pra remover as 10 primeiras linhas de um textbox? .. E pra remover apenas a primeira linha?

2- Como leio a primeira linha de uma textbox?

Grato,

bsmith

[Graymalkin]

A textbox do VB6 não faz nenhuma distinção no sentido de existirem "linhas" dentro dela. Ou seja...

linha1

linha2

... é só um texto que tem uma quebra de linha e um retorno de carro após o texto "linha1". Então, tecnicamente, não existem "linhas".

O melhor no caso, então, é usar a função Split() para dividir a string pela constante vbCrLf (que é o retorno de carro e a quebra de linha) cujo resultado será um vetor. Neste vetor você poderá remover ou acrescentar "linhas" e ao final do processo você pode jogá-las de volta na caixa de texto. Exemplo:

linhas = Split(Text1.Text, vbCrLf) 'Criando o vetor a partir do texto dividido
    
    MsgBox linhas(0) 'Mostrando a primeira linha
    
    linhas(1) = "" '"Removendo" a segunda linha
    
    Text1.Text = "" 'Zerando a textbox e preenchendo-a com o vetor
    For Each linha In linhas
        If linha <> "" Then
            Text1.Text = Text1.Text & linha & vbCrLf
        End If
    Next linha

Certo? ;)

Graymalkin

[Guest --bsmith --]

PERFEITO Gray! Obrigado cara!