本文整理匯總了VB.NET中Microsoft.Win32.Registry.CurrentUser字段的典型用法代碼示例。如果您正苦於以下問題：VB.NET Registry.CurrentUser字段的具體用法？VB.NET Registry.CurrentUser怎麽用？VB.NET Registry.CurrentUser使用的例子？那麽, 這裏精選的字段代碼示例或許可以為您提供幫助。您也可以進一步了解該字段所在類Microsoft.Win32.Registry的用法示例。
在下文中一共展示了Registry.CurrentUser字段的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Reg
' 導入命名空間
Imports Microsoft.Win32
Class Reg
Public Shared Sub Main()
' Create a RegistryKey, which will access the HKEY_CURRENT_USER
' key in the registry of this machine.
Dim rk As RegistryKey = Registry.CurrentUser
' Print out the keys.
PrintKeys(rk)
End Sub
Shared Sub PrintKeys(rkey As RegistryKey)
' Retrieve all the subkeys for the specified key.
Dim names As String() = rkey.GetSubKeyNames()
Dim icount As Integer = 0
Console.WriteLine("Subkeys of " & rkey.Name)
Console.WriteLine("-----------------------------------------------")
' Print the contents of the array to the console.
Dim s As String
For Each s In names
Console.WriteLine(s)
' The following code puts a limit on the number
' of keys displayed. Comment it out to print the
' complete list.
icount += 1
If icount >= 10 Then
Exit For
End If
Next s
End Sub
End Class示例2: Tester
Option Strict On
Imports Microsoft.Win32
Public Module Tester
Public Sub Main
Dim regKey As RegistryKey
Dim keyTop As RegistryKey = Registry.CurrentUser
regKey = keyTop.OpenSubkey("Software\MyCompany\MyApp", True)
If regKey Is Nothing Then
regKey = keyTop.CreateSubKey("Software\MyCompany\MyApp")
End If
Dim binValue As Byte() = {&HF0, &HFF, &H12, &HE0, &H43, &HAC}
Dim strngValue As String() = {"A", "B","C", "D"}
'regKey.SetValue("WindowState", 0, RegistryValueKind.DWord)
'regKey.SetValue("CustomWindowCaption", "Client Contact Management",RegistryValueKind.String)
'regKey.SetValue("CustomPosition", binValue, RegistryValueKind.Binary)
'regKey.SetValue("CustomLabels", strngValue, RegistryValueKind.MultiString)
End Sub
End Module