在注册表中的位置列表内容

Question

我想填充窗体上的列表框的内容：HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Fonts。我能够读取“字体”中特定条目的详细信息并填充文本框，但我的愿望是只显示列表框中“字体”中的所有内容。任何人都可以协助

Answer 1

您可以使用Registry.LocalMachine及其OpenSubKey() method来打开注册表项以便读取。然后，只需调用上GetSubKeyNames()检索其子键的所有名称：

Using FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
    For Each SubKey As String In FontKey.GetSubKeyNames() 
     ListBox1.Items.Add(SubKey) 
    Next 
End Using 

也把这个在你的代码文件的顶部：

Imports Microsoft.Win32 

---

编辑：

由于上述似乎不适用于您尝试此方法手动关闭注册表项：

Dim FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
For Each SubKey As String In FontKey.GetSubKeyNames() 
    ListBox1.Items.Add(SubKey) 
Next 
FontKey.Close() 

---

编辑2：

充分利用指定的值名称值并不难，只需调用FontKey的GetValue() method：中

Dim FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
For Each ValueName As String In FontKey.GetValueNames() 
    Dim Value As Object = FontKey.GetValue(ValueName) 'Get the value (data) of the specified value name. 
    If Value IsNot Nothing Then 'Make sure it exists. 
     ListBox1.Items.Add(Value.ToString()) 
    End If 
Next 
FontKey.Close()