Compartilhar via

Propriedade Page.PictureData (Access)

  • Artigo

Use a propriedade PictureData para copiar a imagem para outro objeto que dá suporte à propriedade Picture . Variant de leitura/gravação.

Sintaxe

expressão. PictureData

Expressão Uma variável que representa um objeto Page .

Comentários

A configuração da propriedade PictureData é a propriedade PictureData de outro controle, formulário ou relatório.

Use essa propriedade para exibir diferentes imagens em segundo plano em um formulário, dependendo das ações executadas pelo usuário. Por exemplo, você pode abrir um formulário Clientes usando uma imagem de fundo diferente, dependendo se o formulário é aberto para entrada de dados ou para navegação.

Você também pode usar a propriedade PictureData junto com o evento Timer e a propriedade TimerInterval para executar animação simples em um formulário.

Exemplo

O exemplo a seguir usa três controles imagem para animar uma imagem de borboleta em um formulário. O controle de imagem Hidden1 contém uma imagem de uma borboleta com as asas para cima, e o controle de imagem Hidden2 contém uma imagem da mesma borboleta com as asas para baixo. Ambos os controles de imagem têm sua propriedade Visible definida como False.

A propriedade TimerInterval é definida como 200. Sempre que o evento Timer ocorre, a imagem no controle de imagem Visible1 é alterada usando a propriedade PictureData dos controles de imagem ocultos e o controle de imagem visível é movido 200 twips para a direita. O controle imagem visível é movido de volta para o lado esquerdo do formulário quando seu valor de propriedade esquerda for maior que a largura do formulário armazenado na variável pública gfrmWidth. O valor de gfrmWidth é definido como Me.Width no evento aberto do formulário.

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

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.