Jump to content

Parar time de ProgressBar


Gondim
 Share

Recommended Posts

Boas,  😕

gostava de saber como parar uma ProgressBar

no jogo que estou a fazer tem-se um determinado tempo para responder as perguntas.

e se ultrapassar o tempo perde uma vida

Quando se perde as 3 vidas o jogo acaba mas o tempo continua a decorrer na progressbar 😁

queria saber como para-la !

_________________________________________________________________________________________

If ProgressBar1.Value = ProgressBar1.Maximum Then

            Timer1.Stop()

            MsgBox("O tempo acabou, perdeu 2 pontos, e uma vida")

            pontos = pontos - 2

            contador = contador + 1

            Select Case contador

                Case 1

                    PictureBox1.Visible = False

                Case 2

                    PictureBox2.Visible = False

                Case 3

                    MsgBox("Perdeste a ultima vida o jogo acabou !", MsgBoxStyle.OkOnly, "Game Over")

                    PictureBox3.Visible = False

                    Button1.Enabled = False

                    Button3.Enabled = False

                    Label1.Visible = False

                    RadioButton1.Text = ""

                    RadioButton2.Text = ""

                    RadioButton3.Text = ""

                    RadioButton4.Text = ""

                    RadioButton1.Checked = False

                    RadioButton2.Checked = False

                    RadioButton3.Checked = False

                    RadioButton4.Checked = False

                    Label5.Enabled = False

                    ProgressBar1.Enabled = False

            End Select

            gerarpergunta()

            Dim contagem As Integer = 120

            ProgressBar1.Maximum = contagem

            ProgressBar1.Value = 0

            Timer1.Start()

        Else

            ProgressBar1.Value += 1

            Label5.Text = "Faltam: " & ProgressBar1.Maximum - ProgressBar1.Value & " Segundos"

        End If

_________________________________________________________________________________________

Muito obrigado  :fartnew2:

Link to comment
Share on other sites

Podes mandar o projecto para a net sff? É que tou para aqui a pensar uma coisa, mas não tenho a certeza e tou a confundir os pensamentos, mas a minha ideia principal, é que tens o Select Case dentro do If, e penso que uma coisa está a contrariar a outra.

Mas se mandares o projecto para a net e eu saco, talvez consiga perceber melhor.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.