Hola, necesito saber como hacer para determinar al apretar un botón que:
se ha ingresado una cadena que por lo menos contenga un numero y ademas que por lo menos tenga 2 letras y una de ellas debe ser en mayúscula, estoy usando VB .net 2008, en el form solo hay un textbox y un command button. Dentro del textbox se debe de ingresar un password. Espero que alguien me pueda ayudar. Saludos

Por ejemplo:

Código:

Private Function VT(ByRef text As String) As Boolean
    ' La funcion devuelve True si se cumplen estas condiciones:
    ' - La cadena tiene tres o mas caracteres 
    ' - Como minimo uno de los caracteres es un numero
    ' - Como minimo dos de los caracteres son letras
    ' - Una de las letras esta en mayusculas

    If text.Length < 3 Then ' Si la cadena contiene menos de tres caracteres
        Return False
    End If

    Dim hasNumber As Boolean          ' Determina si uno de los caracteres es un numero
    Dim hasUpperLetter As Boolean    ' Determina si uno de los caracteres alfabeticos es mayuscula
    Dim letterCount As Integer          ' Cantidad de caracteres alfabeticos

    ' Recorrer todos los caracteres
    Dim len As Integer = text.Length - 1
    For i As Integer = 0 To len
        Dim ch As Char = text(i)
        If Char.IsNumber(ch) Then       ' Si el caracter es un numero
            hasNumber = True
        ElseIf Char.IsLetter(ch) Then   ' Si es un caracter alfabetico
            letterCount += 1            
            If Char.IsUpper(ch) Then    ' Si es mayuscula
                hasUpperLetter = True
            End If
        End If
    Next

    Return hasNumber AndAlso letterCount >= 2 AndAlso hasUpperLetter
End Function

Buen dia lorest,

Primero que nada gracias por tu aporte, tengo una pregunta al respecto como puedo realizar que el textbox se valide de la siguiente manera:

Siempre debe de iniciar con ciertas letras ejemplo : CMX...........

en total son 11 caracteres pero las primeras letras deben de ser CMX. como puedo hacer que mi textbox lo valide?

Gracias de antemano.

Saludos:

Si puedes. Deberias usar el evento VALIDATING del Textbox, asi:

Código:

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
If Strings.Mid(TextBox1.Text, 1, 3) <> "CMX" Then
MsgBox("Error", MsgBoxStyle.Critical, "Debe ser CMX")
TextBox1.Focus()
End If
End Sub

Espero ayude,


JOSE LUIS