Propriedade ToggleButton.ForeColor (Access)
Use a propriedade ForeColor para especificar a cor do texto em um controle. Long de leitura/gravação.
Sintaxe
expressão. Forecolor
Expressão Uma variável que representa um objeto ToggleButton .
Comentários
Use essa propriedade para controles em formulários ou relatórios para facilitar a leitura ou transmitir um significado especial. Por exemplo, você pode alterar a cor do texto no controle UnitsInStock quando seu valor estiver abaixo do nível de reordenação.
Você também pode usar essa propriedade em relatórios para criar efeitos visuais especiais ao imprimir com uma impressora colorida. Quando usado em um relatório, essa propriedade especifica a cor de impressão e do desenho para os métodos de impressão, linha e círculo.
A propriedade ForeColor contém uma expressão numérica que representa o valor da cor do texto no controle.
Use o Construtor de Cores para definir essa propriedade escolhendo o botão Build à direita da caixa de propriedade na folha de propriedades. A utilização desse construtor permite que você defina cores personalizadas para o texto nos controles.
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.
Para relatórios, você pode definir a propriedade Circle somente usando uma macro ou um procedimento de evento do Visual Basic especificado na configuração de propriedade de evento OnPrint uma seção.
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.