webform1.aspx.vb

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

Namespace Mode

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
        label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>：<br>" + 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

    Public Sub mode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mode.SelectedIndexChanged
        WebEditor1.Mode = mode.SelectedItem.Value
        Select Case mode.SelectedItem.Text
            Case "邮件模式"
                WebEditor1.Width = Unit.Parse(573)
            Case "办公模式1", "办公模式2"
                WebEditor1.Width = Unit.Parse(613)
            Case "最小化模式"
                WebEditor1.Width = Unit.Parse(433)
            Case "综合模式1", "综合模式2"
                WebEditor1.Width = Unit.Parse(638)
            Case Else
                WebEditor1.Width = Unit.Parse(560)
        End Select
        End Sub
        Public Sub ChangedSkin(ByVal obj As Object, ByVal e As EventArgs)
            WebEditor1.Skin = skin.SelectedItem.Value
        End Sub
End Class

End Namespace