开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
demo_languages_vb.aspx
资源名称：DotNetTextBox.rar　[点击查看]
上传用户：lanchensha
上传日期：2022-02-27
资源大小：7530k
文件大小：3k
源码类别：

编辑器/阅读器

开发平台：

C#

demo_languages_vb.aspx：源码内容
  1. <%@Page Language="vb" ValidateRequest="false" ContentType="text/html"%>
  2. <%@Register TagPrefix="dntb" Namespace="DotNetTextBox" Assembly="DotNetTextBox"%>
  3. <script runat="server" language="vb">
  4. Private Sub Page_Load(obj As object,e As eventargs)
  5.         If Not IsPostBack Then
  6.             If Request.ServerVariables("HTTP_USER_AGENT").ToLower().IndexOf("gecko") <> -1 Then
  7.                 WebEditor1.Languages = "en-us"
  8.                 lng.SelectedValue = "en-us"
  9.             Else
  10.                 lng.SelectedValue = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE").ToLower().Split(",")(0)
  11.             End If
  12.             WebEditor1.Text = "<a href=http://www.aspxcn.com.cn><img src='system_dntb/skin/default/img/logo.gif' alt='DotNet中华网版权所有' width=260 height=60 border=0></a>"
  13.         End If
  14. End Sub
  16.     Private Sub Button1_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  17.         label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>：<br>" + WebEditor1.Text
  18.     End Sub
  20.     Private Sub Button2_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  21.         WebEditor1.Text = ""
  22.     End Sub
  24.     Private Sub ChangedLng(ByVal obj As Object, ByVal e As EventArgs)
  25.         WebEditor1.Languages = lng.SelectedItem.Value
  26.     End Sub
  27. </script>
  28. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  29. <html xmlns="http://www.w3.org/1999/xhtml" >
  30. <head>
  31. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  32. <title>演示:多语言应用实例(VB.NET)</title>
  33. <style type="text/css">
  34. <!--
  35. body {
  36. font-size: 9pt;
  37. }
  38. hr {
  39. border: dotted #AFAFAF;
  40. }
  41. input {
  42. font-size: 9pt;
  43. border: 1px ridge #999999;
  44. background-color: #FFFFFF;
  45. cursor:pointer;
  46. }
  47. TABLE {
  48. FONT: 9pt 宋体,Verdana,Arial
  49. }
  50. -->
  51. </style>
  52. </head>
  53. <body>
  54.     <table width="560" align=center>
  55.         <tr>
  56.             <td valign="top" style="width: 556px">
  57.                 <fieldset>
  58.                     <legend>演示说明</legend>&nbsp; &nbsp; &nbsp; 本例子演示了控件的国际化（多语言）应用。控件默认采用检测客户端浏览器语言的方式自动匹配界面语言，如无法找到合适的语言文件则默认使用英文界面，另外还可手动编写代码来自动选择语言，如本例子就是通过手动编写代码实现检测客户使用的浏览器如果是FireFox的话就只显示英文界面。</fieldset>
  59.             </td>
  60.         </tr>
  61.     </table>
  62.     <br />
  63. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  64.   <tr>
  65.     <td align=center><form id="Form1" runat="server">
  66. [语言选择]：<asp:dropdownlist id="lng" AutoPostBack="true" OnSelectedIndexChanged="ChangedLng" runat="server">
  67. <asp:listitem value="en-us">英文</asp:listitem>
  68. <asp:listitem value="zh-cn">简体中文</asp:listitem>
  69. <asp:listitem value="zh-tw">繁体中文</asp:listitem>
  70. </asp:dropdownlist>
  71.         <p align="center"><DNTB:WebEditor id="WebEditor1" runat="server"></DNTB:WebEditor> </p>
  72.         <p align="center"> 
  73.           <asp:Button id="Button1" CssClass="input" OnClick="Button1_OnClick" runat="server" Text="提交内容"></asp:Button>
  74.           <asp:Button id="Button2" CssClass="input" OnClick="Button2_OnClick" runat="server" Text="清空内容"></asp:Button>
  75.         </p>
  76.       </form></td>
  77.   </tr>
  78. </table>
  79. <asp:label runat="server" ID="label1"></asp:label>
  80. </body>
  81. </html>