Control de caracteres de un textbox a otro

[cindycpc3]

Buenas tardes colegas,

Poseo dos textbox los cuales en uno los datos son llenados por usuario y en el otro textbox deseo que se vaya restando la cantidad de caracteres ya utilizados.

El mejor ejemplo seria como un mensaje de texto cuando se van ingresando los caracteres incluidos espacios se va reduciendo la cantidad que excederia un mensaje que son 120 caracteres maximo.

He probado usando lo siguiente=

Private Sub Text1_change()

Text1.Text = contador

End Sub

Private Sub txt_mensaje_KeyPress(KeyAscii As Integer)

contador = contador - 120

End Sub

Y pues no he tenido resultados favorables ya que introduzco los datos y nada se me refleja en el otro textbox.

Les agradeceria su colaboracion

[erbuson]

Hola, prueba con esto:

Private Sub Text1_Change()
Text2.Text = 120 - Len(Text1.Text)
End Sub

Saludos

[cindycpc3]

gracias colega ya lo hize esa es la respuesta correcta

[zizuo22]

hola buenos dias, alguien me podria colaborar con lo siguiente:
tengo un programa en visual studio, tengo un checkedlistbox con cierta cantidad de datos y deseo pasar a un textbox la cantidad de datos del checkedlistbox
por ejemplo:
en el checkedlistbox tengo los siguientes datos:
-matematicas
-ingles
-fisica
-informatica
y deseo que en el textobox me aparesca 4
muchas gracias, he intentado de todo y no he podido, soy nuevo en esto, muchas gracias

[lojoam]

Buenas, proba declarando una variable Integer global y en el evento click del check le incrementas (o decrementas si des-selecciona) 1 unidad a dicho Integer, y ahi mismo actualizas el .Text del textbox.
Espero te sirva mi ayuda, salutte