Ловец и шар наследуют PictureBox
Возникает такая идея, касающаяся нашей игры «Ловец». На форме фигурки ловца и шаров представляют собой элементы управления PictureBox. Ими, как марионетками, управляют невидимые объекты Ловец и Шар(i). Получается некая раздвоенность: душа в одном месте, а тело в другом. А что если сделать классы clsЛовец и clsШар наследниками класса PictureBox? Тогда единство души и тела будет восстановлено и программа должна стать стройнее и логичнее. Попробуем!
Вот отличия в коде ловца:
Public Class clsЛовец
Inherits PictureBox
…………………………….
Public Sub New()
Me.Width = Размер_ловца
Me.Height = Размер_ловца
Me.SizeMode = PictureBoxSizeMode.StretchImage
Me.BackColor = Color.White
Me.Image = Image.FromFile("FACE02.ICO")
Форма.Controls.Add(Me) 'Добавляем новую рожицу в коллекцию формы
Me.BringToFront() 'Чтобы Поле не заслоняло рожицу
End Sub
……………………………….
Private Sub Ставим_изображение_ловца_на_место()
Me.Left = x
Me.Top = y
End Sub
…………………………………….
Конструктор вырос потому, что раньше мы фигурку ловца делали в режиме проектирования, а сейчас – программным методом.
Вот отличия в коде шара:
Public Class clsШар
Inherits PictureBox
…………………………………….
Private Event Я_пойман()
Public Sub New()
Me.Width = Размер_шара
Me.Height = Размер_шара
Me.SizeMode = PictureBoxSizeMode.StretchImage
Me.BackColor = Color.White
Me.Image = Image.FromFile("MOON06.ICO")
Форма.Controls.Add(Me)
Me.BringToFront()
AddHandler Я_пойман, AddressOf Убираем_шар
AddHandler Я_пойман, AddressOf Форма.Уменьшаем_счетчик_непойманных_шаров
End Sub
Private Sub Ставим_изображение_шара_на_место()
Me.Left = x
Me.Top = y
End Sub
Public Sub Действие()
Поймали_или_нет()
Отскок()
Шаг()
Ставим_изображение_шара_на_место()
End Sub
Private Sub Поймали_или_нет()
Const Дальность As Double = 10
If Math.Abs(x - Ловец.Xл - ((Размер_ловца - Размер_шара) / 2)) < Дальность _
And Math.Abs(y - Ловец.Yл - ((Размер_ловца - Размер_шара) / 2)) < Дальность _
Then RaiseEvent Я_пойман()
End Sub
Private Sub Убираем_шар()
x = -10000 : y = -10000
dx = 0 : dy = 0
End Sub
……………………………………..
В классе шара нам теперь не понадобились переменные Номер_шара и Число_созданных_шаров. Это приятное сокращение произошло потому, что душа теперь не должна искать свое тело, а точнее: потому что объекту Шар(i) теперь не нужно искать по номеру свой элемент управления PictureBox. Соответственно, конструктор стал покороче и поприятнее.
В момент поимки шар генерирует событие Я_пойман. Как видно из кода конструктора, у этого события два обработчика: тот, что в коде шара, занимается делами шара, а тот, что в коде формы, занимается делами формы. Оба они заменяют бывшую одну процедуру Выход_шара_из_игры. Это лучше, чем было раньше, когда из кода шара мы обращались к счетчику непойманных шаров на форме. Функцию Поймали я переделал в процедуру Поймали_или_нет. Так мне показалось логичнее.
Вот отличия в коде формы:
Public Sub Уменьшаем_счетчик_непойманных_шаров()
Число_непойманных_шаров = Число_непойманных_шаров - 1
Счетчик_непойманных_шаров.Text = Число_непойманных_шаров
End Sub
Здесь нам также не понадобилось объявлять массив pictШар.
Новый способ позволяет широко использовать события элементов управления PictureBox. Так, вы легко можете щелчками отгонять шары от ловца.
