none
Ajuda PF!! RRS feed

  • Pergunta

  • Estou fazendo uns exercícios de inglês, a pessoa tem que  preencher as text box de acordo com a com a pergunta e a imagem, sei fazer o código para dizer se tem uma pergunta erra ou se a pessoa acertou tudo, mas quero também que o programa limpe apenas as textbox com as respostas erradas e as certa deixe, mas acontece que ele deixa todas as respostas. meu código é esse:

     Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
            If TextBox1.Text = "This is a monitor" And TextBox2.Text = "That is a keyboard" And TextBox3.Text = "This is a computer" Then
                MsgBox("Parabéns você acertou tudo", vbInformation)
                Me.Hide()
                Form2.Show()
            ElseIf MsgBox(" A exercicios não respondidos ou errados", vbCritical) Then
            End If
        End Sub
    End Class

    quarta-feira, 26 de setembro de 2012 16:10

Respostas

  • isso vai funcionar

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
            If TextBox1.Text = "This is a monitor" And TextBox2.Text = "That is a keyboard" And TextBox3.Text = "This is a computer" Then
                MsgBox("Parabéns você acertou tudo", vbInformation)
                Me.Hide()
                Form2.Show()
            ElseIf MsgBox(" A exercicios não respondidos ou errados", vbCritical) Then
            End If
    
            If TextBox1.Text <> "This is a monitor" Then
                TextBox1.Clear()
            End If
    
            If TextBox2.Text <> "That is a keyboard" Then
                TextBox2.Clear()
            End If
    
            If TextBox3.Text <> "This is a computer" Then
                TextBox3.Clear()
            End If
    
        End Sub


    sexta-feira, 28 de setembro de 2012 05:33