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

Статья
04/07/2023

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

Синтаксис

expression. PictureData

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

Замечания

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

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

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

Пример

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

Свойство TimerInterval имеет значение 200. При каждом возникновении события Timer рисунок в элементе управления изображением Visible1 изменяется с помощью свойства PictureData скрытых элементов управления изображением, а элемент управления видимым изображением перемещается на 200 твипов вправо . Элемент управления видимым изображением перемещается обратно в левую часть формы, если значение свойства Left больше ширины формы, хранящейся в общедоступной переменной gfrmWidth. Для параметра задано gfrmWidthMe.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 и обратная связь.