VB : Affichage de l'heure
Fermé
Utilisateur anonyme
-
12 mars 2013 à 12:37
jean-philippe59400 Messages postés 2 Date d'inscription mardi 14 janvier 2014 Statut Membre Dernière intervention 14 janvier 2014 - 14 janv. 2014 à 20:17
jean-philippe59400 Messages postés 2 Date d'inscription mardi 14 janvier 2014 Statut Membre Dernière intervention 14 janvier 2014 - 14 janv. 2014 à 20:17
A voir également:
- VB : Affichage de l'heure
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Range vb - Forum VB / VBA
2 réponses
Utilisateur anonyme
9 janv. 2014 à 20:37
9 janv. 2014 à 20:37
Bonjour, tu mais 1 label et 1 timer ensuite tu click sur ta form1.
tu met sa comme code dans ta Form1 : Label1.Text = TimeOfDay
Ensuite tu click sur ton timer et tu met sa : timer1.start
et quand tu le lance sa te le mais la date de ton PC
tu met sa comme code dans ta Form1 : Label1.Text = TimeOfDay
Ensuite tu click sur ton timer et tu met sa : timer1.start
et quand tu le lance sa te le mais la date de ton PC
jean-philippe59400
Messages postés
2
Date d'inscription
mardi 14 janvier 2014
Statut
Membre
Dernière intervention
14 janvier 2014
14 janv. 2014 à 20:17
14 janv. 2014 à 20:17
Salut
comme ta dit infosterek tu a sa possibilité, sinon
un label (sans nom) modifie la police a ta guise (pour ma part Digital 7)
un timer
propriété
Enabled = true
Interval = 1000
tu colle se code la dans le private form1_load
[code]
Dim minute As String = Date.Now.Minute
Dim second As String = Date.Now.Second
If second < 10 And second >= 0 Then
second = 0 & second
End If
If minute < 10 And minute >= 0 Then
minute = 0 & minute
End If
Label1.Text = Date.Now.Hour & " : " & Date.Now.Minute & " : " & second
[/code]
comme ta dit infosterek tu a sa possibilité, sinon
un label (sans nom) modifie la police a ta guise (pour ma part Digital 7)
un timer
propriété
Enabled = true
Interval = 1000
tu colle se code la dans le private form1_load
[code]
Dim minute As String = Date.Now.Minute
Dim second As String = Date.Now.Second
If second < 10 And second >= 0 Then
second = 0 & second
End If
If minute < 10 And minute >= 0 Then
minute = 0 & minute
End If
Label1.Text = Date.Now.Hour & " : " & Date.Now.Minute & " : " & second
[/code]
