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.HandlingControls
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockableObject1 As RadDockableObject
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected RadDockingZone2 As Telerik.WebControls.RadDockingZone
      Protected RadDockableObject2 As RadDockableObject
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         Dim ButtonUpdate As Button = CType(RadDockableObject1.FindControl("ButtonUpdate"), Button)
         AddHandler ButtonUpdate.Click, AddressOf ButtonUpdate_Click
         
         If Not IsPostBack Then
            Dim txt As TextBox = CType(RadDockableObject1.FindControl("TextBox1"), TextBox)
            txt.Text = "some text"
         End If
      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)
      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
      Private Sub ButtonUpdate_Click(sender As Object, e As EventArgs)
         Dim textBox As TextBox = CType(RadDockableObject1.FindControl("TextBox1"), TextBox)
         Dim label As Label = CType(RadDockableObject1.FindControl("Label1"), Label)
         
         label.Text = textBox.Text
      End Sub 'ButtonUpdate_Click
      
      
      Protected Sub Button1_Click(sender As Object, e As EventArgs)
         Dim button As Button = CType(sender, Button)
         Dim label As Label = CType(RadDockableObject2.FindControl("Label2"), Label)
         
         label.Text = String.Format("[{0}] clicked at {1}", button.ID, DateTime.Now.ToLongTimeString())
      End Sub 'Button1_Click
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.Dock.Examples.HandlingControls