Иллюстрированный самоучитель по VB.NET




Групповые делегаты - часть 2


24 VALUE_FAILURE

25 End Enum

26 Public Sub RegisterDelegate(ByRef cbFunc As CallBackFunc)

27 m_cbFunc = CType(System.Delegate.Combine(_

28 m_cbFunc.cbFunc).CallBackFunc)

29 End Sub

30 Public Sub Call Delegates ()

31 Dim IngCounter As Long = 0

32 ' Вызвать процедуры через делегата

33 ' и вернуть признак успешного вызова

34 m_cbFunc(RETURN VALUES.VALUE_SUCCESS)

35 End Sub

36 End Module

В строках 5 и 6 вызывается процедура модуля Module2 (строки 26-28), где и происходит фактическое построение группового делегата. Это возможно благодаря тому, что делегат передается по ссылке, а не по значению. Обратите внимание на преобразование типа метода Combine к типу делегата в строке 27. Непосредственный вызов функций группового делегата происходит в строках 30-35. Всем зарегистрированным функциям передается значение перечисляемого типа RETURNJALUES . VALUE_SUCCESS. Результат выполнения программы показан на рисунке.





Содержание  Назад  Вперед