Propriedade ToggleButton.BorderColor (Access)
Use a propriedade BorderColor para especificar a cor da borda de um controle. Long de leitura/gravação.
Sintaxe
expressão. Bordercolor
Expressão Uma variável que representa um objeto ToggleButton .
Comentários
A configuração da propriedade BorderColor é uma expressão numérica que corresponde à cor que você deseja usar para a borda de um controle.
Você pode definir o padrão dessa propriedade usando o estilo de controle padrão de um controle ou a propriedade DefaultControl no Visual Basic.
Cor da borda de um controle é visível apenas quando sua propriedade SpecialEffect for definida como plano ou sombreado. Se a propriedade SpecialEffect for definida como algo diferente de plano ou sombreado, a configuração da propriedade BorderColor alterará a configuração da propriedade SpecialEffect para plano.
Exemplo
O exemplo a seguir usa a função RGB para definir as propriedades BorderColor, BackColor e ForeColor, dependendo do valor da caixa de texto txtPastDue. Você também pode usar a função QBColor para definir essas propriedades.
Colocar o código a seguir no evento Form_Current( ) define as características de exibição de controle assim que o usuário abre um formulário ou passa para um novo registro.
Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BorderColor = lngBlack
Me!txtPastDue.ForeColor = lngBlack
Me!txtPastDue.BackColor = lngWhite
End If
End Sub
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.