Propiedad Form.PictureData (Access)

Utilice la propiedad PictureData para copiar la imagen en otro objeto que admita la propiedad Picture . Variante de lectura y escritura.

Sintaxis

expresión. PictureData

expresión Variable que representa un objeto Form.

Comentarios

El valor de la propiedad PictureData es la propiedad PictureData de otro control, formulario o informe.

Utilice esta propiedad para mostrar diferentes imágenes en segundo plano en un formulario, en función de las acciones realizadas por el usuario. Por ejemplo, puede abrir un formulario Clientes mediante una imagen de fondo diferente, en función de si el formulario se abre para la entrada de datos o para la exploración.

También puede usar la propiedad PictureData junto con el evento Timer y la propiedad TimerInterval para realizar una animación simple en un formulario.

Ejemplo:

En el siguiente ejemplo, se usan tres controles de imagen para crear la animación de la imagen de una mariposa en un formulario. El control de imagen Hidden1 contiene una imagen de una mariposa con sus alas hacia arriba, y el control de imagen Hidden2 contiene una imagen de la misma mariposa con sus alas hacia abajo. Ambos controles de imagen tienen su propiedad Visible establecida en False.

La propiedad TimerInterval se establece en 200. Cada vez que se produce el evento Timer , la imagen del control de imagen Visible1 se cambia mediante la propiedad PictureData de los controles de imagen ocultos y el control de imagen visible se mueve 200 twips a la derecha. El control de imagen visible se mueve de nuevo hasta el lado izquierdo del formulario cuando el valor de su propiedad izquierda es mayor que el ancho del formulario almacenado en la variable pública gfrmWidth. El valor de gfrmWidth se establece Me.Width en en el evento abierto del formulario.

Private Sub Form_Timer() 
 
 Static intPic As Integer 
 
 Select Case intPic 
 Case Is = 1 
 Me!Visible1.PictureData = Me!Hidden1.PictureData 
 Case Is = 2 
 Me!Visible1.PictureData = Me!Hidden2.PictureData 
 Case Else 
 End Select 
 
 If intPic = 2 Then intPic = 0 
 intPic = intPic + 1 
 If (Me!Visible1.Left > gfrmWidth) Then Me!Visible1.Left = 0 
 Me!Visible1.Left = Me!Visible1.Left + 200 
 
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.