Hi,
I'm trying to create a RadPanelBar dynamically and it doesn't seem to work. This is my code.
The menus don't open up and i get the following error: "Microsoft JScript runtime error: 'undefined' is null or not an object" with a Break, Continue, Ignore dialog box.
Is there anything I'm doing wrong?
I'm trying to create a RadPanelBar dynamically and it doesn't seem to work. This is my code.
Dim radPanelBarDistributor As New RadPanelBar |
radPanelBarDistributor.Width = Unit.Pixel(158) |
radPanelBarDistributor.Skin = "WebBlue" |
radPanelBarDistributor.ExpandMode = PanelBarExpandMode.SingleExpandedItem |
radPanelBarDistributor.PersistStateInCookie = True |
radPanelBarDistributor.Attributes.Add("runat", "server") |
Dim rpi As RadPanelItem |
Dim childItem As RadPanelItem |
'== My Account |
rpi = New RadPanelItem |
rpi.Text = "My Account" |
childItem = New RadPanelItem |
childItem.Text = "My Profile" |
childItem.NavigateUrl = "~/Manage/Profile.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "AutoShip Options" |
childItem.NavigateUrl = "~/Manage/AutoShip.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "My Orders" |
childItem.NavigateUrl = "~/Manage/MyOrders.aspx" |
rpi.Items.Add(childItem) |
radPanelBarDistributor.Items.Add(rpi) |
'RadPanelBar1.Items.Add(rpi) |
'== Only Distributors can see the extended menu |
If UserInstance.ContactTypeID = CInt(Harmony.Common.Constants.ContactType.Distributor) Then |
'== Manage |
rpi = New RadPanelItem |
rpi.Text = "Manage" |
childItem = New RadPanelItem |
childItem.Text = "Enroll a Distributor" |
childItem.NavigateUrl = "~/Manage/Enrollment.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "Enroll a Customer" |
childItem.NavigateUrl = "~/Manage/Enrollment.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "Place an Order" |
childItem.NavigateUrl = "~/Products.aspx" |
rpi.Items.Add(childItem) |
'RadPanelBar1.Items.Add(rpi) |
radPanelBarDistributor.Items.Add(rpi) |
'== Prosperity |
rpi = New RadPanelItem |
rpi.Text = "Prosperity" |
childItem = New RadPanelItem |
childItem.Text = "View Trees" |
childItem.NavigateUrl = "~/Manage/Downline.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "Commissions" |
childItem.NavigateUrl = "~/Manage/Commissions.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "Prosperity Card" |
childItem.NavigateUrl = "~/Manage/ProsperityCard.aspx" |
rpi.Items.Add(childItem) |
childItem = New RadPanelItem |
childItem.Text = "Marketing Center" |
childItem.NavigateUrl = "~/Manage/Marketing.aspx" |
rpi.Items.Add(childItem) |
'RadPanelBar1.Items.Add(rpi) |
radPanelBarDistributor.Items.Add(rpi) |
End If |
pnlDistributorMenu.Controls.Add(radPanelBarDistributor) |
The menus don't open up and i get the following error: "Microsoft JScript runtime error: 'undefined' is null or not an object" with a Break, Continue, Ignore dialog box.
Is there anything I'm doing wrong?