hi
Here im having the code. i need to add a new template column such as combo box or check box inside the pop up and the option pop.. Please help me.
<%
@ Page Title="" Language="C#" MasterPageFile="~/Transactions/Calendar/CalendarMaster.Master"
AutoEventWireup="true" CodeBehind="Calendar.aspx.cs" Inherits="GemsStandard.Transactions.Calendar.Calendar" %>
<%
@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<
asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
<style type="text/css">
.style1
{
width: 100%;
}
.example-panel
{
width: 870px;
height: 585px;
background: transparent url('Images/background.png') no-repeat 0 0;
padding: 55px 0 0 8px;
}
.RadSplitter
{
border: none !important;
margin: 0 !important;
}
.RadPanelBar .rootGroup
{
border-left: none;
border-right: none;
}
.calendar-container
{
width: 220px;
margin: 0 auto 7px auto;
}
.calendar-title
{
height: 26px;
padding: 6px 5px;
font-size: 16px;
font-color: #1e395b;
}
#RadScheduler1Panel
{
width: 100%;
overflow: hidden;
}
div.RadScheduler
{
width: 100%;
}
/* Styles for the appointment Subject */.RadScheduler .rsAptSubject
{
text-align: left;
margin: 0 0 3px;
font-size: 11px;
font-weight: bold;
color: #369;
height: 17px;
border-bottom: 1px solid #8bf;
width: 100%;
overflow: hidden;
}
/* Remove the Subject underline for all-day appointments */.RadScheduler .rsAllDayRow .rsAptSubject
{
border-bottom: none;
}
div.RadScheduler .rsCategoryPattern .rsAptContent, div.RadScheduler .rsCategoryPattern .rsAptIn, div.RadScheduler .rsCategoryPattern .rsAptMid
{
background: url('Images/pattern.png') repeat-x left top;
}
</style>
</
asp:Content>
<
asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
<table width="100%">
<tr>
<td>
<b>CALENDAR</b>
</td>
<td>
<asp:Label ID="lblAcademiYearID" runat="server" Visible="False"></asp:Label>
<asp:Label ID="lblInstitutionID" runat="server" Visible="False"></asp:Label>
</td>
<tr>
<td>
</td>
<td>
<asp:Button ID="btnViewCalender" runat="server" Text="View Calendar" OnClick="btnViewCalender_Click" />
</td>
</tr>
<tr>
<td>
<table class="style1">
<tr>
<td>
Holiday Type
<telerik:RadComboBox ID="radHolidayType" runat="server" EmptyMessage="Select Holiday Type"
Skin="Sunset">
</telerik:RadComboBox>
<telerik:RadCalendar ID="radCalendar1" runat="server" OnSelectionChanged="radCalendar1_SelectionChanged1"
OnDefaultViewChanged="radCalendar1_DefaultViewChanged" Skin="Sunset">
<dayoverstyle cssclass="rcHover"></dayoverstyle>
<fastnavigationstyle cssclass="RadCalendarMonthView RadCalendarMonthView_Sunset">
</fastnavigationstyle>
<disableddaystyle cssclass="rcDisabled"></disableddaystyle>
<weekenddaystyle cssclass="rcWeekend"></weekenddaystyle>
<viewselectorstyle cssclass="rcViewSel"></viewselectorstyle>
<selecteddaystyle cssclass="rcSelected"></selecteddaystyle>
<calendartablestyle cssclass="rcMainTable"></calendartablestyle>
<othermonthdaystyle cssclass="rcOtherMonth"></othermonthdaystyle>
<outofrangedaystyle cssclass="rcOutOfRange"></outofrangedaystyle>
</telerik:RadCalendar>
</td>
</tr>
<tr>
<td>
<telerik:RadCalendar ID="radCalendar2" runat="server" OnSelectionChanged="radCalendar2_SelectionChanged1"
Skin="Sunset">
<dayoverstyle cssclass="rcHover"></dayoverstyle>
<fastnavigationstyle cssclass="RadCalendarMonthView RadCalendarMonthView_Sunset">
</fastnavigationstyle>
<disableddaystyle cssclass="rcDisabled"></disableddaystyle>
<weekenddaystyle cssclass="rcWeekend"></weekenddaystyle>
<viewselectorstyle cssclass="rcViewSel"></viewselectorstyle>
<selecteddaystyle cssclass="rcSelected"></selecteddaystyle>
<calendartablestyle cssclass="rcMainTable"></calendartablestyle>
<othermonthdaystyle cssclass="rcOtherMonth"></othermonthdaystyle>
<outofrangedaystyle cssclass="rcOutOfRange"></outofrangedaystyle>
</telerik:RadCalendar>
</td>
</tr>
</table>
</td>
<td>
<telerik:RadScheduler ID="radScheduler" runat="server" DataEndField="ToDate" DataKeyField="CalendarID"
DataSourceID="SqlDataSource1" DataStartField="FromDate" DataSubjectField="Subject"
Skin="Sunset" OnAppointmentCreated="radScheduler_AppointmentCreated1" OnAppointmentDataBound="radScheduler_AppointmentDataBound1"
OnAppointmentDelete="radScheduler_AppointmentDelete1" OnAppointmentInsert="radScheduler_AppointmentInsert1"
OnNavigationComplete="radScheduler_NavigationComplete1" OnAppointmentUpdate="radScheduler_AppointmentUpdate">
<advancedform modal="true" />
<resourcestyles>
<telerik:ResourceStyleMapping Type="Calendar" Text="Development" BorderColor="#B0CC9B" />
<telerik:ResourceStyleMapping Type="Calendar" Text="Marketing" />
<telerik:ResourceStyleMapping Type="Calendar" Text="Work" BackColor="#edd5b7" BorderColor="#cdb597" />
</resourcestyles>
<%
--<inlineinserttemplate>
<div>
<asp:LinkButton ID="LinkButton2" runat="server">LinkButton</asp:LinkButton>
</div>
</inlineinserttemplate>
<appointmenttemplate>
<div>
<asp:LinkButton ID="LinkButton1" runat="server">LinkButton</asp:LinkButton>
</div>
</appointmenttemplate>--
%>
</telerik:RadScheduler>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:EVISEAZY %>"
DeleteCommand="DELETE FROM [tblCalendar] WHERE [CalendarID] = @CalendarID" InsertCommand="INSERT INTO [tblCalendar] ([InstitutionID], [Subject], [FromDate], [ToDate], [HolidayTypeID], [AcdamicYearId]) VALUES (@InstitutionID, @Subject, @FromDate, @ToDate, @HolidayTypeID, @AcdamicYearId)"
SelectCommand="SELECT * FROM [tblCalendar]" UpdateCommand="UPDATE [tblCalendar] SET [InstitutionID] = @InstitutionID, [Subject] = @Subject, [FromDate] = @FromDate, [ToDate] = @ToDate, [HolidayTypeID] = @HolidayTypeID, [AcdamicYearId] = @AcdamicYearId WHERE [CalendarID] = @CalendarID">
<DeleteParameters>
<asp:Parameter Name="CalendarID" Type="Int64" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="InstitutionID" Type="Int64" />
<asp:Parameter Name="Subject" Type="String" />
<asp:Parameter Name="FromDate" Type="DateTime" />
<asp:Parameter Name="ToDate" Type="DateTime" />
<asp:Parameter Name="HolidayTypeID" Type="Int64" />
<asp:Parameter Name="AcdamicYearId" Type="Int64" />
<asp:Parameter Name="CalendarID" Type="Int64" />
</UpdateParameters>
<InsertParameters>
<asp:Parameter Name="InstitutionID" Type="Int64" />
<asp:Parameter Name="Subject" Type="String" />
<asp:Parameter Name="FromDate" Type="DateTime" />
<asp:Parameter Name="ToDate" Type="DateTime" />
<asp:Parameter Name="HolidayTypeID" Type="Int64" />
<asp:Parameter Name="AcdamicYearId" Type="Int64" />
</InsertParameters>
</asp:SqlDataSource>
</td>
</tr>
</table>
<table>
<tr>
<td align="center">
</td>
</tr>
</tr>
</table>
</
asp:Content>
DispatchScheduler.TimelineView.StartTime = TimeSpan.Parse("08:00:00");<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="AktivitetsListe.ascx.vb" Inherits="emtepv3_5.WEB.UC.AktivitetsListe" %> <telerik:RadScriptBlock ID="RadScriptBlock1" runat="server"> <script type="text/javascript"> function myUserControlClickHandler() { $find("<%= RadAjaxManager.GetCurrent(Page).ClientID %>").ajaxRequest("content"); } function ShowEditForm(id, rowIndex, tp) { var grid = $find("<%= RadGrid_AKtivitetsListe.ClientID %>"); var rowControl = grid.get_masterTableView().get_dataItems()[rowIndex].get_element(); grid.get_masterTableView().selectItem(rowControl, true); if (tp == "copy") { WindowOpen(1000, 600, "../UI/AktDetaljer/AktivitetsCopy.aspx?AktID=" + id, "eMTEP-DK - Aktivitetsdetaljer"); return false; } else { WindowOpen(1000, 600, "../UI/AktDetaljer/AktivitetsDetaljer.aspx?AktID=" + id, "eMTEP-DK - Aktivitetsdetaljer"); return false; } } function ShowInsertForm() { WindowOpen(1000, 600, "../UI/AktDetaljer/AktivitetsDetaljer.aspx?AktID=0", "eMTEP-DK - Aktivitetsdetaljer"); return false; } function refreshGrid(arg) { if (!arg) { $find("<%= RadAjaxManager.GetCurrent(Page).ClientID %>").ajaxRequest("Rebind"); } else { $find("<%= RadAjaxManager.GetCurrent(Page).ClientID %>").ajaxRequest("RebindAndNavigate"); } } function RowDblClick(sender, eventArgs) { WindowOpen(1000, 600, "../UI/AktDetaljer/AktivitetsDetaljer.aspx?AktID=" + eventArgs.getDataKeyValue("AktivitetsID"), "eMTEP-DK - Aktivitetsdetaljer"); } function WindowOpen(Width, Height, Url, HeaderText) { var oWin = window.radopen(Url, HeaderText); oWin.set_title(HeaderText); oWin.setSize(Width, Height); oWin.MoveTo(10, 100); oWin.set_behaviors(Telerik.Web.UI.WindowBehaviors.Close); oWin.set_visibleStatusbar(false); // oWin.add_close(OnClientClose); return false; } // function OnClientClose(sender, eventArgs) { // $find("<%=RadGrid_AKtivitetsListe.ClientID %>").get_masterTableView().rebind(); // } </script> </telerik:RadScriptBlock> <telerik:RadAjaxManagerProxy ID="RadAjaxManagerProxy1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadAjaxManagerProxy1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid_AKtivitetsListe" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadGrid_AKtivitetsListe"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadGrid_AKtivitetsListe" /> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManagerProxy> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server" Skin="Office2007" BackgroundPosition="Center"> </telerik:RadAjaxLoadingPanel> <br /> <telerik:RadGrid ID="RadGrid_AKtivitetsListe" runat="server" Skin="Office2007" AutoGenerateColumns="False" GridLines="None" Height="600px"> <MasterTableView DataKeyNames="AktivitetsID" ClientDataKeyNames="AktivitetsID" CommandItemDisplay="Top"> <CommandItemSettings ExportToPdfText="Export to Pdf"></CommandItemSettings> <Columns> <telerik:GridImageColumn DataType="System.String" DataImageUrlFields="AktivitetsStatusUrl" DataImageUrlFormatString="~/images/{0}" ImageAlign="Middle" UniqueName="AktStatusCol"> <HeaderStyle Width="40px" /> </telerik:GridImageColumn> <telerik:GridBoundColumn DataField="AktivitetsPeriode" UniqueName="AktivitetsPeriode"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="AktivitetsNavn" UniqueName="AktivitetsNavn"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="AktivitetsSted" UniqueName="AktivitetsSted"> </telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="AktivitesRegNr" UniqueName="AktivitesRegNr"> </telerik:GridBoundColumn> <telerik:GridTemplateColumn UniqueName="EditCol"> <ItemTemplate> <asp:ImageButton ID="ImgEdit" runat="server" /> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn UniqueName="CopyCol"> <ItemTemplate> <asp:ImageButton ID="ImgCopy" runat="server" /> </ItemTemplate> </telerik:GridTemplateColumn> <telerik:GridButtonColumn ButtonType="ImageButton" CommandName="Delete" Text="Delete" UniqueName="DeleteCol"> </telerik:GridButtonColumn> </Columns> <CommandItemTemplate> <telerik:RadButton ID="RadButtonAddNew" runat="server" Skin="Office2007"></telerik:RadButton> </CommandItemTemplate> </MasterTableView> <ClientSettings> <Selecting AllowRowSelect="true" /> <ClientEvents OnRowDblClick="RowDblClick" /> <Scrolling AllowScroll="True" UseStaticHeaders="True" /> </ClientSettings> <HeaderContextMenu EnableImageSprites="True" CssClass="GridContextMenu GridContextMenu_Office2007"></HeaderContextMenu> </telerik:RadGrid> <telerik:RadWindowManager ID="RadWindowManager1" runat="server" EnableShadow="true"> <Windows> <telerik:RadWindow ID="AktDetaljerWindow" runat="server" Title="eMTEP-DK" Height="320px" Width="510px" Left="350px" ReloadOnShow="true" ShowContentDuringLoad="false" Modal="true" /> </Windows> </telerik:RadWindowManager>Imports emtepv3_CodeTier.BL Imports Telerik.Web.UI Imports emtepv3_5.WEB.CL Namespace UC Public Class AktivitetsListe Inherits clsHandle Private DateFra As DateTime Private DateTil As DateTime Private SObj As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Dim manager As RadAjaxManager = RadAjaxManager.GetCurrent(Page) AddHandler manager.AjaxRequest, AddressOf manager_AjaxRequest End Sub Protected Sub manager_AjaxRequest(ByVal sender As Object, ByVal e As Telerik.Web.UI.AjaxRequestEventArgs) 'handle the manager AjaxRequest event here RadGrid_AKtivitetsListe.Rebind() End Sub Protected Sub Page_OnPassData(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.OnPassData 'siden åbnes og data overføres 'DateFra = FraDato = Me.DatoFra 'DateTil = TilDato = Me.DatoTil ' SObj = SoegTxt = Me.SearchObj End Sub Protected Sub RadGrid_AKtivitetsListe_NeedDataSource(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid_AKtivitetsListe.NeedDataSource 'grid fyldes med data Dim gd As New GrundData gd.GrundDataDatoFra = FraDato gd.GrundDataDatoTil = TilDato MsgBox(FraDato) Dim br As New Bruger br.BrugerFiinAdresse = br.LogonBruger br.BrugerByFiinAdress() Dim akt As New Aktiviteter If SoegTxt = "ALL" Then akt.AktiviteterSelectByBrugerID(br, gd) Else Dim st As New SearchText st.SoegeTekst = SoegTxt akt.AktiviteterSelectByBrugerObjekter(gd, st, br) End If Dim culist As List(Of Aktiviteter) = akt.AktivitetsCollection StandardTexter.LoadGridTexter(RadGrid_AKtivitetsListe) RadGrid_AKtivitetsListe.DataSource = culist End Sub Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles RadGrid_AKtivitetsListe.ItemCreated 'aktioner når grid dannes If TypeOf e.Item Is GridHeaderItem Then Dim header As GridHeaderItem = CType(e.Item, GridHeaderItem) header("AktivitetsPeriode").Text = StandardTexter.SetFaellesTexter("Periode") header("AktivitetsNavn").Text = StandardTexter.SetFaellesTexter("Navn") header("AktivitetsSted").Text = StandardTexter.SetFaellesTexter("Sted") header("AktivitesRegNr").Text = StandardTexter.SetFaellesTexter("RegNr") End If 'afhængig af hvilket menupunkt siden kaldes fra vises forskellige kontroller i gridet If TypeOf e.Item Is GridDataItem Then Dim ImgEd As ImageButton = DirectCast(e.Item.FindControl("ImgEdit"), ImageButton) ImgEd.ImageUrl = "~/images/Edit.gif" ImgEd.Attributes("onclick") = [String].Format("return ShowEditForm('{0}','{1}', 'Akt');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("AktivitetsID"), e.Item.ItemIndex) Dim ImgCopy As ImageButton = DirectCast(e.Item.FindControl("ImgCopy"), ImageButton) ImgCopy.ImageUrl = "~/images/Copy.gif" ImgCopy.Attributes("onclick") = [String].Format("return ShowEditForm('{0}','{1}', 'copy');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("AktivitetsID"), e.Item.ItemIndex) End If If TypeOf e.Item Is GridCommandItem Then 'tilføj ny post knap får funktioner Dim RadImgBtn As RadButton = DirectCast(e.Item.FindControl("RadButtonAddNew"), RadButton) RadImgBtn.Text = StandardTexter.SetGridHeaderText("RadGrid_AddNewText") RadImgBtn.Icon.PrimaryIconUrl = "~/images/AddRecord.gif" RadImgBtn.Attributes("onclick") = [String].Format("return ShowInsertForm();") End If End Sub Private Property FraDato() As DateTime Get Return CDate(ViewState("FraDato")) End Get Set(ByVal value As DateTime) ViewState("FraDato") = value End Set End Property Private Property TilDato() As DateTime Get Return CDate(ViewState("TilDato")) End Get Set(ByVal value As DateTime) ViewState("TilDato") = value End Set End Property Private Property SoegTxt() As String Get Return CStr(ViewState("SoegTxt")) End Get Set(ByVal value As String) ViewState("SoegTxt") = value End Set End Property End Class End Namespace<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="AktivitetsDetaljer.aspx.vb" Inherits="emtepv3_5.WEB.UI.AktivitetsDetaljer" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> <link href="../../emtepStyle.css" rel="stylesheet" type="text/css" /> </head> <body> <form id="form1" runat="server"> <div align="right"> <asp:ImageButton ID="ImgBtnClose" runat="server" ImageUrl="~/images/Stop.gif" /> </div> <telerik:RadScriptBlock ID="RadScriptBlock1" runat="server"> <script type="text/javascript"> function onTabSelecting(sender, args) { if (args.get_tab().get_pageViewID()) { args.get_tab().set_postBack(false); } } function CloseAndRebind(args) { GetRadWindow().BrowserWindow.refreshGrid(args); GetRadWindow().close(); } function GetRadWindow() { var oWindow = null; if (window.radWindow) oWindow = window.radWindow; //Will work in Moz in all cases, including clasic dialog else if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; //IE (and Moz as well) return oWindow; } </script> </telerik:RadScriptBlock> <telerik:RadScriptManager ID="RadScriptManager1" Runat="server"> </telerik:RadScriptManager> <telerik:RadFormDecorator ID="RadFormDecorator1" Runat="server" Skin="Office2007" /> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadTabStripAktivitet"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadTabStripAktivitet" /> <telerik:AjaxUpdatedControl ControlID="RadMultiPageAktivitet" LoadingPanelID="LoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadMultiPageAktivitet"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadMultiPageAktivitet" LoadingPanelID="LoadingPanel1" /> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server" Skin="Office2007" BackgroundPosition="Center"> </telerik:RadAjaxLoadingPanel> <telerik:RadTabStrip ID="RadTabStripAktivitet" runat="server" Skin="Office2007" OnClientTabSelecting="onTabSelecting" MultiPageID="RadMultiPageAktivitet" SelectedIndex="0"> </telerik:RadTabStrip> <telerik:RadMultiPage ID="RadMultiPageAktivitet" Runat="server" SelectedIndex="0" CssClass="AktDetaljeTabSiden"> </telerik:RadMultiPage> </form> </body> </html>Imports emtepv3_5.WEB.CL Imports emtepv3_CodeTier.BL Imports Telerik.Web.UI Namespace UI Public Class AktivitetsDetaljer Inherits System.Web.UI.Page Dim IsNewPageView As Boolean = False Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Me.Page.IsPostBack Then BindRadTab() If CInt(Request("AktID")) <> 0 Then Select Case StandardTexter.BrugerLanguage Case "DA" AddPageView(RadTabStripAktivitet.FindTabByText("Grunddata")) Case "EN" AddPageView(RadTabStripAktivitet.FindTabByText("Maindata")) End Select Else Select Case StandardTexter.BrugerLanguage Case "DA" AddPageView(RadTabStripAktivitet.FindTabByText("Opret ny aktivitet")) Case "EN" AddPageView(RadTabStripAktivitet.FindTabByText("Add new activity")) End Select End If End If End Sub Protected Sub BindRadTab() Dim St As New SearchText If CInt(Request("AktID")) = 0 Then St.SoegeTekst = 0 Else Dim gd As New GrundData gd.GrundDataID = Request("AktID") gd.GrundDataById() Dim Sgtxt As String = gd.GrundDataAktArt & "," Sgtxt = Sgtxt & "1" St.SoegeTekst = Sgtxt End If Dim akttab As New AktivitetsDetaljeTab akttab.AktDetaljeTabGetByAktType(St) Dim cuList As List(Of AktivitetsDetaljeTab) = akttab.AktDetaljeTabCollection RadTabStripAktivitet.DataFieldID = "AktDetaljeTabID" Select Case StandardTexter.BrugerLanguage Case "DA" RadTabStripAktivitet.DataTextField = "AktDetaljeTabTekstDA" Case "EN" RadTabStripAktivitet.DataTextField = "AktDetaljeTabTekstEN" End Select RadTabStripAktivitet.DataSource = cuList RadTabStripAktivitet.DataBind() End Sub Private Sub AddPageView(ByVal tab As RadTab) Dim pageView As RadPageView = New RadPageView pageView.ID = tab.Text RadMultiPageAktivitet.PageViews.Add(pageView) tab.PageViewID = pageView.ID End Sub Protected Sub RadTabStrip1_TabClick(ByVal sender As Object, ByVal e As RadTabStripEventArgs) Handles RadTabStripAktivitet.TabClick AddPageView(e.Tab) e.Tab.PageView.Selected = True End Sub Protected Sub RadMultiPage1_PageViewCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadMultiPageEventArgs) Handles RadMultiPageAktivitet.PageViewCreated Dim adt As New AktivitetsDetaljeTab adt.AktDetaljeTabTekstDA = e.PageView.ID adt.AktDetaljeTabGetPageName() Dim userControlName As String = "~/UC/AktFaner/" + adt.AktDetaljeTabPage + ".ascx" Dim userControl As Control = Page.LoadControl(userControlName) userControl.ID = e.PageView.ID & "_Grunddata" e.PageView.Controls.Add(userControl) End Sub Protected Sub ImgBtnClose_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImgBtnClose.Click ClientScript.RegisterStartupScript(Page.[GetType](), "mykey", "CloseAndRebind();", True) End Sub End Class End Namespace