CustomControl.OldBorderStyle Property (Access)
TOC
Collapse the table of content
Expand the table of content
Important This document may not represent best practices for current development, links to downloads and other resources may no longer be valid. Current recommended version can be found here. ArchiveDisclaimer

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

expression .OldBorderStyle

expression A variable that represents a CustomControl object.

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

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
Show:
© 2016 Microsoft