Label.OldBorderStyle Property (Access)
You can use this property to set or returns the unedited value of the BorderStyle property for a form or control. This property is useful if you need to revert to an unedited or preferred border style. Read/write Byte.
Syntax
expression .OldBorderStyle
expression A variable that represents a Label object.
Remarks
The OldBorderStyle property uses the following settings.
Setting |
Visual Basic |
Description |
|---|---|---|
Transparent |
0 |
(Default only for label, chart, and subreport) Transparent |
Solid |
1 |
(Default) Solid line |
Dashes |
2 |
Dashed line |
Short dashes |
3 |
Dashed line with short dashes |
Dots |
4 |
Dotted line |
Sparse dots |
5 |
Dotted line with dots spaced far apart |
Dash dot |
6 |
Line with a dash-dot combination |
Dash dot dot |
7 |
Line with a dash-dot-dot combination |
Double solid |
8 |
Double solid lines |
Note
-
If the OldBorderStyle property is set to None or Dialog, the form doesn't have Maximize or Minimize buttons, regardless of its MinMaxButtons property setting.
-
If the OldBorderStyle property is set to None, the form doesn't have a Control menu, regardless of its ControlBox property setting.
-
The OldBorderStyle property setting doesn't affect the display of the scroll bars, navigation buttons, the record number box, or record selectors.
Example
The following example demonstrates the effect of changing a control's BorderStyle property, while leaving the OldBorderStyle unaffected. The example concludes with setting the BorderStyle property to its original unedited value.
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