sheena k Ответов: 1

Как прочитать (по умолчанию) значение ключа из реестра с помощью VB6

Как прочитать (по умолчанию) значение ключа из реестра с помощью VB6;

Что я уже пробовал:

Private Sub cmdRDetails_Click()
Dim strResult As String
strResult = strResult & GetMeRegistry("ABC.OCX") + vbCrLf
End Sub
Public Function GetMeRegistry(ByVal RootKey As String) As String
txtRegistryDetail.Text=GetMeRegistry("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\6.0\0\win32\Default")
End Function

Richard MacCutchan

Что происходит в GetMeRegistry подпрограмма?

1 Ответов

Рейтинг:
1

OriginalGriff

"Аргумент не является необязательной ошибкой"
Сообщение об ошибке не требует пояснений: вы определяете метод, который принимает два аргумента:

Public Function GetMeRegistry(ByVal componentName As String, ByVal RootKey As String) As String
И вы называете это только одним:
GetMeRegistry("ABC.OCX")
Либо добавьте второй параметр в вызов, либо удалите его из определения.
Вероятно, в какой-то момент вам также нужно будет вернуть значение из функции...

Но...Вам повезло, что он не компилируется, потому что он не будет работать:
Public Function GetMeRegistry(ByVal componentName As String, ByVal RootKey As String) As String
txtRegistryDetail.Text=GetMeRegistry("HKEY_...\Default")
End Function
Все, что он делает, он называет сам, так что он рухнет с "out of stack space" почти сразу.

sheena k

да, правильно,но я хочу найти значение реестра с помощью корневого имени ключа. можете ли вы помочь мне для чтения значения ключа в том же самом

OriginalGriff

https://www.google.co.uk/search?q=read+from+registry+vb&oq=read+from+registry+vb&aqs=chrome..69i57j0l5.7631j0j7&sourceid=chrome&ie=UTF-8
Просто пройдите по нескольким ссылкам...

sheena k

Спасибо :)

OriginalGriff

Пожалуйста!