Por defecto las claves trabajan en el nivel de Usuario, en subcarpeta con el nombre de tu aplicación.
Para grabar una clave en el registro usa el procedimiento:
Public Sub grabarClave(ByVal nombre as String, ByVal valor as String)
Try
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\" & appTitle,nombre,valor)
catch ex as Exception
msgbox ex.message
End Try
End Sub
La variable appTitle se declara al principio del módulo como:
Public appTitle as String = My.Application.Info.ProductName
y para leer clave del registro la siguiente función:
Public Function leerClave(ByVal nombre as String) as String
Dim valor as String="NULL"
Try
valor=My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\" & appTitle,nombre,"NULL")
if valor Is Nothing The valor="NULL"
Return valor
catch ex as Exception
msgbox ex.message
Return "NULL"
End Try
End Function
No hay comentarios:
Publicar un comentario