Propriedade CheckBox.OldBorderStyle (Access)
Use essa propriedade para definir ou retornar o valor não editado da propriedade BorderStyle para um formulário ou controle. Essa propriedade é útil se você precisar reverter para um estilo de borda não editado ou preferido. Bytes de leitura/gravação.
Sintaxe
expressão. OldBorderStyle
Expressão Uma variável que representa um objeto CheckBox .
Comentários
A propriedade OldBorderStyle utiliza as configurações a seguir.
Configuração | Visual Basic | Descrição |
---|---|---|
Transparente | 0 | (Padrão somente para rótulo, gráfico e sub-relatório) Transparente |
Sólida | 1 | (Padrão) Linha sólida |
Traços | 2 | Linha tracejada |
Traços curtos | 3 | Linha tracejada com traços curtos |
Pontos | 4 | Linha pontilhada |
Pontos esparsos | 5 | Linha pontilhada com pontos esparsos |
Traço ponto | 6 | Linha com uma combinação de traço-ponto |
Traço ponto ponto | 7 | Linha com uma combinação de traço-ponto-ponto |
Sólido duplo | 8 | Linha sólida dupla |
Exemplo
O exemplo a seguir demonstra o efeito de alterar a propriedade BorderStyle de um controle, deixando o OldBorderStyle não afetado. O exemplo conclui com a configuração a propriedade BorderStyle para seu valor editado original.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.