webform1.aspx.vb

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

Namespace Both

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>"
            WebEditor2.Text = "<a href=http://www.aspxcn.com.cn><img src=../../../skin/xp/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
            WebEditor2.Text = WebEditor1.Text
    End Sub

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

End Class

End Namespace