none
Não Executa alterações VB.net RRS feed

  • Pergunta

  • Bom dia, estou com um problema, vamos dizer que para quem sabe, deve ser mais fácil, estou aprendendo ainda, sou professor e estou montando uma provinha para meus alunos via vb.net, depois que que no botão para mudar de pergunta da 4 para a 5, ele não mostra a pergunta 5, só que eu já terminei o código e o design dela, só não executa para testar, mostra o form sem nada.

    Codigo Form 4

    Public Class Pergunta4

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If res41.Checked = True Then
                MsgBox("Errou, estou brincando, acerto campeão, Parabéns")
                lblcorreto4.Visible = True
                lblerrado.Visible = False
                My.Forms.Pergunta05.Show()
                Close()
            Else
                MsgBox("Parabéns, to brincando, você errou infelizmente, tente na proxima pergunta")
                MsgBox("A alternativa Correta seria: Alterar o sistema operacional padrão")
                lblcorreto4.Visible = False
                lblerrado.Visible = True
                My.Forms.Pergunta05.Show()
                Close()
            End If
        End Sub
    End Class

    Codigo Form 5

    Public Class Pergunta05

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If res53.Checked = True Then
                MsgBox("Parabéns você acertou, agora vamos para a proxima pergunta, é mais dificil")
                lblcorreto.Visible = True
                lblerrado.Visible = False
                My.Forms.Pergunta6.Show()
                Close()
            Else
                MsgBox("............Errou, infelizmente, vamos para a proxima pergunta")
                MsgBox("A resposta correta seria: chkdsk /r ")
                lblcorreto.Visible = False
                lblerrado.Visible = True
                My.Forms.Pergunta6.Show()
                Close()
            End If
        End Sub
    End Class

    Pelo que vi está certinho o código, só que quando dou um F5 para testar, o Form5 aparece sem nada dentro dele, ai não posso prosseguir com as outras perguntas na prova, acho que deve ser alguma configuração que sem querer devo ter feito.


    sexta-feira, 19 de outubro de 2012 12:11

Respostas

Todas as Respostas