Anmerkung
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen, dich anzumelden oder die Verzeichnisse zu wechseln.
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen , die Verzeichnisse 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 ListBox- -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.