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

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

编辑器/阅读器

开发平台：

C#

demo_skin_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. 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>"
  7. end if
  8. End Sub
  10.     Private Sub Button1_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  11.         label1.Text = "<hr><b>以下是DotNetTextBox控件提交的内容</b>：<br>" + WebEditor1.Text
  12.     End Sub
  14.     Private Sub Button2_OnClick(ByVal obj As Object, ByVal e As EventArgs)
  15.         WebEditor1.Text = ""
  16.     End Sub
  18. Private Sub ChangedMenu(obj As object,e As eventargs)
  19.         WebEditor1.MenuConfig = menu.SelectedItem.Value
  20. End Sub
  22. Private Sub ChangedSkin(obj As object,e As eventargs)
  23. WebEditor1.Skin=skin.SelectedItem.Value     
  24. End Sub
  25. </script>
  26. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  27. <html xmlns="http://www.w3.org/1999/xhtml" >
  28. <head>
  29. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  30. <title>演示:个性化应用实例(VB.NET)</title>
  31. <style type="text/css">
  32. <!--
  33. body {
  34. font-size: 9pt;
  35. }
  36. hr {
  37. border: dotted #AFAFAF;
  38. }
  39. input {
  40. font-size: 9pt;
  41. border: 1px ridge #999999;
  42. background-color: #FFFFFF;
  43. cursor:pointer;
  44. }
  45. TABLE {
  46. FONT: 9pt 宋体,Verdana,Arial
  47. }
  48. -->
  49. </style>
  50. </head>
  51. <body>
  52.     <table width="560" align=center>
  53.         <tr>
  54.             <td valign="top" style="width: 556px">
  55.                 <fieldset>
  56.                     <legend>演示说明</legend>&nbsp; &nbsp; 本例子演示了通过下拉选择框变换DotNetTextBox控件的个性化设置，包括控件的皮肤及菜单功能！</fieldset>
  57.             </td>
  58.         </tr>
  59.     </table>
  60.     <br />
  61. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  62.   <tr>
  63.     <td align=center><form id="Form1" runat="server">
  64. [控件皮肤选择]：<asp:dropdownlist id="skin" AutoPostBack="true" OnSelectedIndexChanged="ChangedSkin" runat="server">
  65. <asp:listitem value="skin/default/">标准风格</asp:listitem>
  66. <asp:listitem value="skin/xp/">WINXP风格</asp:listitem>
  67. </asp:dropdownlist>
  68.         &nbsp;&nbsp;
  69. [菜单功能选择]：<asp:dropdownlist id="menu" AutoPostBack="true" OnSelectedIndexChanged="ChangedMenu" runat="server">
  70. <asp:listitem value="default.config">默认</asp:listitem>
  71. <asp:listitem value="custom1.config">自定义1</asp:listitem>
  72. <asp:listitem value="custom2.config">自定义2</asp:listitem>
  73. <asp:listitem value="all.config">全功能</asp:listitem>
  74. </asp:dropdownlist>
  75.         <p align="center"><DNTB:WebEditor id="WebEditor1" runat="server"></DNTB:WebEditor> </p>
  76.         <p align="center"> 
  77.           <asp:Button id="Button1" CssClass="input" OnClick="Button1_OnClick" runat="server" Text="提交内容"></asp:Button>
  78.           <asp:Button id="Button2" CssClass="input" OnClick="Button2_OnClick" runat="server" Text="清空内容"></asp:Button>
  79.         </p>
  80.       </form></td>
  81.   </tr>
  82. </table>
  83. <asp:label runat="server" ID="label1"></asp:label>
  84. </body>
  85. </html>