Custom Controls ASP.Net Tutorial


            <%@ Page Language="VB" %>
<%@ Register TagPrefix="rntsoftASP" Namespace="MyCustomControls" Assembly="CustomControls"%>

   sub Submit(Sender as Object, e as EventArgs)
      MyControl.Size = MyControl.Size + 1
   end sub


   
      The custom control produces the following output:
   
               Message="Hello world!"
         Size=1 />
         
               Text="Increase size!" 
         OnClick="Submit"/>
   

////////
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("" + this.Message + "");
      }
   }
}
////////////////
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("" & Me.Message & "")
      End Sub
   End Class
End Namespace