Em ajuda a um colega do Fórum, um pequeno exemplo que pode ser útil
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
Me.txtTMP.SetFocus
End If
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..
Tópico
http://maximoaccess.forumeiros.com/t8742-ajuda-com-numeracao#70292
Link do Exemplo
https://dl.dropbox.com/u/26441349/NumeraLinhas.rar
Cumprimentos.
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
Me.txtTMP.SetFocus
End If
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..
Tópico
http://maximoaccess.forumeiros.com/t8742-ajuda-com-numeracao#70292
Link do Exemplo
https://dl.dropbox.com/u/26441349/NumeraLinhas.rar
Cumprimentos.