Umschaltung von Sommer- auf Winterzeit ändern Aktivieren und Deaktivieren der autom. Umschaltung von Sommer- auf Winterzeit
Autor:   mikeb69	Bewertung:     [ Jetzt bewerten ]	Views:  9.900
www.powerdesktop-online.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unter "Systemsteuerung/Datums- Zeit- .../Datum und Uhrzeit ändern/Zeitzone" kann eingestellt werden, ob autom. von Sommer auf Winterzeit umgestellt werden soll.

Diese Einstellung können Sie auch aus Ihrer Anwendung heraus vornehmen, indem Sie in der Registry einen Wert (Value) hinzufügen bzw. entfernen.

Hier ein Beispielcode:

Imports Microsoft
Imports Microsoft.Win32
 
Public Class Form1
 
  ' Setzt die Umschaltung von Sommer- auf Winterzeit
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Key zum Schreiben öffnen
    Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey( _
      "SYSTEM\CurrentControlSet\Control\TimeZoneInformation", True)
 
    ' Wert 1 in Registry schreiben
    reg.SetValue("DisableAutoDaylightTimeSet", 1)
    reg.Close()
  End Sub
 
  ' Unterbindet die autom. Umschaltung von Sommer- auf Winterzeit
  Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
 
    ' Key zum Schreiben öffnen
    Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey( _
      "SYSTEM\CurrentControlSet\Control\TimeZoneInformation", True)
    Try
      ' Registry-Wert löschen
      reg.DeleteValue("DisableAutoDaylightTimeSet")
    Catch ex As Exception
      MessageBox.Show("Die Umschaltung von Sommer auf Winterzeit " & _
        "ist schon aktiviert !!!")
    End Try
    reg.Close
  End Sub
 
End Class