Mega Code Archive

 

Categories / VB.Net / Windows System

 

Saving to the Registry

Module MainModule     Public Function ReadFromRegistry(ByVal Location As String, ByVal Name As String)         Dim MyKey As Microsoft.Win32.RegistryKey         MyKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Location)         ReadFromRegistry = MyKey.GetValue(Name)         MyKey.Close()     End Function     Public Sub WriteToRegistry(ByVal Location As String, ByVal Name As String, ByVal Data As String)         Dim MyKey As Microsoft.Win32.RegistryKey         MyKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(Location)         MyKey.SetValue(Name, Data)         MyKey.Close()     End Sub End Module