La date est l'heure dans un label ?

Version imprimable

04/02/2007, 18h28
gastoncs

La date est l'heure dans un label ?

Pouvez m'indiquer quelle est le code a mettre dans un label pour avoir l'heure actuel. merci beaucoup

Code:

1
2
MonLabel.Text = DateTime.Now.ToString("HH:mm") 'Pour l'heure
MonLabel.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date

J'ai bien copié ceci dans mon label mais rien ne s'affiche pourquoi ???

Code:

1
2
3
4
5
6
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = DateTime.Now.ToString("HH:mm") 'Pour l'heure
        Label1.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date
    End Sub
End Class

04/02/2007, 20h43
The_badger_man

ça ne s'affichera que si tu clic sur ton label....
04/02/2007, 20h58
gastoncs

et comment faire pour que ca s'affiche sans que je clique, et que l'heure ce rafraichisse enfin je veux dire que les minutes et les heures défiles ?
Merci pour votre aide
05/02/2007, 08h56
RideKick

si tu es en framework 2 tu peux utiliser l objet 'timer' et rafrachir le label toutes les secondes...
05/02/2007, 19h11
gastoncs

est existe t'il des exemples car je ne sais pas du tout comment faire ?
05/02/2007, 19h18
Zyth

Ajoute un objet "Timer" à ta feuille et va dans le menu des événements de celui-ci. Double-clique sur l'événement "Tick" et dans la partie code, mets les instructions que j'ai écris précedemment.

Finalement, au load de ta feuille, tu appelle la méthode "Start" de ton objet "Timer".

Donc voila mon code j'ai rajouter le timer et pouver vous me modifier le reste du code pour que cela fonctionne, et aussi pour affiché la date. Merci pour votre aide...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Class Form1
 
    Private Declare Function PlaySound& Lib "winmm.dll" _
    (ByVal lpszName As String, ByVal hModule As Long, _
    ByVal dwFlags As Long)
 
    Const SND_ASYNC = &H1 'constante indiquant que le fichier doit être jouer de façon
    ' Asynchrone, c'est-à-dire permettre à votre programme de
    'continuer son exécution sans attendre la fin de la lecture du
    'fichier son.
    Const MonFichier = "D:\Documents and Settings\Laurent\Bureau\C++\online.wav" 'vous pouvez appeller le fichier que vous souhaitez
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If PlaySound(MonFichier, 0&, SND_ASYNC) = False Then
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
 
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub DateTimePicker1_value(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
 
    End Sub
 
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
 
    End Sub
 
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
 
    End Sub
 
 
    Private Sub Label1_Text(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
 
    End Sub
 
    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = DateTime.Now.ToString("HH:mm") 'Pour l'heure
        Label1.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date
    End Sub
End Class

05/02/2007, 22h59
Hombre87

ces tres simple voicie le code

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now.ToString("HH:mm:ss") 'Pour l'heure 1er label
Label2.Text = DateTime.Now.ToString("dd/MM/yyyy") ' Pour la date 2eme label
End Sub
End Class
:roll: :mouarf: :)
06/02/2007, 19h07
gastoncs

Merci beaucoup ca fonctionne
je t'aime:D
10/02/2007, 23h56
Hombre87

heureu pour toi

:oops: tout le plaisir et pour nous:king: :aie: