Предыдущая страница реферата | 1  2  3 | Следующая страница реферата

Для объекта Image1 свойству Visible (Видимость) придайте значение False (Ложь), за тем, чтобы в первое время работы приложения изображение Эйнштейна было невидимым. Для управления объектом Image1 на форме разместите таймер Timer1 и для его свойства Interval (Интервал) установите значение 2000 (две секунды). В процедуру прерывания Timer1_Timer впишите программный код:

m = m + 1  ‘ счетчик

Image1.Visible = False    ‘ скрывает фотографию

Image1.Height = Image1.Height * 1.5  ‘ увеличение высоты

Image1.Top = 5000 – Image1.Height / 2  ‘ смещение вверх

Image1.Width = Image1.Width * 1.5   ‘ увеличение ширины

Image1.Left = 5000 – Image1.Width / 2  ‘ смещение влево

Image1.Visible = True    ‘ показывает фотографию

If m = 9 Then    ‘ условие

Image1.Visible = False    ‘ скрывает фотографию

Image1.Height = 1000 ‘ устанавливает начальное значение высоты

Image1.Width = 1200 ‘ устанавливает начальное значение ширины

m = 0   ‘ обнуляет счетчик

End If      ‘ конец условия

В окне для ввода программного кода для формы Form1 в общем разделе (general) запишите строку:

Dim m ‘ резервирование памяти для переменной

Эта строка необходима затем, чтобы зарезервировать область памяти для переменной m. Переменная m служит для организации счетчика m = m + 1. Переменная m наращивается на единицу через каждые две секунды. В зависимости от значения переменной m работают операторы в процедуре прерывания Timer1_Timer.

В процедуру прерывания Form_Load запишите строки, устанавливающие начальные высоту и ширину фотографии при загрузке приложения:

Image1.Height = 1000

Image1.Width = 1200

Если хотите, чтобы работа заставки сопровождалась мелодией, подберите подходящий для этого случая файл с расширением MID. Например, файл 43.mid. Добавьте в проект Вашего приложения файл Mci.vbx, так как Вы это сделали в самом начале данного урока для первого приложения. На форме Form1 разместите объект MMControl1. Превратите его в «невидимку», придав его свойству Visible (Видимость) значение False (Ложь). В процедуру прерывания Form_Load, которая срабатывает во время загрузки приложения, допишите строки, смысл которых Вы уже знаете:

MMControl1.FileName = “43.mid”

MMControl1.Command = "Open"

MMControl1.Command = "Play"

Для того чтобы файл мелодии воспроизводился «бесконечно», в процедуру прерывания MMControl1 _Done, которая срабатывает в момент окончания воспроизведения файла мелодии, запишите строки:

Рекомендуем скачать другие рефераты по теме: дипломная работа методика, доклады бесплатно.



Предыдущая страница реферата | 1  2  3 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки