Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Verwenden Sie diese Eigenschaft, um den unbearbeiteten Wert der BorderStyle-Eigenschaft für ein Formular oder Steuerelement festzulegen oder zurückzugeben. Diese Eigenschaft ist vor allem dann hilfreich, wenn Sie ein unbearbeitetes oder bevorzugtes Rahmenformat wiederherstellen müssen. Byte-Wert mit Lese-/Schreibzugriff.
Syntax
Ausdruck. OldBorderStyle
Ausdruck Eine Variable, die ein SubForm-Objekt darstellt.
Hinweise
Die OldBorderStyle-Eigenschaft verwendet die folgenden Einstellungen.
| Einstellung | Visual Basic | Beschreibung |
|---|---|---|
| Transparent | 0 | (Standardeinstellung nur für Bezeichnung, Diagramm und Unterbericht) Transparent |
| Einfarbig | 1 | (Standardeinstellung) Durchgezogene Linie |
| Striche | 2 | Gestrichelte Linie |
| Kurze Strichlinien | 3 | Gestrichelte Linie mit kurzen Strichen |
| Punkte | 4 | Gepunktete Linie |
| Wenige Punkte | 5 | Gepunktete Linie mit weit auseinander liegenden Punkten |
| Strichlinie Punkt | 6 | Linie mit einer Kombination aus Strich-Punkt |
| Strichlinie Punkt Punkt | 7 | Linie mit einer Kombination aus Strich-Punkt-Punkt |
Beispiel
Im folgenden Beispiel wird die Auswirkung der Änderung der BorderStyle-Eigenschaft eines Steuerelements veranschaulicht, während oldBorderStyle nicht betroffen bleibt. Das Beispiel endet mit dem Festlegen der BorderStyleBorderStyle-Eigenschaft zurück auf den ursprünglichen unbearbeiteten Wert.
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
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.