Проект «Бегающая картинка»

Проект «Бегающая картинка»

1. 
   Создать новый проект
   
2. 
   В окне свойства объекта установить мы следующие свойства
   
   1. 
      Name – Form1
      
   2. 
      BorderStyle – 0-None
      
   3. 
      Picture Активизировать свойства и выбрать 1 картинку из папок C:\Санкт-Петербург, С:\живопись, С:\новгород, С:\Школа
      
3. 
   В правом верхнем углу формы создать кнопку со следующими свойствами
   
   1. 
      Name cmd1
      
   2. 
      Style –1- Graphical
      
   3. 
      BackColor =&H80000009& (белый)
      
   4. 
      Caption=”X”
      
   5. 
      Appearace – 0 - Flat
      
4. 
   В событийной процедуре Click, связанной с кнопкой cmd1 зададим команду, позволяющую завершить работу программы End
   

5. 
   В событийной процедуре Tick, связанной с таймером Timer1 зададим команду, позволяющую перемещаться случайным образом форме
   

Me.Move Int(Rnd * 1000) - 500, Int(Rnd * 1000) – 500

6. 
   Заставим картинку мигать
   

7. 
   Имеем следующий код процедуры
   

8. 
   Создайте форму Form2. Меню: Проект - Добавить форму.
   
9. 
   Выполните для нее пункты 2-7
   
10. 
    Для того чтобы она появлялась при запуске программы, в Form1 вставьте процедуру
    

End Sub

Для самостоятельной работы

11. 
    сделайте так, чтобы Form2 не накладывалась на Form1.
    
12. 
    Добавьте еще три формы и выполните для них пункты 8-10
    
13. 
    Настройте программу по своему усмотрению.
    
14. 
    Создайте exe-файл. Файл – Делать Project1.exe и сохраните его в вашу папку
    

15. 
    Переделайте проект так, чтобы формы перемещалась не по событию таймера, а по нажатию кнопок Вправо, Влево, Вверх, Вниз.
    
16. 
    Из главной формы остальные формы открывались по нажатию кнопок, а не при загрузке.