Visual basic express 2010:Leer clave de registro de windows a ListBox

Para local machine
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FontKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE")
        For Each SubKey As String In FontKey.GetSubKeyNames()
            ListBox1.Items.Add(SubKey)
        Next
        FontKey.Close()
    End Sub
End Class

Para current user
</pre>
Public Class Form1
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim FontKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("software\")
 For Each SubKey As String In FontKey.GetSubKeyNames()
 ListBox1.Items.Add(SubKey)
 Next
 FontKey.Close()
 End Sub
End Class
<pre>









Tuitear


                                        
Escribe un Comentario                                        Sábado 30 enero 2016                                        Sin categoría