defaultvb.aspx.vb

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

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

Namespace Telerik.SpellExamplesVBNET.Programming.DynamicCreation

	'/ <summary>
	'/ Summary description for DynamicSpell.
	'/ </summary>

	Public Class DefaultVB
		Inherits XhtmlPage
		Protected WithEvents contentsHolder As System.Web.UI.WebControls.PlaceHolder

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

			Dim target As TextBox = SampleTextBox()

			Dim spell As New RadSpell
			spell.ID = "spell1"
			spell.ControlToCheck = target.ID

			contentsHolder.Controls.Add(spell)
		End Sub	   'Page_Load


		Private Function SampleTextBox() As TextBox
			Dim target As New TextBox
			target.Text = "Thisz is a text boz with delibirate mistakrs"
			target.ID = "text1"

			contentsHolder.Controls.Add(target)

			Return target
		End Function	   'SampleTextBox


		Private ReadOnly Property Form() As HtmlForm
			Get
				Return CType(Page.FindControl("DynamicSpell"), HtmlForm)
			End Get
		End Property

#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
	End Class	'DynamicSpell

End Namespace