I tried the below code
Function
CreateJavaScriptFunctionCall(ByVal dock As RadDock) As String
Dim dockHandleID As String = ""
For Each contrl As Control In dock.ContentContainer.Controls
If TypeOf contrl Is LiteralControl Then
d
ockHandleID = contrl.ClientID
End If
n
ext
Return "changeRadDockHandle('" + dock.ClientID + "','" + dockHandleID + "')"
End Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim smExists As Boolean = False
For Each contrl As Control In Page.Form.Controls
If TypeOf contrl Is ScriptManager Then
smExists = True
Exit For
End If
Next
If Not (smExists) Then
Dim sm As New ScriptManager()
Page.Form.Controls.Add(sm)
Page.Header.Controls.Add(
New LiteralControl("<script language='javascript'> function changeRadDockHandle(dockID,handleID){var dock = $find(dockID)dock.set_handle(document.getElementById(handleID))} </script>"))
End If
Dim layout As New RadDockLayout()
layout.ID =
"layout"
Page.Form.Controls.Add(layout)
Dim zone As New RadDockZone()
layout.Controls.Add(zone)
Dim zone2 As New RadDockZone()
layout.Controls.Add(zone2)
Dim UpdatePanl As New UpdatePanel()
UpdatePanl.ID =
"UpdatePanel1"
layout.Controls.Add(UpdatePanl)
zone.ID = "zone"
zone2.ID = "zone2"
Dim dock As New RadDock()
dock.ID = "dock"
dock.ContentContainer.Controls.Add(New LiteralControl("blahblah"))
dock.DefaultCommands = Telerik.Web.UI.Dock.DefaultCommands.None
dock.DockHandle = DockHandle.None
dock.OnClientInitialize = CreateJavaScriptFunctionCall(dock)
zone.Controls.Add(dock)
End Sub
But its not working,simply showing the literal control only and a javascript error
Object Expected
Thanks