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

  • 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

    vendredi 3 novembre 2006 22:56

Réponses

  • 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

    samedi 11 novembre 2006 08:52

Toutes les réponses

  • 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

    samedi 11 novembre 2006 08:52
  • En effet, merci beaucoup, cela fonctionne parfaitement.
    lundi 13 novembre 2006 08:35