| Вопрос: Запись настроек? | Добавлено: 01.12.06 22:06 |
Автор вопроса:  HyperSonic
|
| Не подскажете код для чтения и записи настроек? На vb6 |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  ADSemenov.ru Вопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #1 | Добавлено: 01.12.06 23:33 |
|
____ Вот, "надёргал" из моей проги. Надеюсь ничего лишнего. —
'Загрузка формы
' Private Sub MDIForm_Load() ' Восстановление параметров формы: Me.Left = GetSetting(App.Title, "MDIForm", "Left", 1000) Me.Top = GetSetting(App.Title, "MDIForm", "Top", 1000) Me.Width = GetSetting(App.Title, "MDIForm", "Width", 6500) Me.Height = GetSetting(App.Title, "MDIForm", "Height", 6500) Me.WindowState = GetSetting(App.Title, "MDIForm", "State", vbNormal) ' Восстановление переменных приложения: Me.ПапкаРабочая = GetSetting(App.Title, "App", "WorkPath", "" 
End Sub 'Выгрузка формы ' Private Sub MDIForm_Unload(Cancel As Integer) ' Сохранение параметров формы: SaveSetting App.Title, "MDIForm", "State", Me.WindowState SaveSetting App.Title, "MDIForm", "Tree", Me.pcbЛеваяПанель.Visible SaveSetting App.Title, "MDIForm", "Status", Me.stbСтатус.Visible If Me.WindowState = vbNormal Then SaveSetting App.Title, "MDIForm", "Left", Me.Left SaveSetting App.Title, "MDIForm", "Top", Me.Top SaveSetting App.Title, "MDIForm", "Width", Me.Width SaveSetting App.Title, "MDIForm", "Height", Me.Height End If ' Сохранение переменных приложения SaveSetting App.Title, "App", "WorkPath", Me.ПапкаРабочая End Sub ____ Короче, что-то в этом роде... |
||
|
Номер ответа: 2 Автор ответа: HyperSonic Вопросов: 3 Ответов: 1 |
Профиль | | #2 | Добавлено: 02.12.06 20:02 |
|
Me.ПапкаРабочая = GetSetting(App.Title, "App", "WorkPath", "" - объясни чайнику, насчёт Me.ПапкаРабочая, пожалуйста!
|
||
|
Номер ответа: 3 Автор ответа:  Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #3 | Добавлено: 02.12.06 20:34 |
| это переменная или контрол | ||
|
Номер ответа: 4 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #4 | Добавлено: 03.12.06 12:51 |
|
____ Дык, это мусор "пробежал". Это пользовательская переменная, которые можно тоже записывать в реестр для последующего восстановления при очередном запуске приложения.
____ Забыл выкинуть в примере. |
||
Страница: 1 |