39 lines
1.3 KiB
VB.net
39 lines
1.3 KiB
VB.net
Public Class FrmIsc2
|
|
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
|
|
Me.Close()
|
|
FrmAccueil.Show()
|
|
TmrCaR.Stop()
|
|
End Sub
|
|
|
|
Private Sub TmrCaR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCaR.Tick
|
|
LblCaR.Tag -= 1
|
|
If LblCaR.Tag <= 1 Then
|
|
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " seconde."
|
|
End If
|
|
If LblCaR.Tag < 60 And LblCaR.Tag <> 1 Then
|
|
LblCaR.Text = "Vous disposez de " & LblCaR.Tag & " secondes."
|
|
End If
|
|
If LblCaR.Tag <= 10 Then
|
|
LblCaR.ForeColor = Color.Red
|
|
End If
|
|
If LblCaR.Tag <= 0 Then
|
|
TmrCaR.Stop()
|
|
LblCaR.Text = "Le temps impartie est écoulée."
|
|
MsgBox("Le temps impartie est écoulé. L'inscription a échoué.", MsgBoxStyle.Exclamation, "Echec")
|
|
End
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FrmIsc2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
LblCaR.Tag = 60
|
|
TmrCaR.Start()
|
|
End Sub
|
|
|
|
Private Sub CmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNext.Click
|
|
Me.Hide()
|
|
FrmIsc3.Show()
|
|
TmrCaR.Stop()
|
|
End Sub
|
|
End Class |