Событие Zoom (Расширение)
Возникает при изменении свойства Zoom у диалогового окна или элементов рамка и набор страниц.
Заголовок процедуры обработки события Zoom для набора страниц имеет вид:
Private Sub объект_Zoom (индекс As Long, Процент As Integer)
а для рамки:
Private Sub объект_Zoom (Percent As Integer)
Здесь объект - имя объекта, которому принадлежит процедура, index - индекс страницы, которая изменяет размер, а Percent (Процент) - задает размер растяжения или сжатия в процентах. Его возможные значения лежат в диапазоне от 10% до 400%. Если значения меньше 100, размер диалогового окна уменьшается, больше 100 - увеличивается. В процедуре можно задать величину этого параметра.
В следующем примере при расширении окна в него добавляется полоса прокрутки, а при уменьшении - она убирается.
Private Sub UserForm_Zoom (Proc As Integer) Dim NewSize As Double If Proc >= 100 Then ' увеличение размера ScrollBars = fmScrollBarsBoth ' создать полосы прокрутки ScrollLeft = 0 ScrollTop = 0 NewSize = Width * Proc / 100 ScrollWidth = NewSize ' ширина полосы прокрутки NewSize = Height * Proc / 100 ScrollHeight = NewSize ' высота полосы прокрутки Else ' уменьшение размера ScrollBars = fmScrollBarsNone ' скрыть полосу прокрутки ScrollLeft = 0 ScrollTop = 0 End If End Sub
