defaultvb.aspx.vb

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

Imports Telerik.WebControls
Imports Telerik.QuickStart

Namespace Telerik.SpellExamplesVBNET.WhatsNew

	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 textBox1 As System.Web.UI.WebControls.TextBox
		Protected WithEvents spell1 As RadSpell
		Protected WithEvents saveButton As System.Web.UI.WebControls.LinkButton
		Protected WithEvents SpellCheckValidator1 As SpellCheckValidator
		Protected WithEvents summary As System.Web.UI.WebControls.ValidationSummary
		Protected WithEvents message As System.Web.UI.WebControls.Label
		Protected WithEvents phoneticAlgorithm As System.Web.UI.WebControls.CheckBox
		Protected WithEvents ignoreEmails As System.Web.UI.WebControls.CheckBox
		Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel

		'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

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

		Public Sub saveButton_Click(ByVal sender As Object, ByVal args As EventArgs) Handles saveButton.Click

			If Page.IsValid Then
				message.Text = "Thank you."
			Else
				message.Text = String.Empty
			End If
		End Sub

		Public Sub ignoreEmails_Checked(ByVal sender As Object, ByVal args As EventArgs) Handles ignoreEmails.CheckedChanged

			If ignoreEmails.Checked Then
				spell1.IgnoreFragments.EmailAddresses = True
			Else
				spell1.IgnoreFragments.EmailAddresses = False
			End If
		End Sub

		Public Sub phoneticAlgorithm_Checked(ByVal sender As Object, ByVal args As EventArgs) Handles phoneticAlgorithm.CheckedChanged
			If (phoneticAlgorithm.Checked) Then
				spell1.SpellCheckProvider = SpellCheckProvider.PhoneticProvider
			Else
				spell1.SpellCheckProvider = SpellCheckProvider.EditDistanceProvider
			End If
		End Sub

	End Class

End Namespace