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

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

Синтаксис

выражение. OldBorderStyle

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

Примечания

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