Nota
O acesso a esta página requer autorização. Pode tentar iniciar sessão ou alterar os diretórios.
O acesso a esta página requer autorização. Pode tentar alterar os diretórios.
Use a propriedade FillStyle para especificar se um círculo ou linha desenhada pelo método Circle ou Line em um relatório é transparente, opaco ou preenchido com um padrão. número inteiro de leitura/gravação.
Sintaxe
mais simples. FillStyle
expressão Uma variável que representa um objeto Report .
Comentários
A propriedade FillStyle utiliza as configurações a seguir.
| Configuração | Descrição |
|---|---|
| 0 | Opaco |
| 1 | (Padrão) Transparente |
| 2 | Linha Horizontal |
| 3 | Linha Vertical |
| 4 | Diagonal Ascendente |
| 5 | Diagonal Descendente |
| 6 | Cruz |
| 7 | Diagonal Cruzada |
Observação
[!OBSERVAçãO] Você pode definir a propriedade FillStyle em um procedimento de evento especificado pela configuração da propriedade OnPrint uma seção.
Quando a propriedade FillStyle é definida como 0, um círculo ou linha tem a cor definida pela propriedade FillColor. Quando a propriedade FillStyle é definida como 1, o interior do círculo ou linha é transparente e tem a cor do relatório por trás dele.
Para usar a propriedade FillStyle, a propriedade SpecialEffect deve estar definida como Normal.
O exemplo a seguir usa o método Circle para desenhar um círculo e criar uma fatia de pizza dentro do círculo. Em seguida, ele usa as propriedades FillColor e FillStyle para colorir a fatia de pizza de vermelho. Ele também desenha uma linha do canto superior esquerdo para o centro do círculo.
Exemplo
Para testar esse exemplo no Microsoft Access, crie um novo relatório. Defina a propriedade OnPrint da seção Detalhes como [Procedimento do Evento]. Insira o código a seguir no módulo do relatório e alterne para Visualização de Impressão.
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Const conPI = 3.14159265359
Dim sngHCtr As Single
Dim sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single
Dim sngEnd As Single
sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = Me.ScaleHeight / 2 ' Vertical center.
sngRadius = Me.ScaleHeight / 3 ' Circle radius.
Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle.
sngStart = -0.00000001 ' Start of pie slice.
sngEnd = -2 * conPI / 3 ' End of pie slice.
Me.FillColor = RGB(255, 0, 0) ' Color pie slice red.
Me.FillStyle = 0 ' Fill pie slice.
' Draw Pie slice within circle
Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd
' Draw line to center of circle.
Dim intColor As Integer
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Me.ScaleMode = 3 ' Set scale to pixels.
sngTop = Me.ScaleTop ' Top inside edge.
sngLeft = Me.ScaleLeft ' Left inside edge.
sngWidth = Me.ScaleWidth / 2 ' Width inside edge.
sngHeight = Me.ScaleHeight / 2 ' Height inside edge.
intColor = RGB(255, 0, 0) ' Make color red.
' Draw line.
Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor
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.