Contar caracteres en Visual Basic

05/Jun/2010 Microsoft.Net , 8 Comentarios

En este ejemplo vamos a ver como podemos contar los caracteres que hay en un TextBox de Visual Basic.

Lo primero será crear el layout de nuestra ventana. En el tendremos:

  • TextTexto, como un TexBox en el cual el usuario podrá insertar los datos.
  • Button1, como el botón que desencadenará el contar los caracteres.
  • TextCaracteres, como el TextBox en el que dejaremos el resultado.

Veamos como sería gráficamente.

Lo primero que haremos será controlar el click sobre el botón:

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2. ...
  3. End Sub

En este procedimiento es dónde vamos a contar los caracteres del texto. Primero cogemos el texto accediendo a la propiedad .Text

  1. TextTexto.Text

Seguidamente calculamos su tamaño mediante la función Len()

  1. Len(TextTexto.Text)

Y por último dejamos el resultado sobre la caja de texto TextCaracteres. Nuevamente utilizando la propiedad .Text y convirtiendo el contenido del tamaño, que es numérico, en una cadena con la función CStr().

  1. TextCaracteres.Text = CStr(Len(TextTexto.Text))

Difunde el Conocimiento

Si te ha gustado el artículo o te ha sido de utilidad, no dejes de compartirlo con tus amigos en las redes sociales... Te estaremos muy agradecidos. :-D

8 comentarios en “Contar caracteres en Visual Basic”

Víctor Cuervo

Yenifer Muete

Buenas noches, necesito ayuda por favor. Tengo que hacer un programa donde en una caja de texti digite numero, y cada vez que escriba este me debe cargar en una lista, así:
cédula= 1 1 2 0 5 7 2 1 8 3
lista
1=impar
1=impar
2=par
0=par
5=impar
7=impar
Lo debo realizar con una función publica, tampoco puedo utilizar la función len, y debe ser por ciclos, este es mi código:

=Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
Dim num As Integer
If Txtcedula.Text “” Then
num = Txtcedula.Text
For i = num To num
If resultado(Txtcedula.Text) = True Then
Lstcedula.Items.Add(num & “=” & “PAR”)
Else
Lstcedula.Items.Add(num & “=” & “IMPAR”)
End If
Next
Else
Lstcedula.Items.Clear()
End If
End Sub

esta el funcion:
Public Function resultado(ByVal numer As Integer) As Boolean
Dim numeropar As Byte
Dim retorno As Boolean
numeropar = Fix(numer Mod 2)
If numeropar = 0 Then
retorno = True
Else
retorno = False
End If
Return retorno
End Function.

Bueno resulta que el programa cuando lo depuro, me sale así.
cédula= 1 1 2 0 5 7 2 1 8 3
lista
1=impar
11=imapr
112=par
1120=par
11205=imapar
112057=impar
y así sucesivamente, no se como hacer, para ir eliminado el numero de atrás, ya intente con la función mid, y tampoco me da. Gracias por su pronta respuesta.

Víctor Cuervo

alejandro

hola me gustaria saber como se hace pero cuando se ponen dos repetidos y ke diga la palabra “hola” se repite dos veces

Víctor Cuervo

mafe

como puedo validar un programa que solo me reciba numeros si es numero de identificacion o letras si es un nombre
gracias

Víctor Cuervo

ichramm

Víctor Cuervo

lineadecodigo

@ycm,

Me alegro que te haya servido.
🙂 🙂 🙂 🙂

Víctor Cuervo

ycm

Hola y gracias de verdad me ayudo bastante, a pesar de ser algo muy sencillo no en cualquier pagina se encuentra tan bien detallada la informacion como en esta!!

Víctor Cuervo

lineadecodigo

@tela,

Pensamos que aquí hay que enseñar a todo el mundo que está aprendiendo a programar y es por ello que hay que publicar artículos sencillos.

Pero estamos abiertos a cualquier sugerencia para próximos artículos.

Víctor Cuervo

tela...

no me extrañaría ver algún día aquí un post “cómo hacer la O con un canuto”

Los comentarios están cerrados.