ПОНЯТНО О Visual Basic NET (том 3)


Пример - часть 2


 

    Public Event Наступление_зрелости()

 

    Public Sub New()

        Me.Image = Image.FromFile("MOON06.ICO")

        Me.ImageAlign = ContentAlignment.MiddleLeft         'Луна - налево

        Me.Text = Число_щелчков_по_кнопке  &   "  щелч."

        Me.TextAlign = ContentAlignment.MiddleRight         'Текст - направо

    End Sub

 

    Private Sub clsКнопка_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click

        Число_щелчков_по_кнопке = Число_щелчков_по_кнопке + 1

        Me.Text = Число_щелчков_по_кнопке  &   "  щелч."

        If Число_щелчков_по_кнопке = 10 Then

            RaiseEvent Наступление_зрелости()

            Опытная_кнопка = True

        End If

    End Sub

 

    Public Sub Прыжок(ByVal Дальность As Integer)

        Me.Left = Me.Left + Дальность

    End Sub

End Class

Из кода формы мы обращаемся к новым свойствам, методам нашей кнопки и обрабатываем ее событие Наступление_зрелости. Когда при наборе программного текста в окне кода формы вы вводите точку после слова Кнопка, перед вами возникает список свойств и методов обычной кнопки, к которому добавились свойства Число_щелчков и Ветеран и метод Прыжок. При создании обработчика события Наступление_зрелости вы видите это событие в поле в правом верхнем углу окна кода формы наряду с обычными событиями кнопки.

Запустите проект. Пощелкайте по обеим кнопкам. При щелчке по кнопке Button1 наша кнопка прыгает направо на 40 пикселей. При щелчке по нашей кнопке ее текст меняется. После 10-го щелчка возникает сообщение «Зрелость наступила».




Начало  Назад  Вперед



Книжный магазин