defaultvb.aspx.vb

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

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


Namespace Telerik.CallbackExamplesVB.Controls.CheckBoxList
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents CallbackCheckBoxList1 As CallbackCheckBoxList


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub 'Page_Load
        ' Put user code to initialize the page here

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal 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 Region


        Private Sub UpdateStyle()
            Label1.Font.Bold = CallbackCheckBoxList1.Items(0).Selected
            Label1.Font.Italic = CallbackCheckBoxList1.Items(1).Selected
            Label1.Font.Underline = CallbackCheckBoxList1.Items(2).Selected
            Label1.Font.Strikeout = CallbackCheckBoxList1.Items(3).Selected
        End Sub 'UpdateStyle


        Private Sub CallbackCheckBoxList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackCheckBoxList1.SelectedIndexChanged
            UpdateStyle()
        End Sub 'CallbackCheckBoxList1_SelectedIndexChanged


        Private Sub CallbackCheckBoxList1_KeyPress(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs)
            UpdateStyle()
        End Sub 'CallbackCheckBoxList1_KeyPress


        Private Sub CallbackCheckBoxList1_KeyUp(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles CallbackCheckBoxList1.KeyUp
        End Sub 'CallbackCheckBoxList1_KeyUp
    End Class 'DefaultVB 
End Namespace 'Telerik.CallbackExamplesVB.Controls.CheckBoxList