webform1.aspx.vb

来自「DotNetTextBox webcontrol」· VB 代码 · 共 46 行

Namespace Auth

Partial Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Private Sub Page_Load(ByVal obj As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            WebEditor1.Text() = "<a href=http://www.aspxcn.com.cn><img src=../../../skin/default/img/logo.gif alt=DotNet中华网版权所有 width=260 height=60 border=0></a>"
        End If
    End Sub

    Public Sub Button1_Click(ByVal obj As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Page.IsValid Then
            label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>：<br>" + WebEditor1.Text
        End If
    End Sub

    Public Sub Button2_Click(ByVal obj As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebEditor1.Text = ""
    End Sub

    Public Sub checklength(ByVal obj As Object, ByVal e As ServerValidateEventArgs)
        If (WebEditor1.Length > 200) Then
            e.IsValid = False
        Else
            e.IsValid = True
        End If
    End Sub
End Class

End Namespace