defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

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


Namespace Telerik.PanelbarExamplesVBNET.Panelbar.Examples.Programming.ClientSideEvents
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected RadPanelbar1 As Telerik.WebControls.RadPanelbar
      Protected BeforeExpand As System.Web.UI.WebControls.CheckBox
      Protected AfterExpand As System.Web.UI.WebControls.CheckBox
      Protected BeforeCollapse As System.Web.UI.WebControls.CheckBox
      Protected AfterCollapse As System.Web.UI.WebControls.CheckBox
      Protected BeforeClick As System.Web.UI.WebControls.CheckBox
      Protected AfterClick As System.Web.UI.WebControls.CheckBox
      Protected MouseOver As System.Web.UI.WebControls.CheckBox
      Protected ApplyFilter As System.Web.UI.WebControls.Button
      Protected MouseOut As System.Web.UI.WebControls.CheckBox
      
      
      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 Sub ApplyFilter_Click(sender As Object, e As System.EventArgs)
         If BeforeExpand.Checked Then
            RadPanelbar1.BeforeClientPanelItemExpanded = "onBeforeExpand"
         Else
            RadPanelbar1.BeforeClientPanelItemExpanded = ""
         End If
         
         If AfterExpand.Checked Then
            RadPanelbar1.AfterClientPanelItemExpanded = "onAfterExpand"
         Else
            RadPanelbar1.AfterClientPanelItemExpanded = ""
         End If
         
         If BeforeCollapse.Checked Then
            RadPanelbar1.BeforeClientPanelItemCollapsed = "onBeforeCollapse"
         Else
            RadPanelbar1.BeforeClientPanelItemCollapsed = ""
         End If
         
         If AfterCollapse.Checked Then
            RadPanelbar1.AfterClientPanelItemCollapsed = "onAfterCollapse"
         Else
            RadPanelbar1.AfterClientPanelItemCollapsed = ""
         End If
         
         If BeforeClick.Checked Then
            RadPanelbar1.BeforeClientPanelItemClicked = "onBeforeClick"
         Else
            RadPanelbar1.BeforeClientPanelItemClicked = ""
         End If
         
         If AfterClick.Checked Then
            RadPanelbar1.AfterClientPanelItemClicked = "onAfterClick"
         Else
            RadPanelbar1.AfterClientPanelItemClicked = ""
         End If
         
         If MouseOver.Checked Then
            RadPanelbar1.ClientMouseOver = "onMouseOver"
         Else
            RadPanelbar1.ClientMouseOver = ""
         End If
         
         If MouseOut.Checked Then
            RadPanelbar1.ClientMouseOut = "onMouseOut"
         Else
            RadPanelbar1.ClientMouseOut = ""
         End If
      End Sub 'ApplyFilter_Click
      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
   End Class 'DefaultVB 
End Namespace 'Telerik.PanelbarExamplesVBNET.Panelbar.Examples.Programming.ClientSideEvents