Meilleur auteur de réponses
comment programmer un bouton pour afficher l heure reel

Question
-
Réponses
-
Bonjour Isabelle,
Est-ce ceci que tu veux :
Public Class Form1 ' mettre 1 objet "Button"
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(TimeOfDay)
End Sub
End Class
Cordialement :o)
Joe ___ Romans et Logiciels ___ http://irolog.free.fr- Marqué comme réponse Alex Petrescu vendredi 8 janvier 2010 10:19
-
Bonjour Isabelle,
Tout dépend de ce que vous voulez faire.
Je m'explique si l'objectif est juste d'afficher l'heure à un moment donné sans rafraichissement chaque minute et bien cette ligne de code est suffisante :
MsgBox(DateTime.Now.ToShortTimeString())
Si vous voulez souhaitez avoir continuellement l'heure exacte affichée sur votre fenêtre vous pouvez procéder de cette manière :
Vous ajouter à votre fenêtre un Timer (System.Windows.Forms.Timer)
Dans les propriétés vous mettez un interval de 60000 (1 minute)
+ Un label pour afficher l'heure (lblMinuteur dans notre exemple)
Dans le code :
Public Class Form1 Dim monDatetime As DateTime = DateTime.Now Private Sub Minuteur_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minuteur.Tick monDatetime = monDatetime.AddMinutes(1) lblMinuteur.Text = monDatetime.ToShortTimeString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Minuteur.Interval = 60000 Minuteur.Start() lblMinuteur.Text = monDatetime.ToShortTimeString() End Sub End Class
C'est juste un exemple que vous pouvez améliorer sans problème. Bien entendu, il y aura un décalage de quelques secondes entre l'heure affichée dans votre fenêtre et l'heure réelle...
Coridalement,
Mathieu Francesch Sharplog Engineering http://www.sharplog.fr- Proposé comme réponse Mathieu Francesch mardi 5 janvier 2010 16:42
- Marqué comme réponse Alex Petrescu vendredi 8 janvier 2010 10:19
Toutes les réponses
-
Bonjour Isabelle,
Est-ce ceci que tu veux :
Public Class Form1 ' mettre 1 objet "Button"
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(TimeOfDay)
End Sub
End Class
Cordialement :o)
Joe ___ Romans et Logiciels ___ http://irolog.free.fr- Marqué comme réponse Alex Petrescu vendredi 8 janvier 2010 10:19
-
Bonjour Isabelle,
Tout dépend de ce que vous voulez faire.
Je m'explique si l'objectif est juste d'afficher l'heure à un moment donné sans rafraichissement chaque minute et bien cette ligne de code est suffisante :
MsgBox(DateTime.Now.ToShortTimeString())
Si vous voulez souhaitez avoir continuellement l'heure exacte affichée sur votre fenêtre vous pouvez procéder de cette manière :
Vous ajouter à votre fenêtre un Timer (System.Windows.Forms.Timer)
Dans les propriétés vous mettez un interval de 60000 (1 minute)
+ Un label pour afficher l'heure (lblMinuteur dans notre exemple)
Dans le code :
Public Class Form1 Dim monDatetime As DateTime = DateTime.Now Private Sub Minuteur_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minuteur.Tick monDatetime = monDatetime.AddMinutes(1) lblMinuteur.Text = monDatetime.ToShortTimeString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Minuteur.Interval = 60000 Minuteur.Start() lblMinuteur.Text = monDatetime.ToShortTimeString() End Sub End Class
C'est juste un exemple que vous pouvez améliorer sans problème. Bien entendu, il y aura un décalage de quelques secondes entre l'heure affichée dans votre fenêtre et l'heure réelle...
Coridalement,
Mathieu Francesch Sharplog Engineering http://www.sharplog.fr- Proposé comme réponse Mathieu Francesch mardi 5 janvier 2010 16:42
- Marqué comme réponse Alex Petrescu vendredi 8 janvier 2010 10:19
-
-