quote.aspx.vb

来自「程序设计:Flyangel 用到了vb.net c# asp.net xml等 」· VB 代码 · 共 60 行

Imports flyangel.article.twotipclass

Public Class quote
    Inherits System.Web.UI.Page
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents quotecontent As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents changecode As System.Web.UI.WebControls.Panel
    Protected WithEvents insercode As System.Web.UI.WebControls.Panel
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

#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 sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then

            DropDownList1.DataSource = [Enum].GetValues(GetType(LanguageType))
            DropDownList1.DataBind()
            changecode.Visible = True
            insercode.Visible = False
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim asds As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        Dim aaaa As String
        Dim CodeXmlDocument As String = ConfigurationSettings.AppSettings("CodeXml")
        Dim CodeXmlSchema As String = ConfigurationSettings.AppSettings("CodeXsd")

        Dim ixmldo As iXmlCodeClass = HowToUsingFlyangel.iXmlCodeClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        ixmldo.SetCodeXmlDocumentFile = CodeXmlDocument
        ixmldo.SetCodeXmlSchemaFile = CodeXmlSchema

        If DropDownList1.SelectedIndex > 0 Then
            aaaa = asds.TransFormLanguageText(TextBox1.Text, DropDownList1.SelectedIndex, ixmldo.SelectRecorder([Enum].GetName(GetType(LanguageType), DropDownList1.SelectedIndex)))
        Else
            aaaa = asds.changechr(TextBox1.Text)
        End If

        quotecontent.Value = "<table width=95% border=0 align=Center cellpadding=6 cellspacing=0 style=""border: 1px Groove #6595d6; TABLE-LAYOUT: fixed""><tr><td bgcolor=#e8f4ff style=""WORD-WRAP: break-word""><font style=""color: #990000;font-weight:bold"">以下是" & DropDownList1.SelectedValue.ToString & "代码引用：</font><pre>" & aaaa & "</pre></td></tr></table>"
        changecode.Visible = False
        insercode.Visible = True
    End Sub
End Class