Dim readValue = My.Computer.Registry.GetValue( "HKEY_CURRENT_USER\Software\MyApp", "Name", Nothing)
สร้างค่ารีจิสเตอร์
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyTestKey", "MyTestKeyValue", "This is a test value.")
ลบค่ารีจิสเตอร์
My.Computer.Registry.CurrentUser.DeleteSubKey( "Software\TestApp")
อ่านและเขียนค่ารีจิสเตอร์
Dim regVersion = Microsoft.Win32.Registry.CurrentUser.OpenSubKey( "SOFTWARE\\Microsoft\\TestApp\\1.0", True) If regVersion Is Nothing Then ' Key doesn't exist; create it. regVersion = Microsoft.Win32.Registry.CurrentUser.CreateSubKey( "SOFTWARE\\Microsoft\\TestApp\\1.0") End If Dim intVersion As Integer = 0 If regVersion IsNot Nothing Then intVersion = regVersion.GetValue("Version", 0) intVersion = intVersion + 1 regVersion.SetValue("Version", intVersion) regVersion.Close() End If
สนับสนุน
Windows
8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7,
Windows Vista SP2, Windows Server 2008 (Server Core Role not
supported), Windows Server 2008 R2 (Server Core Role supported with SP1
or later; Itanium not supported)
.NET Framework
Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0.NET Framework Client Profile
Supported in: 4, 3.5 SP1
อ้างอิง
http://msdn.microsoft.com/en-us/library/85t3c3hf.aspx
ไม่มีความคิดเห็น:
แสดงความคิดเห็น