Propriedade Form.PictureData (Access)

Utilize a propriedade PictureData para copiar a imagem para outro objeto que suporte a propriedade Imagem . Variant de leitura/gravação.

Sintaxe

expressão. PictureData

expressão Uma variável que representa um objeto Form.

Comentários

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

Utilize esta propriedade para apresentar imagens de fundo diferentes num formulário, consoante as ações efetuadas pelo utilizador. Por exemplo, pode abrir um formulário Clientes utilizando uma imagem de fundo diferente, dependendo se o formulário está aberto para introdução de dados ou para navegação.

Também pode utilizar a propriedade PictureData juntamente com o evento Temporizador e a propriedade TimerInterval para executar animações simples num formulário.

Exemplo

O exemplo a seguir usa três controles imagem para animar uma imagem de borboleta em um formulário. O controlo de imagem Oculto1 contém uma imagem de uma borboleta com as asas para cima e o controlo de imagem Oculto2 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 Temporizador ocorre, a imagem no controlo de imagem Visible1 é alterada através da propriedade PictureData dos controlos de imagem ocultos e o controlo 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 está 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.