Комментарий к записи Изменение размеров элементов управления при изменении размеров формы (MS Access 2003) (Sasha Volovod)

Sasha Volovod — Thu, 25 Aug 2011 07:36:39 +0000

Для определения этих значений я использую следующий трюк: Пишу обработчик события изменения размеров формы:

Private Sub Form_Resize()
    Debug.Print "========="
    Debug.Print "tbFirstName.Width: " & Me.InsideWidth - Me.tbFirstName.Width
    Debug.Print "tbNotes.Height: " & Me.InsideHeight - Me.tbNotes.Height
    Debug.Print "btnClose.Top:  " & Me.InsideHeight - Me.btnClose.Top
End Sub

После этого изменяю размер формы таким образом, чтобы оставить небольшой зазор справа для элементов tbLastName, tbFirstName, tbTitle, tbNotes и отступ снизу, достаточный для размещения кнопки. Аналогичным образом определяю смещение от верхнего края формы для кнопки. В окне Immediate смотрю последние значения:

=========
tbFirstName.Width: 1854
tbNotes.Height: 2202
btnClose.Top:  500

Для определения горизонтального смещения кнопки от ширины формы вычитаем ширину кнопки и делим на 2 (для горизонтального центрирования кнопки). После определения смещений код из Form_Resize() удаляю, он больше не нужен.

Комментарий к записи Изменение размеров элементов управления при изменении размеров формы (MS Access 2003) (Wizard)

Wizard — Thu, 25 Aug 2011 06:53:17 +0000

simply_sash,

А откуда берутся эти размеры?
1854,2202,500 кнопка Close/2.

Комментарии на сайте Нюансы программирования

Комментарий к записи Изменение размеров элементов управления при изменении размеров формы (MS Access 2003) (Sasha Volovod)

Комментарий к записи Изменение размеров элементов управления при изменении размеров формы (MS Access 2003) (Wizard)