none
un candado que funciona con 3 intentos en VisualBasic 2015 professional RRS feed

  • Pregunta

  • Sucede que ya tengo el programa listo y los 3 intentos, pasa que cuando quiero el segundo intento me aparece la pantalla de 2 y luego de 0 intentos:

     Else
                If TextBox1.Text Then c = 3
                M = New Media.SoundPlayer("C:/Users/Lineth/Downloads/FAIL.wav")
                M.Play()
                MsgBox("Lo siento, te has equivocado, tienes " & c & " oportunidades menos", MsgBoxStyle.RetryCancel)
                

    y de alli no se que programación mas ponerle para que cierre el MsgBox y me deje hacer el siguiente intento con todo en blanco

    Por favor agradeceria muchisimo su ayuda :)

    sábado, 11 de agosto de 2018 20:22

Respuestas

  • Hola Stephanie260,

    [-] ... If TextBox1.Text Then c = 3

    ¿Esto te funciona? No recibes algún error.

    Te refieres que al presionar a la opción 'Reintentar' de tu MsgBox te borre lo que ya habías escrito?

    Dim dr As DialogResult = MessageBox.Show("Lo siento, te has equivocado, tienes " & c &
            " oportunidades menos", "Mensaje", MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning)
    
    If dr = DialogResult.Retry Then
        'MessageBox.Show("Ha presionado reintentar")
    
        txtUsuario.Text = String.Empty  'Asignas el valor vacío como contenido
        txtUsuario.Focus() 'Estableces el foco en el control
    End If

    Si no es lo que buscas agradecería una mayor explicación.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    domingo, 12 de agosto de 2018 3:07