defaultvb.aspx.vb

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

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.SaveLoadState
   
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected WithEvents btnSaveState As Button
      Protected RadDockableObject1 As Telerik.WebControls.RadDockableObject
      Protected RadDockableObject2 As Telerik.WebControls.RadDockableObject
      Protected RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected RadDockingZone2 As Telerik.WebControls.RadDockingZone
      Protected WithEvents btnReset As Button
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not IsPostBack Then
            ' When the page is requested and a layout is already stored
            ' in the Application object it is loaded.
            Dim state As Object = Me.Application("RadDockState")
            If TypeOf state Is String Then
               RadDockingManager1.LoadState(CStr(state))
            End If
         End If
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         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 btnSaveState_Click(sender As Object, e As EventArgs) Handles btnSaveState.Click
         ' When "Save state" button is pressed the current 
         ' layout is stored in the Application objet
         Me.Application("RadDockState") = RadDockingManager1.SaveState()
      End Sub 'btnSaveState_Click
      
      
      Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
         Me.Application("RadDockState") = Nothing
      End Sub 'btnReset_Click
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.SaveLoadState