defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.WebControls
Imports Telerik.QuickStart


Namespace Telerik.DockExamplesVBNET.Dock.Examples.DockableObjectDynamicCreation
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockingZone1 As RadDockingZone
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected RadDockingZone2 As RadDockingZone
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
         
         CreateDockableObjects()
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Sub CreateDockableObjects()
         Dim radDockableObject1 As RadDockableObject = CreateDockableObjectFromAscx()
         Dim radDockableObject3 As RadDockableObject = CreateDockableObjectFromControls()
         
         RadDockingZone1.Controls.Add(radDockableObject1)
         
         RadDockingZone2.Controls.Add(radDockableObject3)
      End Sub 'CreateDockableObjects
      
      
      Function CreateDockableObjectFromAscx() As RadDockableObject
         Dim dockableObject As New RadDockableObject()
         dockableObject.ID = "RadDockableObject1"
         dockableObject.ContentTemplate = Page.LoadTemplate("WebUserControl1.ascx")
         
         Return dockableObject
      End Function 'CreateDockableObjectFromAscx
      
      
      Function CreateDockableObjectFromControls() As RadDockableObject
         Dim dockableObject As New RadDockableObject()
         dockableObject.ID = "RadDockableObject3"
         
         Dim myLabel As New Label()
         myLabel.Text = "Hallo, world!"
         
         Dim myButton As New Button()
         myButton.Text = "Try Postback"
         
         dockableObject.Container.Controls.Add(myLabel)
         dockableObject.Container.Controls.Add(New LiteralControl("<br/><br/>"))
         dockableObject.Container.Controls.Add(myButton)
         
         Return dockableObject
      End Function 'CreateDockableObjectFromControls
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.Dock.Examples.DockableObjectDynamicCreation