Основы офисного программирования и язык VBA


Событие 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




Начало  Назад  Вперед



Книжный магазин