Свойство CommandButton.PictureData (Access)

Используйте свойство PictureData , чтобы скопировать изображение в другой объект, поддерживающий свойство Picture . Для чтения и записи, Variant.

Синтаксис

выражение. PictureData

выражение Переменная, представляющая объект CommandButton .

Примечания

Параметр свойства PictureData — это свойство PictureData другого элемента управления, формы или отчета.

Это свойство используется для отображения в форме разных фоновых рисунков в зависимости от действий пользователя. Например, при открытии формы "Клиенты " можно использовать другой фоновый рисунок, в зависимости от того, открывается форма для ввода данных или для просмотра.

Для выполнения простой анимации на форме можно также использовать свойство PictureData вместе с событием Timer и свойством TimerInterval .

Пример

В следующем примере три элемента управления используются для анимации изображения бабочки в форме. Элемент управления "Скрытый1" содержит изображение бабочки с поднятыми крыльями, а элемент управления "Скрытый2" содержит изображение той же бабочки с опущенными крыльями. Для обоих элементов управления изображениями свойство Visible установлено в значение False.

Свойству TimerInterval присвоено значение 200. Каждый раз, когда происходит событие Timer , рисунок в элементе управления изображением Visible1 изменяется с помощью свойства PictureData элементов управления скрытым изображением, а элемент управления visible image перемещается на 200 твайпов вправо. Элемент управления "Видимое изображение" перемещается обратно на левую сторону формы, если значение свойства "Левый" превышает ширину формы, хранящейся в переменной gfrmWidthpublic . Значение gfrmWidth в Me.Width событии "открытие" формы.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.