defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Telerik.WebControls
Namespace Telerik.SpellExamplesVBNET.ClientSideEvents

	Public Class DefaultVB
		Inherits XhtmlPage

#Region " Web Form Designer Generated Code "

		'This call is required by the Web Form Designer.
		<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

		End Sub
		Protected WithEvents spell1 As RadSpell

		Protected WithEvents CheckStarted As System.Web.UI.WebControls.CheckBox
		Protected WithEvents CheckFinished As System.Web.UI.WebControls.CheckBox
		Protected WithEvents WordCorrected As System.Web.UI.WebControls.CheckBox
		Protected WithEvents WordIgnored As System.Web.UI.WebControls.CheckBox
		Protected WithEvents IgnoreUndone As System.Web.UI.WebControls.CheckBox
		Protected WithEvents ChangeUndone As System.Web.UI.WebControls.CheckBox
		Protected WithEvents CheckCancelled As System.Web.UI.WebControls.CheckBox
		Protected WithEvents DialogClosing As System.Web.UI.WebControls.CheckBox
		Protected WithEvents CustomWordAdded As System.Web.UI.WebControls.CheckBox
		Protected WithEvents ApplyFilter As System.Web.UI.WebControls.Button

		'NOTE: The following placeholder declaration is required by the Web Form Designer.
		'Do not delete or move it.
		Private designerPlaceholderDeclaration As System.Object

		Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
			'CODEGEN: This method call is required by the Web Form Designer
			'Do not modify it using the code editor.
			InitializeComponent()
		End Sub

#End Region

		Protected Sub ApplyFilter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ApplyFilter.Click
			spell1.OnClientCheckStarted = CheckBoxValue(CheckStarted, "onCheckStarted")
			spell1.OnClientCheckFinished = CheckBoxValue(CheckFinished, "onCheckFinished")
			spell1.OnClientWordCorrected = CheckBoxValue(WordCorrected, "onWordCorrected")
			spell1.OnClientWordIgnored = CheckBoxValue(WordIgnored, "onWordIgnored")
			spell1.OnClientCheckCancelled = CheckBoxValue(CheckCancelled, "onCheckCancelled")
			spell1.OnClientDialogClosing = CheckBoxValue(DialogClosing, "onDialogClosing")
			spell1.OnClientCustomWordAdded = CheckBoxValue(CustomWordAdded, "onCustomWordAdded")

			spell1.OnClientIgnoreUndone = CheckBoxValue(IgnoreUndone, "onIgnoreUndone")
			spell1.OnClientChangeUndone = CheckBoxValue(ChangeUndone, "onChangeUndone")
		End Sub

		Private Function CheckBoxValue(ByVal checkbox As CheckBox, ByVal value As String)
			If checkbox.Checked Then
				Return value
			Else
				Return String.Empty
			End If
		End Function

		Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
			If Not Page.IsPostBack Then
				ApplyFilter_Click(Nothing, Nothing)
			End If
		End Sub

	End Class

End Namespace