Поделиться через

Пример использования свойств Max, Min и Zoom и элементов управления Frame и ScrollBar

  • Статья

В следующем примере свойство Zoom используется для сжатия или увеличения сведений, отображаемых в форме, page или frame.

Этот пример включает в себя Frame, TextBox в frame и ScrollBar. Уровень увеличения Frame изменяется с помощью свойства Zoom. Пользователь может задавать значение Zoom с помощью полосы прокрутки (ScrollBar). Элемент TextBox используется для демонстрации эффекта увеличения.

В этом примере также используются свойства Max и Min для определения диапазона допустимых значений для ScrollBar.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

  • Метка с именем Label1.
  • полосу прокрутки ScrollBar с именем ScrollBar1;
  • вторую метку Label с именем Label2;
  • рамку Frame с именем Frame1;
  • текстовое поле TextBox с именем TextBox1, расположенное в Frame1.
Private Sub UserForm_Initialize() 
 ScrollBar1.Max = 400 
 ScrollBar1.Min = 10 
 ScrollBar1.Value = 100 
 
 Label1.Caption = "10 -----Percent of " _ 
 & "Original Size---- 400" 
 Label2.Caption = ScrollBar1.Value 
 
 Frame1.TextBox1.Text = "Enter your text here." 
 Frame1.TextBox1.MultiLine = True 
 Frame1.TextBox1.WordWrap = True 
 
 Frame1.Zoom = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Frame1.Zoom = ScrollBar1.Value 
 Label2.Caption = ScrollBar1.Value 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.