Как сохранить свои настройки в форме

@Lubocka · Регистрация: 15.11.2011

Студворк — интернет-сервис помощи студентам

1-й пример. Мне нужно чтоб ширина столбика в табличной форме была уже или шире, я меняю ширину, потом выхожу из формы, захожу в нее снова и вижу что мой столбик имеет прежнюю ширину, ту которая была до того как я меняла.
Выхожу из ситуации так: меняю ширину столбика, потом скрываю одну колонку, вхожу снова, ширина моего столбика поменяна, и отображаю снова скрытый столбик. Думаю есть способ проще.

2-й пример. Делаю форму шириной в 9 см . Вхожу в нее и она 20 см, высота тоже велика. Делаю с помощью мыши ее поменьше , выхожу, захожу она опять большая.
Выхожу из ситуации так. Захожу в форму меняю ее размер, не закрывая ее захожу в модуль нажимаю ентер или удаляю пустую строку, сохраняю модуль, закрываю форму. Открываю форму и уже нужный мне размер. Думаю тут тоже есть способ проще.

Не подскажите?

@minob · 30.04.2012, 21:09

По первому случаю.
В общий модуль помещаете процедуры

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub SetPropertiesTableFRM(FRM As Form)
On Error Resume Next
Dim AO As AccessObject, ctl As Control
  Set AO = CurrentProject.AllForms(FRM.Name)
  For Each ctl In FRM.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
      AO.Properties.Add ctl.Name & "_ColumnWidth", Str(Nz(ctl.ColumnWidth, 0))
      AO.Properties.Add ctl.Name & "_ColumnOrder", Str(Nz(ctl.ColumnOrder, 0))
      AO.Properties.Add ctl.Name & "_ColumnHidden", ctl.ColumnHidden
    End If
  Next
End Sub
 
Public Sub GetPropertiesTableFRM(FRM As Form)
On Error Resume Next
Dim AO As AccessObject, ctl As Control
  Set AO = CurrentProject.AllForms(FRM.Name)
  For Each ctl In FRM.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
      ctl.ColumnOrder = Val(AO.Properties(ctl.Name & "_ColumnOrder").Value)
      ctl.ColumnWidth = Val(AO.Properties(ctl.Name & "_ColumnWidth").Value)
      ctl.ColumnHidden = Val(AO.Properties(ctl.Name & "_ColumnHidden").Value)
    End If
  Next
End Sub

В процедуру обработки события "Загрузка" (Load) формы поместите код

Visual Basic
1
  GetPropertiesTableFRM Me

в процедуру обработки события "Выгрузка" (Unload) формы поместите код

Visual Basic
1
  SetPropertiesTableFRM Me

.
Сохраняется не только ширина полей, но и порядок следования полей, а также скрытие/отображение полей.

@Lubocka · 30.04.2012, 23:12 **[ТС]**

Что-то не корректно работает, столбики перемешались и черные пятна на форме в названиях.
И еще один существенный минус даже если будет корректно, медленнее открывается и закрывается форма.

@minob · 30.04.2012, 23:50

Сообщение от Lubocka

Что-то не корректно работает, столбики перемешались и черные пятна на форме в названиях.
И еще один существенный минус даже если будет корректно, медленнее открывается и закрывается форма.

Указанных недостатков у себя в тестовой форме не обнаружил. Выкладывайте свое "произведение", посмотрим.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Lubocka 126 / 1 / 1 Регистрация: 15.11.2011 Сообщений: 80

	Как сохранить свои настройки в форме 30.04.2012, 17:03. Показов 1909. Ответов 3 Метки нет (Все метки) 1-й пример. Мне нужно чтоб ширина столбика в табличной форме была уже или шире, я меняю ширину, потом выхожу из формы, захожу в нее снова и вижу что мой столбик имеет прежнюю ширину, ту которая была до того как я меняла. Выхожу из ситуации так: меняю ширину столбика, потом скрываю одну колонку, вхожу снова, ширина моего столбика поменяна, и отображаю снова скрытый столбик. Думаю есть способ проще. 2-й пример. Делаю форму шириной в 9 см . Вхожу в нее и она 20 см, высота тоже велика. Делаю с помощью мыши ее поменьше , выхожу, захожу она опять большая. Выхожу из ситуации так. Захожу в форму меняю ее размер, не закрывая ее захожу в модуль нажимаю ентер или удаляю пустую строку, сохраняю модуль, закрываю форму. Открываю форму и уже нужный мне размер. Думаю тут тоже есть способ проще. Не подскажите? 0

@Lubocka 126 / 1 / 1 Регистрация: 15.11.2011 Сообщений: 80
	30.04.2012, 23:12 [ТС]
	Что-то не корректно работает, столбики перемешались и черные пятна на форме в названиях. И еще один существенный минус даже если будет корректно, медленнее открывается и закрывается форма. 0