📄 mytextbox.aspx

📁 This is a book about vb.you could learn this from this book

💻 ASPX

字号:

<%@ Page Trace="true" %>
<%@ Register TagPrefix="Wrox" Namespace="WroxControls" 
			  Assembly="MyTextBoxState" %>

<script runat="server" language="VB">

	Private Sub OnNameChanged( sender As object, e As EventArgs )
	
		status.Text = "Value changed to " & name.Text
	
	End Sub

	Private Sub OnPreRender( sender As object, e As EventArgs )
	
		If name.Text.Length > 7 Then
			name.Text = name.Text.Substring(0,7)
		End If
	
	End Sub

</script>

<html>
<body>

<form runat="server">

	<H3>TextBox Control</H3>
	<P>Enter a value: <Wrox:MyTextBoxState id="name" runat="server" 
	                                  BackColor="Green"
									  ForeColor="Yellow"
									  BorderColor="Red"
	                                  OnTextChanged="OnNameChanged"
									  OnPreRender="OnPreRender" />
	<BR>
	
	<ASP:Button Text="Postback" runat="server" />

	<P>
	<ASP:Label runat="server" EnableViewState="False" id=status />

</form>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -