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
|
