Sujet : [Visual Basic] Horloge Windows |
Bendes |
Colle ce code dans une form
Code :
- Private Type SYSTEMTIME
- wYear As Integer
- wMonth As Integer
- wDayOfWeek As Integer
- wDay As Integer
- wHour As Integer
- wMinute As Integer
- wSecond As Integer
- wMilliseconds As Integer
- End Type
- Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
- Private Sub Form_Load()
- Dim lpSystemTime As SYSTEMTIME
- lpSystemTime.wYear = 2000
- lpSystemTime.wMonth = 1
- lpSystemTime.wDayOfWeek = -1
- lpSystemTime.wDay = 24
- ' Ici tu insère l'heure actuelle ou essayes sans initialiser ces variables...
- lpSystemTime.wHour = 23
- lpSystemTime.wMinute = 26
- lpSystemTime.wSecond = 0
- lpSystemTime.wMilliseconds = 0
- 'set the new time
- SetSystemTime lpSystemTime
- End Sub
|
[edtdd]--Message édité par Bendes--[/edtdd] |