[Resolvido]Ajuda com numeração

Tenho um problema com uma caixa de texto ampliável.
Escrevo uma linha de texto e ao clicar enter muda de linha dentro do mesmo registo, no entanto, não consigo numerar as linhas que escrevo.
Já esperimentei =1 mas não funciona, só funciona se for vários registos no qual numera os mesmos. Não é isso que quero. Quero numerar uma caixa de só um registo na qual esta ao ampliar cria um numero sequencial de linha do lado esquerdo da mesma.

Tipo isto:
________________________________________________________________________________
01 | Tenho um problema com uma caixa de texto ampliável.
02 | Escrevo uma linha de texto e ao clicar enter muda de linha dentro do mesmo
03 | registo, no entanto, não consigo numerar as linhas que escrevo.
04 | Já esperimentei =1 mas não funciona, só funciona se for vários registos no qual
05 | numera os mesmos. Não é isso que quero. Quero numerar uma caixa de só um registo
06 | na qual esta ao ampliar cria um numero sequencial de linha do lado esquerdo da
07 | mesma.
08 |_________________________________________________________________________________

É apenas uma caixa de texto na qual fica numerada na lateral sempre que amplia ao escrever.

Boas ToyeBom, atente para as regras do Fórum. Já é o segundo tópico que abriu para o mesmo Assunto.

Ao criar um tópico tenha paciência e espere por ajuda, não abra tópicos sobre a mesma Dúvida.


Moderação.

Bem... estive a ver o que pretende e consegui algo da seguinte maneira...

1 - Crie uma caixa texto desacoplada e nomeeie txtTMP
2 - Crie um modulo e Nomeeie VarPublicas
Neste modulo crie duas variáveis publicas:
Public X as Integer
Public StrTexto as String
* Essas variáveis não são limpas ao digitar ou executar o codigo do form. é necessário ao fechar o form, limpá-las.
3 - Crie uma caixa texto que pode deixar com a largura = 0 para ficar oculta e nomeeie de RecebeFoco

Em eventos do Form, ao apertar tecla.


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Me.RecebeFoco.SetFocus
If X = Empyt Then
X = 1
StrTexto = X & " - " & StrTexto & Me.txtTMP
MsgBox StrTexto
Me.CpMEMO = StrTexto
Me.txtTMP = ""
Else
X = X + 1
StrTexto = Me.CpMEMO & vbCrLf & X & " - " & Me.txtTMP
MsgBox StrTexto
Me.CpMEMO = StrTexto
Me.txtTMP = ""
End If
End If
Me.txtTMP.SetFocus
End Sub


A lógica disso é ir carregando a variável com o texto digitado na caixa txtTMP e esta variável precedida do Valor de X, que vai sendo incrementado a cada Enter..
Observe que o primeiro texto a variável assume o valor de 1 e nos proximos enter o codigo remete para a clausula Else, que X será incrementado. e no final Leva ao campo memo ó texto contido na variável.
A caixa texto txtTMP é limpa a cada enter, e a variável é acrescima do campo Memo /Enter /Novo texto..


E por ai.


Cumprimentos.

Peço desculpa por ter criado novo tópico é que tenho urgencia.
Quanto ao código, tentei mas não consegui. será que me podias enviar um bd de exemplo. Agradecia.

O Fórum é livre e as pessoas aqui dispõe de seu tempo livre para ajudar e nada recebem por isto. Então tenha sempre paciência.

Ao criar novos tópicos para a mesma dúvida poderá ser penalizado por isto e lhe ter diminuida percentagem no respeito às regras do fórum.


Vá na sala repositório de exemplos, postei o teu modelo ainda ontem lá, porem não o avisei porque esperava que tentasse fazer voce mesmo, isso seria melhor para vosso aprendizado.


Cumprimentos.

Obrigado, resultou

o Fórum agradece o Retorno.