Dear Friends,
I have developed two modules in DNN "UserManual", "ShowUserManual"
"UserManual" Module will display just the title of a manual. On clicking the title, the content of the manual i am passing it to "ShowUserManual" Module and i have added this module in a separate page.
so i wish the "UserModule" viewUserManual.ascx control to communicate with viewShowUserManual.ascx control. I decided to go for "Inter Module Communication" concept.
The problem i face with it is the IListener.ModuleCommunication is not getting called at all. I have included the code of the two controls below.
Any good urls, that hosts example of Intermodulecommunication in DNN is appreciated.
Kindly help me in resolving this issue.
All replies are appreciated,
regards,
deepak
ViewUserManual.ascx
Imports DotNetNuke
Imports System.Web.UI
Imports System.Collections.Generic
Imports System.Reflection
Imports Prodigy.Modules.Notifications
Imports DotNetNuke.Entities.Modules.Communications
Namespace Prodigy.Modules.UserManual
Partial Class ViewUserManual
Inherits Entities.Modules.PortalModuleBase
Implements Entities.Modules.IActionable
Implements IModuleCommunicator
Private strTemplate As String
Public Event ModuleCommunication(ByVal sender As Object, ByVal e As ModuleCommunicationEventArgs) Implements IModuleCommunicator.ModuleCommunication
Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim MCArgs As New ModuleCommunicationEventArgs()
MCArgs.Sender = "UserManual"
MCArgs.Target = "ShowUserManual"
MCArgs.Text = "deepak"
MCArgs.Value = "deepak"
RaiseEvent ModuleCommunication(Me, MCArgs)
End Sub
End Class
End Namespace
ViewShowUserManual.ascx
Partial Class ViewShowUserManual
Inherits Entities.Modules.PortalModuleBase
Implements Entities.Modules.IActionable, IModuleListener
Public Sub OnModuleCommunication(ByVal s As Object, ByVal e As DotNetNuke.Entities.Modules.Communications.ModuleCommunicationEventArgs) Implements DotNetNuke.Entities.Modules.Communications.IModuleListener.OnModuleCommunication
I have inserted break point at this point but it not getting called at all
If e.Sender = "UserManual" Then
Dim imcValue As String = DirectCast(e.Value, String)
End If
End Sub
End Class
End Namespace