Mettre l'heure courante dans une appli

Résolu
podolis
Messages postés
71
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
19 décembre 2010
- 19 mars 2008 à 15:11
nerd24
Messages postés
41
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008
- 19 mars 2008 à 15:35
Je ne connais absolument rien en programmation mais je débute.
J'ai télécharger Visual Basic 2008 et j'aimerais  afficher l'heure et la date  sur  ma Form1
J'ai réussit avec la fonction
Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = Now
    End Sub
mais celle-ci ce met à jour uniquement quand je clique dessus. J'ai bien compris que c'est du au fait que l'instruction ce lance au click mais je ne voit pas comment faire autrement

Merci

Médéric
Ergonome Logiciel

3 réponses

jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
19 mars 2008 à 15:12
Salut,
Place un Timer dans ta feuille et place  Label1.Text = Now dans l'événement Tick dut timer

@+: Ju£i?n
Pensez: Réponse acceptée
3
podolis
Messages postés
71
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
19 décembre 2010
1
19 mars 2008 à 15:20
Merci a toi pour ta réponse rapide et claire

Médéric
3
nerd24
Messages postés
41
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008

19 mars 2008 à 15:35
Je sais pas si ta reussi mais je vais te dire comment je fais avec vb.net (je sais pas si ça peut t'aider)
Quand tu ouvre un nouveau projet, tu double clique sur le controle Timer de la barre d'outil.
Apres tu double clique sur un Label et tu le fais assez grand.
 Dans propriete tu ecris:
Label1
Text           (vide)
TextAlign   MiddleCenter
Timer1
Enabled      True
Interval       1000

Apres tu double clique sur l'icone du Timer et tu ecris dans form1.vb:
Public

Class Form1

Private
Sub Timer1_Tick(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Timer1.TickLabel1.Text = TimeString

End
SubEnd

Class

Peut etre que toi tu devra ecrire Now a la place de TimeString vu kje suis sous vb.net
3