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
Imports Telerik.QuickStart


Namespace Telerik.TabStripExamplesVB.Programming.ClientEvents
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents MouseOut As System.Web.UI.WebControls.CheckBox
      Protected WithEvents MouseOver As System.Web.UI.WebControls.CheckBox
      Protected WithEvents TabSelecting As System.Web.UI.WebControls.CheckBox
      Protected WithEvents TabSelected As System.Web.UI.WebControls.CheckBox
      Protected WithEvents TabUnSelected As System.Web.UI.WebControls.CheckBox
      Protected RadTabStrip1 As Telerik.WebControls.RadTabStrip
      
      
      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 MouseOut_CheckedChanged(sender As Object, e As System.EventArgs) Handles MouseOut.CheckedChanged
         If MouseOut.Checked Then
            RadTabStrip1.OnClientMouseOut = "OnMouseOut"
         Else
            RadTabStrip1.OnClientMouseOut = ""
         End If
      End Sub 'MouseOut_CheckedChanged
      
      
      Private Sub MouseOver_CheckedChanged(sender As Object, e As System.EventArgs) Handles MouseOver.CheckedChanged
         If MouseOver.Checked Then
            RadTabStrip1.OnClientMouseOver = "OnMouseOver"
         Else
            RadTabStrip1.OnClientMouseOver = ""
         End If
      End Sub 'MouseOver_CheckedChanged
      
      
      Private Sub TabSelecting_CheckedChanged(sender As Object, e As System.EventArgs) Handles TabSelecting.CheckedChanged
         If TabSelecting.Checked Then
            RadTabStrip1.OnClientTabSelecting = "OnSelecting"
         Else
            RadTabStrip1.OnClientTabSelecting = ""
         End If
      End Sub 'TabSelecting_CheckedChanged
      
      
      Private Sub TabSelected_CheckedChanged(sender As Object, e As System.EventArgs) Handles TabSelected.CheckedChanged
         If TabSelected.Checked Then
            RadTabStrip1.OnClientTabSelected = "OnSelected"
         Else
            RadTabStrip1.OnClientTabSelected = ""
         End If
      End Sub 'TabSelected_CheckedChanged
      
      
      Private Sub TabUnSelected_CheckedChanged(sender As Object, e As System.EventArgs) Handles TabUnSelected.CheckedChanged
         If TabUnSelected.Checked Then
            RadTabStrip1.OnClientTabUnSelected = "OnUnSelected"
         Else
            RadTabStrip1.OnClientTabUnSelected = ""
         End If
      End Sub 'TabUnSelected_CheckedChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.TabStripExamplesVB.Programming.ClientEvents