Mega Code Archive

 
Categories / ASP.Net Tutorial / Custom Controls
 

Use properties defined in custom control

<%@ Page Language="VB" %> <%@ Register TagPrefix="rntsoftASP" Namespace="MyCustomControls" Assembly="CustomControls"%> <script runat="server">    sub Submit(Sender as Object, e as EventArgs)       MyControl.Size = MyControl.Size + 1    end sub </script> <html><body>    <form runat=server>       The custom control produces the following output:           <rntsoftASP:CustomControl2 id="MyControl" runat=server           Message="Hello world!"          Size=1 />                 <asp:Button runat="server"          Text="Increase size!"           OnClick="Submit"/>    </form> </body></html> //////// using System; using System.Web; using System.Web.UI; namespace MyCustomControls {    public class CustomControl2 : Control {       public string Message {          get {             return ViewState["Message"].ToString();          }          set {             ViewState["Message"] = value;          }       }              public int Size {          get {             return (int)ViewState["Size"];          }          set {             ViewState["Size"] = value;          }       }       protected override void Render(HtmlTextWriter Output) {          Output.Write("<font size=" + this.Size + ">" + this.Message + "</font>");       }    } } //////////////// Imports System Imports System.Web Imports System.Web.UI Namespace MyCustomControls    Public Class CustomControl2 : Inherits Control       public property Message as string          Get             Message = ViewState("Message").ToString          End Get          Set             ViewState("Message") = value          End Set       end property              public property Size as integer          Get             Size = CType(ViewState("Size"), Integer)          End Get          Set             ViewState("Size") = value          End Set       end property       Protected Overrides Sub Render(Output as HtmlTextWriter)          Output.Write("<font size=" & Me.Size & ">" & Me.Message & "</font>")       End Sub    End Class End Namespace