Программирование
Веб программирование

Процедуры в vb.net

 
 

Процедура - реагирует на определенные события совершаемые над объектом(например, нажатие на кнопку). Начинается с ключевого слова Sub, и заканчивается End Sub.

В VB.Net появилось возможность создовать несколько процедур для одного объекта реагирующих на одно событие(например, Click), или наоборот, одну процедуру реагирующию на события для нескольких объектов. Для начала, сделаем процедуру, которая будет реагировать на 3 события совершаемые кнопками(Click). На форме размести 3 кнопки, вот код:

Private Sub Новое_Событие(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click ' Событие реагирует на нажатие 3ех кнопок
MsgBox("Событие для 3ех кнопок")
End Sub 

Запусти, и нажимай на каждую кнопку по очереди.

Теперь подробно:

Private Sub - Что такое Private ты узнаешь в следующих шагах(когда познакомишься с модулями). Sub - это ключевое слово, после которого идет имя процедуры(любой текст без пробелов, и определенных знаков(",/,,+,*...))
(ByVal sender As System.Object, ByVal e As System.EventArgs) - набор переменных. В нашем случае переменная sender распологает информацией об источнике событий(нажатая кнопка), переменная e содержит дополнительную информацию об событии.
Handles - после ключевого слова Handles идет события, которые выполняются данной процедурой(если несколько объектов, то записывать надо через запятую(и них не могут быть разные события(т.е. Button1.Click, Button2.MouseUp..))).

Теперь сделаем несколько процедур для одного объекта. На форме размести еще одну кнопку(Button4), вот код:

Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' Процедура 1
MsgBox("Процедура 1")
End Sub 

Private Sub Button4_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' Процедура 2
MsgBox("Процедура 2")
End Sub 

Private Sub Button4_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' Процедура 3
MsgBox("Процедура 3")
End Sub 

Исходник


Есть вопросы? Спроси на нашем форуме!!
pjp07190 [13.02.2013 15:22]

Классно!!! Только в примере с Button4, почему то первой выполняется Click_2?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.