Contar Linhas Em Um Rich Text

[Guest stargazer]

:ph34r: preciso contar linhas num editor de texto,talves pela posição do cursor.., de modo que ao digitar um texto apareça a linha posicionada...

[William Rodrigues]

Æ Brother !!!!

Æ estou aqui no trampo e não posso ficar muito tempo na NET, aí vi o seu poste e resolvi te dar uma ajudinha....

Como estou meio sem tempo cara, fiz um teste com TXT mesmo, deu certo, agora você testa com o Rich Text.

Aí vai o código cara:

Public Valor As Double
Private Sub Command1_Click()
Text2.Text = Valor
End Sub

Private Sub Form_Load()
Valor = 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Valor = Valor + 1
End If
End Sub

Mas tem um probleminha cara...

Não sei se tinha percebido é o seguinte, quando o cara dá "enter" ele vai contar a linha.....Mas se o cara apagar essa linha ? a contagem deveria ser mudada automaticamente....então cara, coloquei o código meio "sem pensar" e assim que saí da NET percebi o meu erro e estou aqui, agora, para arrumá-lo e notifica-lo do problema que meu código iria ter

Espero que tenha te entendido

Abraços,

William Rodrigues