Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB.NET | 07.09.07 |
Umschaltung von Sommer- auf Winterzeit ändern Aktivieren und Deaktivieren der autom. Umschaltung von Sommer- auf Winterzeit | ||
Autor: mikeb69 | Bewertung: | Views: 9.385 |
www.powerdesktop-online.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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