asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx Web Messenger: http://cutesoft.net/Web-Messenger/default.aspxasp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspxasp wysiwyg html editor: http://cutesoft.net/ASP asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx Live Support: http://cutesoft.net/live-support/default.aspx
<%@ Register TagPrefix="CE" Namespace="CuteEditor" Assembly="CuteEditor"%> <%@ Page Language="vb" ValidateRequest="False"%> <HEAD> <title>ASP and ASP.NET WYSIWYG Editor - Default Configuration </title> <link rel="stylesheet" href="example.css" type="text/css"> </HEAD> <body> <form runat="server"> <h4>How many Editors would you like to create? (<i>Please choose vaule between 1 and 10</i>)</h4> <hr> <asp:textbox runat="Server" id="txtTBCount" Columns="3" /> <asp:RangeValidator runat="server" ControlToValidate="txtTBCount" MinimumValue="1" MaximumValue="10" Type="Integer" ErrorMessage="Make sure that you choose a value between 1 and 10!" ID="Rangevalidator1" NAME="Rangevalidator1"/> <br /> <asp:button runat="server" Text="Create Dynamic Editors" OnClick="CreateEditors" ID="Button1" NAME="Button1"/> <p> <asp:PlaceHolder runat="server" id="EditorsHere" /> </p>
</form> <script runat="server"> Dim count As Integer = 1 Private Sub IterateThroughChildren(ByVal parent As Control) Dim c As Control For Each c In parent.Controls If c.GetType().ToString().Equals("CuteEditor.Editor") Then Dim edit As CuteEditor.Editor edit = CType(c, CuteEditor.Editor) edit.Text = "Editor " + count.ToString() edit.AutoConfigure = AutoConfigure.Simple edit.Height = System.Web.UI.WebControls.Unit.Parse(200) edit.ThemeType = ThemeType.Office2003_BlueTheme count = count + 1 End If If c.Controls.Count > 0 Then IterateThroughChildren(c) End If Next End Sub Private Sub CreateEditors(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsValid Then Return End If Dim n As Integer = Int32.Parse(txtTBCount.Text) ' now, create n Editors, adding them to the PlaceHolder EditorsHere Dim i As Integer For i = 0 To n- 1 Step i + 1 EditorsHere.Controls.Add(New CuteEditor.Editor()) Next ' now, set the Text property of each CuteEditor.Editor IterateThroughChildren(Me) End Sub
</script> </body> </HTML>