Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Use la propiedad FillStyle para especificar si un círculo o una línea dibujado por el método Círculo o Línea en un informe es transparente, opaco o se rellena con un trama. Valor Entero de lectura y escritura.
Sintaxis
más sencilla.FillStyle
expresión Variable que representa un objeto Report .
Comentarios
La propiedad FillStyle utiliza la configuración siguiente.
| Configuración | Descripción |
|---|---|
| 0 | Opaco |
| 1 | (Predeterminado) Transparente |
| 2 | Línea horizontal |
| 3 | Línea vertical |
| 4 | Diagonal hacia arriba |
| 5 | Diagonal hacia abajo |
| 6 | Cruz |
| 7 | Cruz en diagonal |
Nota:
Puede establecer la propiedad FillStyle en un procedimiento de evento especificado mediante el valor de la propiedad OnPrint de una sección.
Cuando la propiedad FillStyle se establece en 0, un círculo o una línea tiene el color establecido por la propiedad FillColor . Cuando la propiedad FillStyle se establece en 1, el interior del círculo o la línea es transparente y tiene el color del informe detrás.
Para usar la propiedad FillStyle , la propiedad SpecialEffect debe establecerse en Normal.
El ejemplo siguiente utiliza el método Circle para dibujar un círculo y crear un sector dentro del círculo. A continuación, se usan las propiedades FillColor y FillStyle para colorear la rebanada de pastel de rojo. También dibuja una línea desde la esquina superior izquierda hasta el centro del círculo.
Ejemplo
Para probar este ejemplo en Microsoft Access, cree un nuevo informe. Establezca la propiedad AlImprimir (OnPrint) de la sección Detalles a [Procedimiento de evento]. Escriba el siguiente código en el módulo del informe y, a continuación, cambie a Vista previa de impresión.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.