Contar caracteres en Visual Basic

05/Jun/2010 Microsoft.Net , 9 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))

9 comentarios en “Contar caracteres en Visual Basic”

Víctor Cuervo

Valeria bedis

Muy bueno

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”

¿Algo que nos quieras comentar?

Déjanos tu comentario, no te preocupes que tu email no será publicado

*

*