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

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

Синтаксис

expression. OldBorderStyle

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

Замечания

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

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

Пример

В следующем примере показано, как изменить свойство 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 и обратная связь.

  • Last updated on