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

Okokok dejame ver que puedo hacer xDD

SmogMX pues vayan haciéndolo xD a mi no me gusta mucho que digamos xD Diseñando soy buen panadero 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

¿Con que sacaste la imagen de la ventana que esta sombreada?