demo_languages_vb.aspx
上传用户:lanchensha
上传日期:2022-02-27
资源大小:7530k
文件大小:3k
源码类别:

编辑器/阅读器

开发平台:

C#

  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
  15.     Private Sub Button1_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  16.         label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>:<br>" + WebEditor1.Text
  17.     End Sub
  18.     Private Sub Button2_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  19.         WebEditor1.Text = ""
  20.     End Sub
  21.     Private Sub ChangedLng(ByVal obj As Object, ByVal e As EventArgs)
  22.         WebEditor1.Languages = lng.SelectedItem.Value
  23.     End Sub
  24. </script>
  25. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  26. <html xmlns="http://www.w3.org/1999/xhtml" >
  27. <head>
  28. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  29. <title>演示:多语言应用实例(VB.NET)</title>
  30. <style type="text/css">
  31. <!--
  32. body {
  33. font-size: 9pt;
  34. }
  35. hr {
  36. border: dotted #AFAFAF;
  37. }
  38. input {
  39. font-size: 9pt;
  40. border: 1px ridge #999999;
  41. background-color: #FFFFFF;
  42. cursor:pointer;
  43. }
  44. TABLE {
  45. FONT: 9pt 宋体,Verdana,Arial
  46. }
  47. -->
  48. </style>
  49. </head>
  50. <body>
  51.     <table width="560" align=center>
  52.         <tr>
  53.             <td valign="top" style="width: 556px">
  54.                 <fieldset>
  55.                     <legend>演示说明</legend>&nbsp; &nbsp; &nbsp; 本例子演示了控件的国际化(多语言)应用。控件默认采用检测客户端浏览器语言的方式自动匹配界面语言,如无法找到合适的语言文件则默认使用英文界面,另外还可手动编写代码来自动选择语言,如本例子就是通过手动编写代码实现检测客户使用的浏览器如果是FireFox的话就只显示英文界面。</fieldset>
  56.             </td>
  57.         </tr>
  58.     </table>
  59.     <br />
  60. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  61.   <tr>
  62.     <td align=center><form id="Form1" runat="server">
  63. [语言选择]:<asp:dropdownlist id="lng" AutoPostBack="true" OnSelectedIndexChanged="ChangedLng" runat="server">
  64. <asp:listitem value="en-us">英文</asp:listitem>
  65. <asp:listitem value="zh-cn">简体中文</asp:listitem>
  66. <asp:listitem value="zh-tw">繁体中文</asp:listitem>
  67. </asp:dropdownlist>
  68.         <p align="center"><DNTB:WebEditor id="WebEditor1" runat="server"></DNTB:WebEditor> </p>
  69.         <p align="center"> 
  70.           <asp:Button id="Button1" CssClass="input" OnClick="Button1_OnClick" runat="server" Text="提交内容"></asp:Button>
  71.           <asp:Button id="Button2" CssClass="input" OnClick="Button2_OnClick" runat="server" Text="清空内容"></asp:Button>
  72.         </p>
  73.       </form></td>
  74.   </tr>
  75. </table>
  76. <asp:label runat="server" ID="label1"></asp:label>
  77. </body>
  78. </html>