Me acabo de fijar que Cambiando el Option Strict a Off "lo tenia en On no se porque"

Al usar este codigo de aca me da el resultado cada vez que doy click pero con 1 palabra menos :S

  

con = 0

Sigo sin entender mucho estas cosas la verdad xD

--------EDITO--------

ya funciona perfecto!

este es el code

  

    Dim con As Integer = 1
  Dim i As Integer
        Dim Cadena As String
        con = 1
        Cadena = TextBox1.Text
        For i = 1 To Len(Cadena)
            If Mid(Cadena, i, 1) = " " Then
                con = con + 1
            End If
        Next
        Label1.Text = CStr(con)

[D4N93R] No he cachado nada yo la verdad es que no me llevo bien con los strings y estas cosas no logro hacerlo funcionar "por segunda vez" xD

ehhh Impr pant pet sis y el efecto shadow del Photoshop xd

Bueno he conseguido hacerlo funcionar pero de una forma muy peculiar solo funciona una sola vez xD

este es el code que he usado

    Dim con As Integer = 1
        Dim i As Integer
        Dim Cadena As String
        Cadena = TextBox1.Text
        For i = 1 To Len(Cadena)
            If Mid(Cadena, i, 1) = " " Then
                con = con + 1
            End If
        Next
        Label1.Text = CStr(con)

Me funciona perfecto pero al dar click de nuevo al boton pasa esto: ejemplo escribo "hola como estas" pone que hay 3 palabras en el label, pero al darle click nuevamente al boton me suma ese resultado entonces me sale 6 xDD.

Supongo que la solucion a esto debe ser sencilla pero ahorita no se me ocurre nada si me pueden echar una mano con eso se los agradeceria

Salu2

Nueva opción para actualizar el programa añadida!

Okokok dejame ver que puedo hacer xDD

Pequeña aplicación para Contar los Caracteres/Palabras que hay en un texto plano, incluye opciones para abrir y guardar un documento.

Version Anterior


Nueva version


Descargar Proyecto

Nuevas opciones para cambiar la tipografia utilizada y tambien el color.

Modificado los botones ya no son como los feos de Windows xD

Modificada la fuente de la aplicacion por mi Preciada "Segoe UI"" Se habran dado cuenta que la uso en todos mis programas no? xD

No tengo la menor idea yo use imágenes que saque desde un generador de logos de Twitter xDD creo que no puedo poner esos links por acá no?

Le modifique unas cosas al programa

mmm bueno bueno y sabes como se podría configurar? Digo a ver si consigo algún host donde pueda hacer un test