defaultvb.aspx.vb

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

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.MyPortal
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockingManager1 As RadDockingManager
      Protected WithEvents btnSave As Button
      Protected WithEvents btnEdit As Button
      Protected contextmenuholder As System.Web.UI.HtmlControls.HtmlGenericControl
      Protected RadDockableObject1 As Telerik.WebControls.RadDockableObject
      Protected RadDockableObject2 As Telerik.WebControls.RadDockableObject
      Protected RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected Raddockableobject6 As Telerik.WebControls.RadDockableObject
      Protected Raddockingzone2 As Telerik.WebControls.RadDockingZone
      Protected Raddockableobject7 As Telerik.WebControls.RadDockableObject
      Protected Raddockingzone4 As Telerik.WebControls.RadDockingZone
      Protected Raddockableobject8 As Telerik.WebControls.RadDockableObject
      Protected Raddockingzone5 As Telerik.WebControls.RadDockingZone
      Protected Raddockableobject3 As Telerik.WebControls.RadDockableObject
      Protected Raddockableobject4 As Telerik.WebControls.RadDockableObject
      Protected Raddockableobject5 As Telerik.WebControls.RadDockableObject
      Protected Raddockingzone3 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
            If LoadStateFromSession() Then
               EnableEdit(False)
            End If
         End If
         
         UpdateButtons()
      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 btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
         SaveStateInSession()
         EnableEdit(False)
      End Sub 'btnSave_Click
      
      
      Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
         EnableEdit(True)
      End Sub 'btnEdit_Click
      
      
      Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
         ResetState()
      End Sub 'btnReset_Click
      
      
      Sub ResetState()
         Me.Session("MyPortalState") = Nothing
         Response.Redirect(Request.Url.AbsoluteUri)
      End Sub 'ResetState
      
      
      Sub SaveStateInSession()
         Me.Session("MyPortalState") = RadDockingManager1.SaveState()
      End Sub 'SaveStateInSession
      
      
      Function LoadStateFromSession() As Boolean
         Dim o As Object = Me.Session("MyPortalState")
         If TypeOf o Is String Then
            RadDockingManager1.LoadState(CStr(o))
            Return True
         End If
         
         Return False
      End Function 'LoadStateFromSession
      
      
      Sub EnableEdit(enabled As Boolean)
         RadDockingManager1.DockEnabled = enabled
         UpdateButtons()
      End Sub 'EnableEdit
      
      
      Sub UpdateButtons()
         Dim canEdit As Boolean = RadDockingManager1.DockEnabled
         
         Me.btnReset.Visible = canEdit
         Me.btnSave.Visible = canEdit
         Me.btnEdit.Visible = Not canEdit
         Me.contextmenuholder.Visible = canEdit
      End Sub 'UpdateButtons
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.Dock.Examples.MyPortal