VB.Net/Windows System/Registry — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:44, 26 мая 2010
Read and write with Registry
<source lang="vbnet"> Imports Microsoft.Win32 Public Class RegistryReader
Public Shared Sub SaveSize() Dim rk As RegistryKey rk = Registry.LocalMachine.CreateSubKey("Software\Acme\TestApp\") rk.SetValue("Height", 1) rk.SetValue("Width", 2) rk.SetValue("Left", 3) rk.SetValue("Top", 4) End Sub Public Shared Sub SetSize() Dim rk As RegistryKey rk = Registry.LocalMachine.OpenSubKey("Software\Acme\TestApp\") System.Console.WriteLine(CType(rk.GetValue("Height", 1), Integer)) System.Console.WriteLine(CType(rk.GetValue("Width", 2), Integer)) System.Console.WriteLine(CType(rk.GetValue("Left", 3), Integer)) System.Console.WriteLine(CType(rk.GetValue("Top", 4), Integer)) End Sub
End Class
</source>
Saving to the Registry
<source lang="vbnet"> 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
</source>