defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 204 行

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.QuickStart
Imports Telerik.WebControls


Namespace Telerik.DockExamplesVBNET.DockEnabled
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected RadDockingZone2 As Telerik.WebControls.RadDockingZone
      Protected RadDockableObject1 As Telerik.WebControls.RadDockableObject
      Protected RadDockableObject2 As Telerik.WebControls.RadDockableObject
      Protected RadDockableObject3 As Telerik.WebControls.RadDockableObject
      Protected RadDockableObject4 As Telerik.WebControls.RadDockableObject
      
      Protected chkBoxEnableManager As CheckBox
      Protected chkBoxEnableZone1 As CheckBox
      Protected chkBoxEnableZone2 As CheckBox
      Protected chkBoxEnableObject1 As CheckBox
      Protected chkBoxEnableObject2 As CheckBox
      Protected chkBoxEnableObject3 As CheckBox
      Protected chkBoxEnableObject4 As CheckBox
      
      Protected chkBoxShowTitleObject1 As CheckBox
      Protected chkBoxShowTitleObject2 As CheckBox
      Protected chkBoxShowTitleObject3 As CheckBox
      Protected chkBoxShowTitleObject4 As CheckBox
      
      
      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)
      End Sub 'OnInit
      
      
      Protected Overrides Sub OnPreRender(e As EventArgs)
         UpdateCheckBoxState()
      End Sub 'OnPreRender
      
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
         
         
         AddHandler chkBoxEnableManager.CheckedChanged, AddressOf chkBoxEnableManager_CheckedChanged
         
         AddHandler chkBoxEnableZone1.CheckedChanged, AddressOf chkBoxEnableZone1_CheckedChanged
         AddHandler chkBoxEnableZone2.CheckedChanged, AddressOf chkBoxEnableZone2_CheckedChanged
         
         AddHandler chkBoxEnableObject1.CheckedChanged, AddressOf chkBoxEnableObject1_CheckedChanged
         AddHandler chkBoxEnableObject2.CheckedChanged, AddressOf chkBoxEnableObject2_CheckedChanged
         AddHandler chkBoxEnableObject3.CheckedChanged, AddressOf chkBoxEnableObject3_CheckedChanged
         AddHandler chkBoxEnableObject4.CheckedChanged, AddressOf chkBoxEnableObject4_CheckedChanged
         
         AddHandler chkBoxShowTitleObject1.CheckedChanged, AddressOf chkBoxShowTitleObject1_CheckedChanged
         AddHandler chkBoxShowTitleObject2.CheckedChanged, AddressOf chkBoxShowTitleObject2_CheckedChanged
         AddHandler chkBoxShowTitleObject3.CheckedChanged, AddressOf chkBoxShowTitleObject3_CheckedChanged
         AddHandler chkBoxShowTitleObject4.CheckedChanged, AddressOf chkBoxShowTitleObject4_CheckedChanged
      End Sub 'InitializeComponent
      Sub UpdateCheckBoxState()
         chkBoxEnableManager.Checked = RadDockingManager1.DockEnabled
         
         chkBoxEnableZone1.Checked = RadDockingZone1.DockEnabled
         chkBoxEnableZone2.Checked = RadDockingZone2.DockEnabled
         
         chkBoxEnableObject1.Checked = RadDockableObject1.DockingMode <> RadDockingModeFlags.Disabled
         chkBoxEnableObject2.Checked = RadDockableObject2.DockingMode <> RadDockingModeFlags.Disabled
         chkBoxEnableObject3.Checked = RadDockableObject3.DockingMode <> RadDockingModeFlags.Disabled
         chkBoxEnableObject4.Checked = RadDockableObject4.DockingMode <> RadDockingModeFlags.Disabled
         
         chkBoxShowTitleObject1.Checked = RadDockableObject1.ShowTitleBarWhenDisabled
         chkBoxShowTitleObject2.Checked = RadDockableObject2.ShowTitleBarWhenDisabled
         chkBoxShowTitleObject3.Checked = RadDockableObject3.ShowTitleBarWhenDisabled
         chkBoxShowTitleObject4.Checked = RadDockableObject4.ShowTitleBarWhenDisabled
      End Sub 'UpdateCheckBoxState
      
      
      Private Sub chkBoxEnableManager_CheckedChanged(sender As Object, e As EventArgs)
         RadDockingManager1.DockEnabled = chkBoxEnableManager.Checked
      End Sub 'chkBoxEnableManager_CheckedChanged
      
      
      Private Sub chkBoxEnableZone1_CheckedChanged(sender As Object, e As EventArgs)
         RadDockingZone1.DockEnabled = chkBoxEnableZone1.Checked
      End Sub 'chkBoxEnableZone1_CheckedChanged
      
      
      Private Sub chkBoxEnableZone2_CheckedChanged(sender As Object, e As EventArgs)
         RadDockingZone2.DockEnabled = chkBoxEnableZone2.Checked
      End Sub 'chkBoxEnableZone2_CheckedChanged
      
      
      Private Sub chkBoxEnableObject1_CheckedChanged(sender As Object, e As EventArgs)
         If chkBoxEnableObject1.Checked Then
            RadDockableObject1.DockingMode = RadDockingModeFlags.Dockable
         Else
            RadDockableObject1.DockingMode = RadDockingModeFlags.Disabled
         End If
      End Sub 'chkBoxEnableObject1_CheckedChanged
      
      
      Private Sub chkBoxEnableObject2_CheckedChanged(sender As Object, e As EventArgs)
         If chkBoxEnableObject2.Checked Then
            RadDockableObject2.DockingMode = RadDockingModeFlags.Dockable
         Else
            RadDockableObject2.DockingMode = RadDockingModeFlags.Disabled
         End If
      End Sub 'chkBoxEnableObject2_CheckedChanged
      
      
      Private Sub chkBoxEnableObject3_CheckedChanged(sender As Object, e As EventArgs)
         If chkBoxEnableObject3.Checked Then
            RadDockableObject3.DockingMode = RadDockingModeFlags.Dockable
         Else
            RadDockableObject3.DockingMode = RadDockingModeFlags.Disabled
         End If
      End Sub 'chkBoxEnableObject3_CheckedChanged
       
      
      Private Sub chkBoxEnableObject4_CheckedChanged(sender As Object, e As EventArgs)
         If chkBoxEnableObject4.Checked Then
            RadDockableObject4.DockingMode = RadDockingModeFlags.Dockable
         Else
            RadDockableObject4.DockingMode = RadDockingModeFlags.Disabled
         End If
      End Sub 'chkBoxEnableObject4_CheckedChanged
      
      
      Protected Sub Update1_Click(sender As Object, e As EventArgs)
         Dim txt As TextBox = CType(RadDockableObject1.FindControl("TextBox1"), TextBox)
         Dim label As Label = CType(RadDockableObject1.FindControl("Label1"), Label)
         
         label.Text = txt.Text
      End Sub 'Update1_Click
      
      
      Protected Sub Update2_Click(sender As Object, e As EventArgs)
         Dim txt As TextBox = CType(RadDockableObject2.FindControl("TextBox2"), TextBox)
         Dim label As Label = CType(RadDockableObject2.FindControl("Label2"), Label)
         
         label.Text = txt.Text
      End Sub 'Update2_Click
      
      
      Protected Sub Update3_Click(sender As Object, e As EventArgs)
         Dim txt As TextBox = CType(RadDockableObject3.FindControl("TextBox3"), TextBox)
         Dim label As Label = CType(RadDockableObject3.FindControl("Label3"), Label)
         
         label.Text = txt.Text
      End Sub 'Update3_Click
      
      
      Protected Sub Update4_Click(sender As Object, e As EventArgs)
         Dim txt As TextBox = CType(RadDockableObject4.FindControl("TextBox4"), TextBox)
         Dim label As Label = CType(RadDockableObject4.FindControl("Label4"), Label)
         
         label.Text = txt.Text
      End Sub 'Update4_Click
      
      
      Private Sub chkBoxShowTitleObject1_CheckedChanged(sender As Object, e As EventArgs)
         RadDockableObject1.ShowTitleBarWhenDisabled = chkBoxShowTitleObject1.Checked
      End Sub 'chkBoxShowTitleObject1_CheckedChanged
      
      
      Private Sub chkBoxShowTitleObject2_CheckedChanged(sender As Object, e As EventArgs)
         RadDockableObject2.ShowTitleBarWhenDisabled = chkBoxShowTitleObject2.Checked
      End Sub 'chkBoxShowTitleObject2_CheckedChanged
      
      
      Private Sub chkBoxShowTitleObject3_CheckedChanged(sender As Object, e As EventArgs)
         RadDockableObject3.ShowTitleBarWhenDisabled = chkBoxShowTitleObject3.Checked
      End Sub 'chkBoxShowTitleObject3_CheckedChanged
      
      
      Private Sub chkBoxShowTitleObject4_CheckedChanged(sender As Object, e As EventArgs)
         RadDockableObject4.ShowTitleBarWhenDisabled = chkBoxShowTitleObject4.Checked
      End Sub 'chkBoxShowTitleObject4_CheckedChanged
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.DockEnabled