Propriété CommandButton.PictureData (Access)

Utilisez la propriété PictureData pour copier l’image vers un autre objet qui prend en charge la propriété Picture . Variant en lecture/écriture.

Syntaxe

expression. PictureData

Expression Variable qui représente un objet CommandButton .

Remarques

La valeur de la propriété PictureData est la propriété PictureData d'un autre contrôle, formulaire ou état.

Utilisez cette propriété pour afficher différentes images d’arrière-plan dans un formulaire, en fonction des actions effectuées par l’utilisateur. Par exemple, vous pouvez ouvrir un formulaire Clients à l’aide d’une image d’arrière-plan différente, selon que le formulaire est ouvert pour la saisie de données ou pour la navigation.

Vous pouvez également utiliser la propriété PictureData avec l’événement Timer et la propriété TimerInterval pour effectuer une animation simple sur un formulaire.

Exemple

L'exemple suivant utilise trois contrôles d'image pour animer une image de papillon sur un formulaire. Le contrôle d’image Hidden1 contient une image d’un papillon avec ses ailes vers le haut, et le contrôle d’image Hidden2 contient une image du même papillon avec ses ailes vers le bas. Ces deux contrôles image dont la valeur False à la propriété Visible.

La propriété TimerInterval est définie à 200. Chaque fois que l’événement Timer se produit, l’image dans le contrôle d’image Visible1 est modifiée à l’aide de la propriété PictureData des contrôles d’image masqués, et le contrôle d’image visible est déplacé de 200 twips vers la droite. Le contrôle image visible est déplacé vers le côté gauche du formulaire lorsque la valeur de sa propriété gauche est supérieure à la largeur du formulaire stocké dans la variable publique gfrmWidth. La valeur de gfrmWidth est définie sur Me.Width dans l’événement ouvert du formulaire.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.