Contador de caracteres
Publicado por zetha (3 intervenciones) el 20/10/2006 19:56:37
Hola que tal!
Tengo un campo de comentatios validado para cierto número de caracteres.
Pero ahora quiero hacer otro cuatro de texto que vaya dando el número de caracteres conferme voy escribiendo el comentario. pruebo con el siguiente código, pero me genera un error. Según no puedo dar un valor a un campo si no tiene el enfoque.
Private Sub COMENTARIOS_Change()
txt_numero.Text = Len(COMENTARIOS.Text)
If (Len(COMENTARIOS.Text) > 1000) Then
MsgBox ("Solo se permiten 1000 como máximo")
COMENTARIOS.Text = Mid(COMENTARIOS.Text, 1, 1000)
End If
End Sub
Intenté dando el enfoque y regresándoselo al de comentarios, pero al recibir nuevamente el enfoque el de comentarios se selecciona todo el texto y esto causa varios problemas..
Alguien tiene un mejor idea para resolver esta situación?
De antemano les agradezco la ayuda.
Tengo un campo de comentatios validado para cierto número de caracteres.
Pero ahora quiero hacer otro cuatro de texto que vaya dando el número de caracteres conferme voy escribiendo el comentario. pruebo con el siguiente código, pero me genera un error. Según no puedo dar un valor a un campo si no tiene el enfoque.
Private Sub COMENTARIOS_Change()
txt_numero.Text = Len(COMENTARIOS.Text)
If (Len(COMENTARIOS.Text) > 1000) Then
MsgBox ("Solo se permiten 1000 como máximo")
COMENTARIOS.Text = Mid(COMENTARIOS.Text, 1, 1000)
End If
End Sub
Intenté dando el enfoque y regresándoselo al de comentarios, pero al recibir nuevamente el enfoque el de comentarios se selecciona todo el texto y esto causa varios problemas..
Alguien tiene un mejor idea para resolver esta situación?
De antemano les agradezco la ayuda.
Valora esta pregunta
0