VPF::Пропорциональное изменение размеров субформы

Woodlin

Дата 28.12.2009, 07:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 188
Регистрация: 15.7.2009
Где: Челябинская облас ть, г. Пласт

Репутация: 1
Всего: 1

Желаю всем здравствовать.
Уважаемые форумчане, задумал сделать так чтобы при разворачивании формы на весь экран, или просто изменении размера формы посредством мыши, пропорционально увеличивались размеры и субформы. Подскажите как это реализовать, или в каком месте справки искать.

Akina

Дата 28.12.2009, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Только программно. Штатных средств для этого не существует.
А реализуешь ты это сам или с помощью чьих-то приблуд - дело твоё.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Woodlin

Дата 28.12.2009, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Цитата(Akina @ 28.12.2009, 09:00

)

Только программно. Штатных средств для этого не существует

Согласен. Мне кажется я представляю как можно это сделать, только у формы не нашёл свойство height, оно хоть есть?

Akina

Дата 28.12.2009, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(Woodlin @ 28.12.2009, 14:28

)

у формы не нашёл свойство height, оно хоть есть?

У формы - нет. Есть у области данных.

--------------------

Woodlin

Дата 12.1.2010, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Подскажите какие свойства или параметры формы меняются когда я изменяю её размеры мышью? Потому что ни Width формы, ни Height секция не меняются

bopoha

Дата 12.1.2010, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Woodlin, код в студтию. Как говорит Akina - телепаты в отпуске.

--------------------

Как создавать приложения на MS Access

Woodlin

Дата 12.1.2010, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Если честно я даже не представляю какой код выложить. Он у меня... в общем посмотрите сами.
А хочется мне сделать так, чтоб субформа изменяла свои размеры пропорционально размерам (если их изменить, растянуть по горизонтали к примеру) формы.

мой пример:

Присоединённый файл ( Кол-во скачиваний: 2 )

______.rar 174,64 Kb

bopoha

Дата 12.1.2010, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Так сразу и надо было:

Код


' количество твипов в сантиметрах
Const c_lTvipInSm As Long = 567

Public Sub CM_ResizeCtl(ByRef ctl As Control)
' Скоков С.А. 2006-12-16
' Изменяет размер элемента управления под оконные размеры формы.
' функция должна вызываться на событие Form_Resize()
' Элемент управления должен находится в области данных.
' Предполагается что он один и должен занимать всю облатсь данных.
' 0.6 * c_lTvipInSm и 1 * c_lTvipInSm константы, определенные опытным путем,
' чтобы элемент управления не прилипал к правой и ниженй части формы
On Error GoTo Err_
    Dim frm As Form
    Dim lCtlWidth As Long, lCtlHeight As Long
    Dim lDetailHeight As Long
    
    Set frm = ctl.Parent
    '-- изменение размеров "поверхности" формы
    frm.Width = frm.WindowWidth
    lDetailHeight = frm.WindowHeight - frm.Section(acHeader).Height - frm.Section(acFooter).Height
    '-- если форму свернуть, то произойдет ошибка
    If lDetailHeight < 0 Then
        Exit Sub
    End If
    
    frm.Section(acDetail).Height = lDetailHeight
    '-- изменение размеров элемента управления
    lCtlWidth = frm.WindowWidth - ctl.Left * 2 - 0.4 * c_lTvipInSm
    lCtlHeight = frm.WindowHeight - ctl.Top * 2 - 1 * c_lTvipInSm _
                - frm.Section(acHeader).Height - frm.Section(acFooter).Height

    If lCtlWidth > c_lTvipInSm Then ctl.Width = lCtlWidth
    If lCtlHeight > c_lTvipInSm Then ctl.Height = lCtlHeight
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Resume Exit_
    Resume
End Sub

Пример использования (f_spis_ - имя контрола, который содержит подчиненную форму):

Код


Private Sub Form_Resize()
    Call mc_Form.VC_ResizeCtl(Me.f_spis_)
End Sub

--------------------

Как создавать приложения на MS Access

Sawell

Дата 13.1.2010, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 19.12.2009

Репутация: нет
Всего: нет

Я Так делаю, на событие Изменение размера основной формы ставлю след. код:

Код


Private Sub Form_Resize() 'Подгонка по форме

On Error Resume Next
Me!ecran.Width = Me.WindowWidth
Me!ecran.Height = Me.WindowHeight

Me!Название.Height = Me.WindowHeight - 300 - Me!Название.Top * 2
Me![подчиненная форма ТоварыНаСкладах].Height = Me!Название.Height - 500
Me![подчиненная форма ТоварыНаСкладах].Width = Me.WindowWidth - Me![подчиненная форма ТоварыНаСкладах].Left
Me!Кнопка10.Top = Me![подчиненная форма ТоварыНаСкладах].Height + Me![подчиненная форма ТоварыНаСкладах].Top + 100
Me!Кнопка18.Top = Me!Кнопка10.Top
Me!Надпись16.Top = Me!Кнопка10.Top
Me!Поле15.Top = Me!Кнопка10.Top
Me!Поле15.Left = Me!ecran.Width - Me!Поле15.Width - 500
Me!Надпись16.Left = Me!Поле15.Left - Me!Надпись16.Width


End Sub

-где [Название] это поле со списком справа от подчин. Формы
[ecran] это типо облость данных

Это сообщение отредактировал(а) Akina - 13.1.2010, 19:06

Akina

Дата 13.1.2010, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

M
Akina

Используйте тег "Код". И смотрите, какой тип кода при этом указываете.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »