Discussion :

[Zaza91280]

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.

[Sankasssss]

Hello,
Essaye de tout gérer dans une seul timer que tu appels toutes les xmiliseconde.
Tu fais donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private heurFin as date
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        heurFin = Now.AddMinutes(2)
        Timer1.Start()
    End Sub  
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim strTitre As String = "Heure : {0} et Compteur : {1}"
        Dim temps As TimeSpan = heurFin.Subtract(Now)
        Me.Text = String.Format(strTitre, Now.ToLongTimeString, temps.Minutes & ":" & temps.Seconds & ":" & temps.Milliseconds)
        If temps.TotalMilliseconds <= 0 Then
            Me.Text = String.Format(strTitre, Now.ToLongTimeString, "Fin du compte à rebours")
        End If
    End Sub

et tu as un compte à rebours précis au 100iem

[Zaza91280]

Merci .