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


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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected WithEvents btnAdd As Telerik.WebControls.CallbackButton
        Protected WithEvents btnRemove As Telerik.WebControls.CallbackButton
        Protected WithEvents btnUpdate As Telerik.WebControls.CallbackButton
        Protected WithEvents tbName As Telerik.WebControls.CallbackTextBox
        Protected WithEvents tbFamilyName As Telerik.WebControls.CallbackTextBox
        Protected WithEvents label11 As System.Web.UI.WebControls.Label
        Protected WithEvents statusLabel As System.Web.UI.WebControls.Label
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents LoadingPanel2 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents lbNames As Telerik.WebControls.CallbackListBox


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub 'Page_Load

#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 ResetControls()
            tbName.BackColor = Color.White
            tbFamilyName.BackColor = Color.White
            Label3.Text = "All fields are required!"
        End Sub 'ResetControls


        Private Sub CallbackButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
            If tbName.Text.Length > 0 AndAlso tbFamilyName.Text.Length > 0 Then
                lbNames.Items.Add((tbName.Text + " " + tbFamilyName.Text))
                tbName.Text = ""
                tbFamilyName.Text = ""
                btnAdd.ResponseScript = "document.getElementById('" + tbFamilyName.ClientID + "').value = '';"
                DisableButtons()
                ResetControls()
            Else
                HandleError()
            End If
        End Sub 'CallbackButton1_Click


        Private Sub HandleError()
            If tbName.Text.Length = 0 Then
                tbName.BackColor = Color.Pink
            End If
            If tbFamilyName.Text.Length = 0 Then
                tbFamilyName.BackColor = Color.Pink
            End If

            If tbName.Text.Length = 0 AndAlso tbFamilyName.Text.Length = 0 Then
                Label3.Text = "Name or Family Name is missing."
            ElseIf tbName.Text.Length = 0 Then
                Label3.Text = "Name is missing!"
            ElseIf tbFamilyName.Text.Length = 0 Then
                Label3.Text = "Family Name is missing!"
            Else
            End If
        End Sub 'HandleError


        Private Sub DisableButtons()
            btnAdd.Enabled = False
            btnRemove.Enabled = False
            btnUpdate.Enabled = False
        End Sub 'DisableButtons


        Private Sub btnRemove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemove.Click
            lbNames.Items.RemoveAt(lbNames.SelectedIndex)
            btnRemove.Enabled = False
            btnUpdate.Enabled = False
            tbName.Text = ""
            tbFamilyName.Text = ""
        End Sub 'btnRemove_Click


        Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
            If tbName.Text <> String.Empty AndAlso tbFamilyName.Text <> String.Empty Then
                lbNames.SelectedItem.Text = tbName.Text + " " + tbFamilyName.Text
                btnRemove.Enabled = False
                btnUpdate.Enabled = False
                btnAdd.Enabled = False
                tbName.Text = String.Empty
                tbFamilyName.Text = String.Empty
                Update = False
            Else
                HandleError()
            End If
        End Sub 'btnUpdate_Click


        Private Sub UpdateButtonState()
            If tbName.Text = String.Empty AndAlso tbFamilyName.Text = String.Empty Then
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
            Else
                btnAdd.Enabled = True
                If Update Then
                    If lbNames.SelectedIndex > -1 Then
                        btnUpdate.Enabled = True
                    End If
                End If
            End If

            If tbName.Text.Length > 0 Then
                tbName.ResponseScript = String.Format("document.getElementById('{0}').style.backgroundColor='white';", tbName.ClientID)
                tbName.BackColor = Color.White
            End If
            If tbFamilyName.Text.Length > 0 Then
                tbFamilyName.ResponseScript = String.Format("document.getElementById('{0}').style.backgroundColor='white';", tbFamilyName.ClientID)
                tbFamilyName.BackColor = Color.White
            End If
        End Sub 'UpdateButtonState


        Private Sub tbName_KeyUp(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles tbName.KeyUp
            UpdateButtonState()
        End Sub 'tbName_KeyUp


        Private Sub tbFamilyName_KeyUp(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles tbFamilyName.KeyUp
            UpdateButtonState()
        End Sub 'tbFamilyName_KeyUp


        Private Sub lbNames_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbNames.SelectedIndexChanged
            Dim txt As String = lbNames.SelectedItem.Text
            Dim names As String() = txt.Split(" "c)
            tbName.Text = names(0)
            tbFamilyName.Text = names(1)
            btnRemove.Enabled = True
            Update = True
        End Sub 'lbNames_SelectedIndexChanged

        Private _update As Boolean = False


        Private Sub btnAdd_KeyPress(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles btnAdd.KeyPress
            If tbName.Text.Length > 0 AndAlso tbFamilyName.Text.Length > 0 Then
                lbNames.Items.Add((tbName.Text + " " + tbFamilyName.Text))
                tbName.Text = ""
                tbFamilyName.Text = ""
                btnAdd.ResponseScript = "document.getElementById('" + tbFamilyName.ClientID + "').value = '';"
                DisableButtons()
                ResetControls()
            Else
                HandleError()
            End If
        End Sub 'btnAdd_KeyPress


        Private Sub btnRemove_KeyPress(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles btnRemove.KeyPress
            lbNames.Items.RemoveAt(lbNames.SelectedIndex)
            btnRemove.Enabled = False
            btnUpdate.Enabled = False
            tbName.Text = ""
            tbFamilyName.Text = ""
        End Sub 'btnRemove_KeyPress


        Private Sub btnUpdate_KeyPress(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.KeyEventArgs) Handles btnUpdate.KeyPress
            If tbName.Text <> String.Empty AndAlso tbFamilyName.Text <> String.Empty Then
                lbNames.SelectedItem.Text = tbName.Text + " " + tbFamilyName.Text
                btnRemove.Enabled = False
                btnUpdate.Enabled = False
                btnAdd.Enabled = False
                tbName.Text = String.Empty
                tbFamilyName.Text = String.Empty
                Update = False
            Else
                HandleError()
            End If
        End Sub 'btnUpdate_KeyPress


        Private Property Update() As Boolean
            Get
                Return IIf(Not (ViewState("update") Is Nothing), CBool(ViewState("update")), Update)
            End Get
            Set(ByVal Value As Boolean)
                ViewState("update") = Value
                _update = Value
            End Set
        End Property
    End Class 'DefaultVB 
End Namespace 'Telerik.CallbackExamplesVB.Controls.Button