LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Анимация ...
 Тема: Анимация в форме
 
 15.06.2007 19:52:10
Татьяна Кабанова
1 сообщения


Тема: Анимация в форме
Если можно, помогите разобраться, почему не работает программа. Вобщем, нужно чтобы в форме (стартовой форме) была анимация. Я взяла пример несложной анимации из учебника по VBA6 и это действительно получилось, но только в Visual St.. А мне нужно сделать это в форме Access. Но когда я перенесла все эти описания в события формы Access, то происходит ошибка на позиции Me.ScaleWidth и Me.ScaleHeight. Я понимаю, что наверное надо бы задать эти высоту и ширину, но как это написать правильно — не знаю. Буду благодарна за совет. А может быть анимацию в форме можно сделать еще каким-нибудь способом?

Dim xChange As Integer
Dim yChange As Integer

Private Sub Form_Load()
xChange = 100
yChange = 100
End Sub

Private Sub Form_Timer()
Image1.Left = Image1.Left + xChange
Image1.Top = Image1.Top + yChange
If Image1.Left > Me.ScaleWidth Then xChange = xChange * -1
If Image1.Left < 0 Then xChange = xChange * -1
If Image1.Top > Me.ScaleHeight Then yChange = yChange * -1
If Image1.Top < 0 Then yChange = yChange * -1
End Sub


P.S.
Автор: Татьяна Кабанова от 0:00:00 Источник ...
 15.06.2007 19:52:10
Виктор Конюков
34 сообщения


RE: Анимация в форме
1. В форме должны быть определены поля-объекты ScaleWidth и ScaleHeight, тогда в подпрограмме Вы сможете обращаться к ним как Me.ScaleHeight
2. Чтобы объект двигался на экране нужно обработать события. Это позволяет сделать функция DoEvents. Поставьте ее в конец программы: Form_Timer().
3. Анимацию можно сделать через ActiveX элементы. Смотрите пример 2 в файле: la_activex.mdb


P.S.
Автор: Виктор Конюков от 0:00:00 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Анимация ...
ПоискПоиск  Список форумовСписок форумов  
right