Четверг, 14.11.2019, 22:57
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Приложение: цветы-событие.rar

Занятие 10.1.  События и их обработчики. Пример

Система Windows генерирует события (сообщения для приложения), которые предназначены для управления работой приложения. Приложение может реагировать или не реагировать на событие. Для того чтобы приложение реагировало на событие, необходимо поместить программный код в заготовке соответствующей событийной процедуры.

  • Некоторые события поддерживают почти все управляющие элементы.

Примеры нескольких событий формы:


 

 

Задание. Разработать проект " События - цветы"

Интерфейс проекта

Программный код.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        Me.BackColor = Color.Fuchsia
    End Sub


    Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
        PictureBox1.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        Me.BackColor =Color.Teal
    End Sub

    Private Sub Label3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove
        PictureBox2.Visible = True
        PictureBox1.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        Me.BackColor =Color.Salmon
    End Sub

    Private Sub Label4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label4.MouseMove
        PictureBox3.Visible = True
        PictureBox2.Visible = False
        PictureBox1.Visible = False
        PictureBox4.Visible = False
        Me.BackColor = Color.OrangeRed
    End Sub


    Private Sub Label5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label5.MouseMove
        PictureBox4.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox1.Visible = False
        Me.BackColor =Color.MediumOrchid
    End Sub

Занятие 10.2 Методы

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz