Bonjour à tous,

Dans le cadre d'un projet, je dois afficher dans la barre de titre l'heure (chose que j'ai réussi à faire) mais aussi un compte à rebours (je n'arrive pas à afficher les deux).

Mon code :
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub tmrcar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrcar.Tick
        départ -= 1
        Form.ActiveForm.Text = Form.ActiveForm.Text & " " & départ
        If départ = 0 Then
            tmrcar.Stop()
            MsgBox("TROP LENT")
            Me.Close()
        End If
    End Sub
End Class

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Frminscript_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Call Frmacceuil.horlog(sender, e)
    End Sub
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Sub horlog(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrh.Tick
        Dim z1 As String
        Dim z2 As String
        z1 = Form.ActiveForm.Tag
        z2 = TimeOfDay
        Form.ActiveForm.Text = z1 & "  " & z2
    End Sub

Merci d'avance.