[CDR X5-X8] Работа с реестром

  • Автор темы Автор темы izrukvruki
  • Дата начала Дата начала

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 881
Реакции
311
117667

117668
 
  • Спасибо
Реакции: izrukvruki
... э-э ... не из вашего, а макроса по вашему запросу ... :)
обычно, я эти штуки всегда в макросах использую...
не очень нравится мне когда всегда по центру .
а формулировка
из вашего макроса
чтобы искать было ближе
 
  • Спасибо
Реакции: izrukvruki
Вот код, который я использую в своих макросах (в формах):

Private nameGroup As String
Private nameFolder As String

Private Sub Class_Initialize()
nameGroup = "nameMacros"
nameFolder = "savePosition"
End Sub

Private Sub UserForm_Activate()
Me.Left = GetSetting(nameGroup, nameFolder, "left", "0")
Me.Top = GetSetting(nameGroup, nameFolder, "top", "0")
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SaveSetting nameGroup, nameFolder, "left", Me.Left
SaveSetting nameGroup, nameFolder, "top", Me.Top
End Sub
 
  • Спасибо
Реакции: izrukvruki
Только не надо забывать про привиллегии на доступ к реестру, которые в актуальных версиях могут ночить параноидальный характер