Программирование
Веб программирование

Еще один пример с реестром

 
 
Private Sub btnSaveReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveReg.Click

If TextBox1.Text = ("") Then MsgBox("Заполнить текстовое поле") Exit Sub End If

'Запись в реестр My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINESOFTWARETestVBNET", "Test", TextBox1.Text, Microsoft.Win32.RegistryValueKind.String) My.Computer.Registry.LocalMachine.Close()

End Sub

Private Sub btnLoadReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadReg.Click

'Читаем из реестра Dim strLoadReg As String

strLoadReg = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINESOFTWARETestVBNET", "Test", Nothing) My.Computer.Registry.LocalMachine.Close()

TextBox1.Text = (strLoadReg)

End Sub

Private Sub btnDeleteValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteValue.Click

'Удаления ключа из реестра On Error GoTo ErrDeleteReg

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARETestVBNET", True).DeleteValue("Test", True) My.Computer.Registry.LocalMachine.Close()

MsgBox("Delete")

Exit SubErrDeleteReg: MsgBox("Ключ в реестре не найден!.")

End Sub

Private Sub btnDeleteSubKey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSubKey.Click

'Удаления папки из реестра On Error GoTo ErrDeleteSubKey

My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARETestVBNET") My.Computer.Registry.LocalMachine.Close()

MsgBox("Delete")

Exit SubErrDeleteSubKey: MsgBox("Папка в реестре не найдена!.")

End Sub

Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.