gutorov » 21.11.2006 (Вт) 9:47
Так я записал
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
'********************************************************************
' запишем в реестр всякую всячину
Dim regSave As Microsoft.Win32.RegistryKey
regSave = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("software\Eastegger\Form")
' позиция на экране
regSave.SetValue("LocationX", Me.Location.X.ToString) ' LocationX
regSave.SetValue("LocationY", Me.Location.Y.ToString) ' LocationY
'Language
regSave.SetValue("Language", Language) 'Language
regSave.Close() ' закрываешь реестр после записи
'********************************************************************
End Sub
так считал
Private Sub Form1_Load(......................)
' здесь повытаскиваем из реестра то что нам нужно
Dim regLoad As Microsoft.Win32.RegistryKey
On Error Resume Next ' идем дальше, если этой ветки у нас нет
regLoad = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("software\Eastegger\Form")
' а это загрузим форму в тоже место экрана, откуда она была выгружена
SetDesktopLocation(CType(regLoad.GetValue("LocationX"), Integer), (CType(regLoad.GetValue("LocationY"), Integer)))
' это вытащим язык
Language = regLoad.GetValue("Language")
On Error GoTo 0 ' перестаем идти дальше, если выскачит ошибка
regLoad.Close()