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

Свойство ComboBox.OldBorderStyle (Access)

  • Статья

Используйте это свойство, чтобы задать или вернуть нередредованное значение свойства BorderStyle для формы или элемента управления. Это свойство полезно, если необходимо вернуться к неотредованном или предпочтительному стилю границы. Чтение и запись байтов.

Синтаксис

expression. OldBorderStyle

Выражение Переменная, представляющая объект ComboBox .

Замечания

Свойство OldBorderStyle использует следующие параметры.

Setting Visual Basic Описание
Transparent 0 (По умолчанию только для метки, диаграммы и вложенного отчета) Прозрачный
Сплошная 1 (по умолчанию) Сплошная линия
Тире 2 Пунктирная линия
Короткие дефисы 3 Пунктирная линия с короткими дефисами
Точки 4 Пунктирная линия
Разреженные точки 5 Пунктирная линия с точками, расставленными далеко друг от друга
Точка тире 6 Линия с сочетанием точек и тире
Точка тире 7 Линия с сочетанием точек и точек
Двойной сплошной 8 Двойные сплошные линии

Пример

В следующем примере показано, как изменить свойство BorderStyle элемента управления, не изменив значение OldBorderStyle . В завершение примера для свойства BorderStyle задалось его исходное неотредованное значение.

With Forms("Order Entry").Controls("ZIP Code")
    .BorderStyle = 3 ' Short dashed border. 
  
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 3, 1. 
 
    .BorderStyle = 2 ' Dashed border. 
  
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 2, 1 
  
    .BorderStyle = .OldBorderStyle ' Solid (default) border. 
         
    MsgBox "BorderStyle = " & .BorderStyle & vbCrLf & _ 
        "OldBorderStyle = " & .OldBorderStyle  ' Prints 1, 1 
End With

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

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