Propriété CheckBox.OldBorderStyle (Access)
Utilisez cette propriété pour définir ou renvoyer la valeur non modifiée de la propriété BorderStyle pour un formulaire ou un contrôle. Cette propriété est utile si vous devez rétablir la fonction d'un style de bordure préféré ou non modifiée. Type de données Octet en lecture-écriture.
expression. OldBorderStyle
Expression Variable qui représente un objet CheckBox .
La propriété OldBorderStyle utilise les paramètres suivants.
Paramètre | Visual Basic | Description |
---|---|---|
Transparent | 0 | (Valeur par défaut uniquement pour les étiquettes, les graphiques et les sous-états) Transparent |
Solid | 1 | (Valeur par défaut) Ligne pleine |
Tirets | 2 | Ligne avec des tirets |
Tirets courts | 3 | Ligne avec des tirets courts |
Points | 4 | Ligne pointillée |
Pointillés éloignés | 5 | Ligne pointillée avec de grands espaces |
Tiret point | 6 | Ligne alternant un tiret et un point |
Tiret point point | 7 | Ligne alternant un tiret et deux points |
Trait double | 8 | Traits pleins doubles |
L’exemple suivant illustre l’effet de la modification de la propriété BorderStyle d’un contrôle tout en laissant oldBorderStyle inchangé. L'exemple se termine par la définition de la propriété BorderStyle sur sa valeur non modifiée d'origine.
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
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.