[Resolvido] Identificar Fim do TEXTBOX

[Magico Denny 0]

Grandes mestres de imensa sabedoria, eu na minha humilde mente infértil (rs) tenho tentado há horas imaginar uma forma de resolver o seguinte problema:

 

 

Tenho duas textbox (posso substitui-la por algo melhor caso alguem tenha uma solucao)... uma do lado da outra...

O fato é que quero abrir um texto num TXT, porém, deve ficar totalmente visivel.... assim:

 

Começa a passar os dados do txt para o textbox:

 

Open atual For Input As #1
    While Not EOF(1)
        Line Input #1, aux
        Txt(0).Text = Txt(0).Text & vbNewLine & aux
    Wend
Close #1

o problema:

 

QUANDO "NAO COUBER" mais na tela, entao continua no proximo txtbox....

porem o form pode ser aumentado e tals, entao o txtbox muda de tamanho tb, e nao consigo achar uma forma de saber qtas linhas posso digitar no txtbox antes de "sair da tela" ou de ir para baixo e ser rolado com a barra.....

Não sei se me fiz entender, mas qualquer duvida perguntem!

 

Abraços

[scorpio 7]

Procure por "textwidth vb6". Deve ajudar.

[Magico Denny 0]

Aeeeee, consegui!!!.. MUITISSISISISIMO obrigado pela ajuda, segue a solucao adotada:

 

atual = "C:\macro.txt"
Open atual For Input As #1
    While Not EOF(1)
        Line Input #1, aux
        txt.Text = txt.Text & vbNewLine & aux
        Set pct.Font = txt.Font
        If pct.TextHeight(txt.Text) >= txt.Height - 50 Then
            While Not EOF(1)
                Line Input #1, aux
                txt2.Text = txt2.Text & vbNewLine & aux
                Set pct.Font = txt.Font
            Wend
        End If
    Wend
Close #1
End Sub