[VB .Net] Définir l'heure système

Question

Bonjour,

En parallèle de la demande [VB .Net] Serveur de temps internet, je cherche également à définir l'heure système.

En me basant sur plusieurs exemples trouvés sur le net, j'ai essayé le code ci-après, mais cela ne fonctionne pas, ni pour définir, ni pour lire l'heure système.

Dans les 2 cas, même message d'erreur qui survient sur les 2 fonctions :
System.NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet.

Il y a certainement quelque chose que je ne fais pas comme il faut.

Merci pour votre aide,
Stéphane.

NB : ci-dessous l'exemple du code que j'essaie (à mettre dans 1 form et 2 boutons)

Public Class Form1
    Inherits System.Windows.Forms.Form

    Declare Sub GetSystemTime Lib "kernel32" (ByVal lpSystem As SYSTEMTIME)
    Declare Function SetSystemTime Lib "kernel32" (ByVal lpSystem As SYSTEMTIME) As Long

    Structure SYSTEMTIME
        Dim wYear As Integer
        Dim wMonth As Integer
        Dim wDayOfWeek As Integer
        Dim wDay As Integer
        Dim wHour As Integer
        Dim wMinute As Integer
        Dim wSecond As Integer
        Dim wMilliseconds As Integer
    End Structure

'Code généré par le Concepteur Windows Form
'...

    Private Sub Button1_get_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_get.Click

        Try
            Dim mon_heure As SYSTEMTIME

            GetSystemTime(mon_heure)

        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try

    End Sub

    Private Sub Button2_set_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_set.Click

        Try
            Dim mon_heure As SYSTEMTIME

            With mon_heure

                .wDay = 3
                .wMonth = 11
                .wYear = 2006
                .wHour = 14
                .wMinute = 30
                .wSecond = 50
                .wMilliseconds = 0

            End With

            Dim resultat As Long = SetSystemTime(mon_heure)

        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try

    End Sub

End Class

Answer 1

ce ne serais pas plus simple de faire

Private Sub Button1_get_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_get.Click

MsgBox(DateString + " " + TimeString)

End Sub

Private Sub Button2_set_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_set.Click

Today = New Date(2006, 11, 3)

TimeOfDay = New Date(1, 1, 1, 14, 30, 50)

End Sub

Answer 2

En effet, merci beaucoup, cela fonctionne parfaitement.