When developing custom modules sometimes you will want to either open a window or redirect the user to another module that you have for say a detail page.
I have seen many methods on the Internet with javascript etc...This will show you how to do it with out the use of javascript.
Controls Setup:
1. You have your view, edit, settings and one more "view" control called "ShowEvents" which is going to show a list of all events.
2. You are on your development machine working with dotnetnuke and your module.
3. In the viewMyEvents control you have a datalist and is bound to a datasource
Page Code:
'As you can see in the page code that you will be returning all the events for a given portal and event moduleid.
<ul>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:SiteSqlServer %>"
SelectCommand="SELECT DISTINCT [EventName], [EventID] FROM [Events] WHERE (([ModuleID] = @ModuleID) AND ([PortalID] = @PortalID))">
<SelectParameters>
<asp:QueryStringParameter Name="ModuleID" QueryStringField="tabid" Type="Int32" />
<asp:QueryStringParameter Name="PortalID" QueryStringField="portalid" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
<asp:datalist id="lstContent" datakeyfield="EventID" runat="server" cellpadding="4" DataSourceID="SqlDataSource1">
<itemtemplate>
<li>
<asp:Label ID="EventIDLabel" runat="server" Text='<%# Eval("EventID") %>'></asp:Label>
<asp:Label ID="EventNameLabel" runat="server" Text='<%# Eval("EventName") %>'></asp:Label>
<asp:HyperLink ID="HyperLink1" runat="server" Target="_blank" >LinkButton</asp:HyperLink>
</li>
</itemtemplate>
</asp:datalist>
In the ItemDataBound Event:
1. Open Page in new window:
'Remember that we want the user to click on one of the
' events and get a new window with all the details in
' the ShowEvents "view" .ascx control. We pass the
' event id in the url so that ShowEvents can display
' the correct event
'As you can see I am using the Attributes.Item("href")
'instead of the NavigateUrl attribute becuase when it is
'rendered to the brower I want it to work.
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
Dim lnk1 As HyperLink = CType(e.Item.FindControl("HyperLink1"), HyperLink)
lnk1.Attributes.Item("href") = NavigateURL(TabId, "ShowEvents", "mid=" & ModuleId.ToString & CType(e.Item.FindControl("EventID"), Label).Text)
End If
2. Redirect to another page:
'Add a linkbutton to your datalist
'in the itemcommand you will get the eventid and pass
' it along with the redirect:
Protected Sub lstContent_ItemCommand(ByVal source As Object, ByVal e As _
System.Web.UI.WebControls.DataListCommandEventArgs) Handles _
lstContent.ItemCommand
Response.Redirect(NavigateURL(TabId, "ShowEvents", "mid=" & _
ModuleId.ToString & "&eventid=" & CType(e.Item.FindControl("EventIDLabel"), _
Label).Text))
End Sub
Charles Stratton has been programming since 1999 and enjoys staying on the edge of technology. his skills range from DNN to Sharepoint to Custom Development. currently working in VB.Net and C#.Net web and software. KISS - Programmers work smarter not harder. Charles can be reached at stratcr@peoplepc.com.
