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

Статья
04/07/2023

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

Синтаксис

expression. OldBorderStyle

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

Замечания

Свойство 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 и обратная связь.