defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Twsp = SpellExamplesVBNET.WebServiceProxy
Namespace Telerik.SpellExamplesVBNET.Programming.ServerApi

	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 spellButton As System.Web.UI.WebControls.Button
		Protected WithEvents results As System.Web.UI.WebControls.Repeater
		Protected WithEvents textBox As System.Web.UI.WebControls.TextBox

		'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

		Private Sub spellButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles spellButton.Click
			Dim service As New Twsp.SpellCheckerServiceVB
			Dim host As String = Request.Url.Host
			Dim serviceUrl As String = "http://" & host & Page.ResolveUrl("~/Spell/Examples/Programming/ServerApi/SpellCheckerServiceVB.asmx")
			service.Url = serviceUrl
			Dim errors() As Twsp.SpellCheckError
			errors = service.SpellCheckText(textBox.Text)

			results.DataSource = errors
			results.DataBind()
		End Sub

		Private Sub results_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles results.ItemDataBound

			If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

				Dim errorInstance As Twsp.SpellCheckError = CType(e.Item.DataItem, Twsp.SpellCheckError)

				Dim wordLabel As Label = CType(e.Item.FindControl("wordLabel"), Label)
				wordLabel.Text = errorInstance.MistakenWord

				Dim suggestionBox As ListBox = CType(e.Item.FindControl("suggestionsBox"), ListBox)
				Dim suggestion As String
				For Each suggestion In errorInstance.Suggestions
					suggestionBox.Items.Add(New ListItem(suggestion))
				Next suggestion
			End If
		End Sub


	End Class


End Namespace