Mensajes

Perdon este fue el que nesecitaba       

Código [Seleccionar] Expandir

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
Handles TextBox1.TextChanged

    sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")

End Sub

De nuevo muchas gracias

Luis

[MANUAL]

( InStr es una función de vb6, te vuelvo a aconsejar como en otra ocasión que dejes todo eso a un lado... si empiezas a programar en VBNET como si estuvieramos en VB6, mal vamos, creo que deberías buscar ejemplos mejores en Google xD )

A ver si lo he entendido bien, ¿quieres permitir la escritura MANUAL de solo Dígitos en un textbox (solo números, sin tener en cuenta el símbolo del minus "-")?

Código (vbnet) [Seleccionar] Expandir

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
Handles TextBox1.KeyPress

   e.Handled = Not ("0123456789".IndexOf(e.KeyChar) > -1 OrElse e.KeyChar = Convert.ToChar(Keys.Back))

End Sub

Si usas ese código que te acabo de mostrar, el textbox podrá seguir conteniendo cualquier tipo de caracter si seteas la propiedad Text del control, Ej: Textbox1.text = "QWERTY"


¿O quieres que de todas las maneras posibles el Textbox solo pueda contener números?, no se si me explico bien:

Código (vbnet) [Seleccionar] Expandir

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
Handles TextBox1.TextChanged

   sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "")

End Sub

Si usas ese código, entonces no necesitas usar el primero que hice.

Saludos!

               no se me ocurre mas jejejje

Muchas gracias si necesitas alguna reparacion de tu coche me avisas

Luis

Ya mareado de googlear jejejej tengo otra pregunta si es posible 

tengo varios texbox donde envió los resultados de una ecuación matemática introduzco datos en unos texbox estos pasan por la función y los resultados me los envía a estos 20 texbox. el problema es, que aunque le he puesto que solo acepte números lo cual funciona hay una pega es que cuando los números son negativos me muestra el signo  negativo  " - " lo cual no he podido eliminar. he puesto esta funcion pero sigue igual.

Código [Seleccionar] Expandir

If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then 
        e.KeyChar = "" 
    End If 


De antemano gracias

Luis

Pd alguna direccion de algun tuto de solo texbox jejeje

Gracias a todos por la ayuda

luis

yo diría que el 90% de los que frecuentan esta sección les apasiona la programación (el resto solo quieren que le hagan el trabajo), tampoco vivo de esto, aunque hago lo que puedo como Freelancer.

Pa eso estamos, si no has entendido algo del tobo bien no dudes en preguntar,
Un saludo!

Gracias de nuevo,, AAA ya conseguí el archivo jejej me sirve y cuando acabe con el te muestro lo que hace

Luis

bueno es que lo de la pregunta es que antes de hacerla lo he buscado (tan novato no soy jejeje pero no lo he encontrado) por eso    a demás mis 5...y picote de años no estoy tan pilas como antes jeje, y te agradezco la ayuda, yo no vivo de esto es solo pasión por la programación, yo vivo de las tuercas soy mecánico de camiones

Muchas gracias por tu ayuda de verdad

Luis

Gracias Elektro

lo de reemplazar los datos se debe que cada ves que se hace la función se modifican todos los datos no son datos fijos,probe tu codigo y no da errores pero no se como o donde se crea el txt lo he buscado y na, es que este archivo txt cada ves se debe de imprimir para guardarlo físicamente,


Luis

Bueno tengo un bloke de 12 texbox que reciben los datos que son numeros y para
guardar esos datos tendrían que ser de lineas de tres

datos de;
texbox1  texbox2, texbox3
texbox4  texbox5, texbox6
texbox7  texbox8, texbox9 ....

con esta rutina tengo solventado lo del txt pero solo escribe una linea

Código [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) _
                      Handles Button2.Click
        ' Crea el archivo 
        FileOpen(1, "C:\Users\Acuario\documents\visual studio 2010\Projects\texto.txt", OpenMode.Output)
        ' escribe el contenido 
        Write(1, TextBox8.Text, TextBox9.Text, TextBox10.Text)

        FileClose(1) ' lo cierra 
    End Sub



Luis

Bueno ahora despues del logeado se oculta pero despues al finalizar el programa lo soluciono

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "jose123" Then
            MsgBox("Entraste")
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("seguro eres tu ?")
        End If

    End Sub
End Class




con este boton de cerrar el sistema bueno una chapuza pero sirvio ( creo yo jejej)

Código (vbnet) [Seleccionar] Expandir

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class

Código (vb) [Seleccionar] Expandir

Me.Hide si no recuerdo mal

Perfecto gracias

Luis