Rectangle.OldBorderStyle Property

  • Article
Access Developer Reference

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 Rectangle 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
Bb217082.vs_note(en-us,office.12).gif  Notes

  • 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.

Visual Basic for Applications 
  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 = " &amp; .<strong class="bterm">OldBorderStyle</strong>  ' Prints 2, 1

.BorderStyle = .<strong class="bterm">OldBorderStyle</strong> ' Solid (default) border.
    
MsgBox "BorderStyle = " &amp; .BorderStyle &amp; vbCrLf &amp; _
    "OldBorderStyle = " &amp; .<strong class="bterm">OldBorderStyle</strong>  ' Prints 1, 1



End With