Public Class MessageSystem
Shared _message As Long
Shared _pa As Object
Public Event GetMessage(ByVal Message As SM, ByVal AddParam As Object)
Public Sub SendMessage(ByVal objMessage As SM, Optional ByVal Params As Object = Nothing)
_message = objMessage
_pa = Params
RaiseEvent GetMessage(_message, _pa)
End Sub
End Class
1. public withevent MSys as new MessageSystem
private withevents locMSys as messageSystem = MSys
private sub GetMessage(Mess,Param) handles locMSys.GetMessages
locMSys.SendMessage(SM,Param),
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 97