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.ToolbarExamplesVB.Toolbar.Examples.Functionality.Skinning
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadToolbar1 As Telerik.WebControls.RadToolbar
      Protected macOS As System.Web.UI.WebControls.RadioButton
      Protected Office12 As System.Web.UI.WebControls.RadioButton
      Protected Office2003 As System.Web.UI.WebControls.RadioButton
      Protected Office2000 As System.Web.UI.WebControls.RadioButton
      Protected VSNET As System.Web.UI.WebControls.RadioButton
      Protected monochrome As System.Web.UI.WebControls.RadioButton
      Protected ExplorerXP As System.Web.UI.WebControls.RadioButton
      Protected winAmpModern As System.Web.UI.WebControls.RadioButton
      Protected Glassy As System.Web.UI.WebControls.RadioButton
      Protected Green As System.Web.UI.WebControls.RadioButton
      
      
      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
      Protected Sub Checked(sender As Object, e As EventArgs)
         Dim btn As RadioButton = CType(sender, RadioButton)
         RadToolbar1.Skin = btn.Text
      End Sub 'Checked
   End Class 'DefaultVB
End Namespace 'Telerik.ToolbarExamplesVB.Toolbar.Examples.Functionality.Skinning