本文整理汇总了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