defaultvb.aspx.vb

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

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.Commands
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadDockingManager1 As Telerik.WebControls.RadDockingManager
      Protected WithEvents RadDockableObject1 As Telerik.WebControls.RadDockableObject
      Protected WithEvents RadDockableObject2 As Telerik.WebControls.RadDockableObject
      Protected RadDockingZone1 As Telerik.WebControls.RadDockingZone
      Protected RadDockingZone2 As Telerik.WebControls.RadDockingZone
      Protected MsgPanel As System.Web.UI.WebControls.Panel
      Protected labelMsg As System.Web.UI.WebControls.Label
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      ' Put user code to initialize the page here
      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 RadDockableObject_Command1(sender As Object, e As EventArgs) Handles RadDockableObject1.Command
         RadDockableObject_Command(sender, e)
      End Sub 'RadDockableObject_Command1
      
      
      Private Sub RadDockableObject_Command2(sender As Object, e As EventArgs) Handles RadDockableObject2.Command
         RadDockableObject_Command(sender, e)
      End Sub 'RadDockableObject_Command2
      
      
      Private Sub RadDockableObject_Command(sender As Object, e As EventArgs)
         Dim dockableObject As RadDockableObject = CType(sender, RadDockableObject)
         Dim commandEventArgs As RadDockableObjectCommandEventArgs = CType(e, RadDockableObjectCommandEventArgs)
         
         labelMsg.Text = String.Format("Command <strong>{0}</strong> of <strong>{1}</strong> has executed on the server.", commandEventArgs.Command.Name, dockableObject.ID)
      End Sub 'RadDockableObject_Command
   End Class 'DefaultVB
End Namespace 'Telerik.DockExamplesVBNET.Dock.Examples.Commands