defaultvb.aspx.vb

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

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


Namespace Telerik.DockExamplesVBNET.Dock.Examples.Effects
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Page
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected RadDockingZone3 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 RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected RadDockingZone2 As Telerik.WebControls.RadDockingZone
      Protected Raddockingzone4 As Telerik.WebControls.RadDockingZone
      Protected chkEffects As System.Web.UI.WebControls.CheckBox
      Protected txtUpdateRate As System.Web.UI.WebControls.TextBox
      Protected txtDuration As System.Web.UI.WebControls.TextBox
      Protected btnApply As System.Web.UI.WebControls.Button
      Protected btnReset As System.Web.UI.WebControls.Button
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not IsPostBack Then
            chkEffects.Checked = RadDockingManager1.EffectsEnabled
            
            txtUpdateRate.Text = RadDockingManager1.EffectsUpdateRate.ToString()
            txtDuration.Text = RadDockingManager1.EffectsDuration.ToString()
         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()
         
         AddHandler chkEffects.CheckedChanged, AddressOf chkEffects_CheckedChanged
         AddHandler btnApply.Click, AddressOf btnApply_Click
         AddHandler btnReset.Click, AddressOf btnReset_Click
      End Sub 'InitializeComponent
      Private Sub chkEffects_CheckedChanged(sender As Object, e As EventArgs)
         RadDockingManager1.EffectsEnabled = chkEffects.Checked
         
         ApplyEffectsSettings()
      End Sub 'chkEffects_CheckedChanged
      
      
      Private Sub btnApply_Click(sender As Object, e As EventArgs)
         ApplyEffectsSettings()
      End Sub 'btnApply_Click
      
      
      Private Sub btnReset_Click(sender As Object, e As EventArgs)
         RadDockingManager1.EffectsUpdateRate = 50
         RadDockingManager1.EffectsDuration = 0.3F
         
         txtUpdateRate.Text = RadDockingManager1.EffectsUpdateRate.ToString()
         txtDuration.Text = RadDockingManager1.EffectsDuration.ToString()
      End Sub 'btnReset_Click
      
      
      Sub ApplyEffectsSettings()
         RadDockingManager1.EffectsUpdateRate = Integer.Parse(txtUpdateRate.Text)
         RadDockingManager1.EffectsDuration = Single.Parse(txtDuration.Text)
      End Sub 'ApplyEffectsSettings
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.Dock.Examples.Effects