Synchroniser l'heure avec un TextBox

Bonjour j'aurais besoin de votre aide car je voudrais synchroniser l'heure Actuel avec mon textBox.

J'explique lorsque j'entre une heure exemple 14:51:00 quand l'heure actuel sera rendu à cette heure la qu'il exécute mon choix donc Arrêter le système.

Est-ce Possible ?

Merci à l'avance


Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub cmdOk_Click() Dim lVer As Long If optArret.Value = False And optApplication.Value = False And optSession.Value = False Then 'Si tout les options sont faux MsgBox "Vous devez sélectionner l'une des options ci-haut." 'Affiche un message de choisir un option End If If txtHeure.Text = "" Then MsgBox "Il faut que vous entrez une heure." ElseIf Mid(txtHeure.Text, Len(txtHeure.Text) - 2, 1) <> ":" Then 'Vérifie si le 3ieme caractères est un ":" MsgBox "Vérifier que vous avez bien entré votre heure, voici un exemple: 14:25 ." 'Sinon Affiche un message avec exemple End If If txtHeure.Text = lblHeureActuel.Caption Then ElseIf optApplication.Value = True Then ExitWin EWX_FORCE, 4& ElseIf optArret.Value = True Then ExitWin EWX_SHUTDOWN, 0& End If End Sub   Private Sub TmrTimer_Timer() lblHeureActuel.Caption = Time End Sub

---

En gras c'est ce que j'essaye en se moment mais bon sa ne fonctionne pas.

Merci à l'avance de mieux m'éclaircir

Jack

Bonjour,

1) Il y aurait énormément à dire ,mais commence déjà par nous dire (en français) et sans code, ce que veut dire ceci (partie de ton code), sans omettre de traduire les elseif :

Code:

---

1 2 3 4 5 6

If txtHeure.Text = lblHeureActuel.Caption Then ElseIf optApplication.Value = True Then ExitWin EWX_FORCE, 4& ElseIf optArret.Value = True Then ExitWin EWX_SHUTDOWN, 0& End If

---

celle seule "traduction" devrait t'éclairer (éclaircir, ... je ne sais pas...)

2) si tu veux un arrêt synchronisé automatiquement, les instructions de cet arrêt doivent bien évidemment se répéter périodiquement (évènement Timer de ton Timer) et non au click sur ton bouton !

Ok voila apres quelques recherche voici la solution pour ceux que sa interesse:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TmrTimer_Timer() lblHeureActuel.Caption = Time If Mid(lblHeureActuel.Caption, 1, 5) = Mid(txtHeure.Text, 1, 5) Then If optApplication.Value = True Then ExitWin EWX_FORCE, 4& ElseIf optArret.Value = True Then ExitWin EWX_SHUTDOWN, 0&   End If End If End Sub

---

ExitWin EWX_FORCE, 4& : Redémarre le Pc
ExitWin EWX_SHUTDOWN, 0& : Arrête le Pc

Merci beaucoup de votre aide