| Вопрос: Реестр | Добавлено: 13.06.03 19:23 |
Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 |
|
Где то я видел статью про реестр на VB.net может кто знает где она. Там были все функции использования реестра. Т.е. считывание и записывание любого типа данных. Может кто знает альтернативы статьи тоже пишите. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: NetRat Вопросов: 10 Ответов: 11 |
Профиль | | #1 | Добавлено: 16.06.03 11:13 |
|
Imports Microsoft.Win32 Public Function RegValue(ByVal Hive As RegistryHive, _ ByVal Key As String, ByVal ValueName As String, _ OptionalByRef ErrInfo As String = "") As String
'DEMO USAGE 'Dim sAns As String 'Dim sErr As String = "" 'sAns = RegValue(RegistryHive.LocalMachine, _ ' "SOFTWARE\Microsoft\Windows\CurrentVersion", _ ' "ProgramFilesDir", sErr) 'If sAns <> "" Then ' Debug.WriteLine("Value = " & sAns) 'Else ' Debug.WriteLine("This error occurred: " & sErr) 'End If Dim objParent As RegistryKey Dim objSubkey As RegistryKey Dim sAns As String Select Case Hive Case RegistryHive.ClassesRoot objParent = Registry.ClassesRoot Case RegistryHive.CurrentConfig objParent = Registry.CurrentConfig Case RegistryHive.CurrentUser objParent = Registry.CurrentUser Case RegistryHive.DynData objParent = Registry.DynData Case RegistryHive.LocalMachine objParent = Registry.LocalMachine Case RegistryHive.PerformanceData objParent = Registry.PerformanceData Case RegistryHive.Users objParent = Registry.Users End Select Try objSubkey = objParent.OpenSubKey(Key) 'if can't be found, object is not initialized If Not objSubkey Is Nothing Then sAns = (objSubkey.GetValue(ValueName)) End If Catch ex As Exception ErrInfo = ex.Message Finally 'if no error but value is empty, populate errinfo If ErrInfo = "" And sAns = "" Then ErrInfo = _ "No value found for requested registry key" End If End Try Return sAns End Function |
||
|
Номер ответа: 2 Автор ответа: NetRatВопросов: 10 Ответов: 11 |
Профиль | | #2 | Добавлено: 16.06.03 11:17 |
|
Или совсем просто: SaveSetting(Application.ProductName, "FormPositions", frmAny.Name & "_Top", frmAny.Top.ToString) frmAny.Top = GetSetting(Application.ProductName, "FormPositions", frmAny.Name & "_Top", frmAny.Top.ToString) |
||
Страница: 1 |