none
Utilizar Expresion Regular para mas de un control.

    Pregunta

  • Hola comunidad, tengo implementada esta expresion regular para validar un control textbox, me funciona bien  , pero me gustaria saber como implementarla en varios textbox ala vez(). Saludos

     
    Private Sub Validar_Caja(texto as String)
    
     If Not Regex.IsMatch(texto, "^-?\d*$", RegexOptions.IgnoreCase) Then
    
      MessageBox.Show("Verifique los datos ingresados")
    
     Else
                Form_Lista.ShowDialog
    
    End Sub
    
    
    Private Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles btn_BtnAceptar.Click
    
    Validar(Textbox1.text)
    
    End Sub


    • Editado Jose Alrey martes, 8 de noviembre de 2016 18:40
    martes, 8 de noviembre de 2016 18:39

Respuestas

  • Ve si un modelo así es lo que quieres

    Private function Validar_Caja(texto as String) As Boolean
       Dim resultado as Boolean=False
       If Regex.IsMatch(texto, "^-?\d*$", RegexOptions.IgnoreCase) Then
          resultado = true
       End If
       return resultado 
    End Function

    Private Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
       If Me.Controls.OfType(Of TextBox).All(Function(t) Validar(t.Text)) Then
          Form_Lista.ShowDialog
       Else
          MessageBox.Show("Verifique los datos ingresados")
       End If
    End Sub

    • Marcado como respuesta Jose Alrey miércoles, 9 de noviembre de 2016 4:37
    martes, 8 de noviembre de 2016 20:06
  • Hola Jose Alrey,

    Podrías usar la función Any() para verificar si existe un textBox que no sea válido.

     Dim noValido = Me.Controls.OfType(Of TextBox).Any(Function(x) Validar_Caja(x.Text) = False)
    
     If noValido Then
       MessageBox.Show("Verifique los datos ingresados")
     Else
        Form_Lista.ShowDialog()
     End If

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Jose Alrey miércoles, 9 de noviembre de 2016 4:37
    miércoles, 9 de noviembre de 2016 1:15

Todas las respuestas

  • Como quieres hacer la validación? todas las cajas, unas en particular, todas en la misma forma, cuando aprietan el boton, etc.

    martes, 8 de noviembre de 2016 19:31
  • Hola Anibal, correcto, me gustaria que todas las cajas cumplan el mismo patron, al dar click en el boton.
    martes, 8 de noviembre de 2016 19:50
  • Ve si un modelo así es lo que quieres

    Private function Validar_Caja(texto as String) As Boolean
       Dim resultado as Boolean=False
       If Regex.IsMatch(texto, "^-?\d*$", RegexOptions.IgnoreCase) Then
          resultado = true
       End If
       return resultado 
    End Function

    Private Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
       If Me.Controls.OfType(Of TextBox).All(Function(t) Validar(t.Text)) Then
          Form_Lista.ShowDialog
       Else
          MessageBox.Show("Verifique los datos ingresados")
       End If
    End Sub

    • Marcado como respuesta Jose Alrey miércoles, 9 de noviembre de 2016 4:37
    martes, 8 de noviembre de 2016 20:06
  • Hola Jose Alrey,

    Podrías usar la función Any() para verificar si existe un textBox que no sea válido.

     Dim noValido = Me.Controls.OfType(Of TextBox).Any(Function(x) Validar_Caja(x.Text) = False)
    
     If noValido Then
       MessageBox.Show("Verifique los datos ingresados")
     Else
        Form_Lista.ShowDialog()
     End If

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Marcado como respuesta Jose Alrey miércoles, 9 de noviembre de 2016 4:37
    miércoles, 9 de noviembre de 2016 1:15
  • Muchas gracias por ambas soluciones un saludo.
    miércoles, 9 de noviembre de 2016 4:38