Imports Microsoft.Win32
Private Sub CreateAndSetKey
Dim regVersion As Microsoft.Win32.RegistryKey
regVersion = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0")
Dim newVersion As Integer = 0
If (Not regVersion Is Nothing) Then
newVersion = Microsoft.Win32.regVersion.GetValue("Version", 0)
newVersion = newVersion + 1
regVersion.SetValue("Version", newVersion)
regVersion.Close()
End If
End Sub
Создает раздел реестра, SOFTWARE\\Microsoft\\TestApp\\1.0, и задает его значения.
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Реестр;
Работа с реестром;