SimpleControl extendsing System.Web.UI.WebControls.WebControl (C#) : WebControl « User Control and Master Page « ASP.Net






SimpleControl extendsing System.Web.UI.WebControls.WebControl (C#)

<%@ Page language="VB" %>
<%@ Register TagPrefix="Control" Namespace="Control" Assembly="Control" %>
<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
  If Not IsPostBack Then
    Dim RandomGenerator As Random
    RandomGenerator = New Random()
    SimpleControl1.Text = RandomGenerator.Next(1,100)
  End If
End Sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html>
  <head>
    <title>Default</title>
  </head>
  <body>
    <form id="Form1" method="post" runat="server">
      <Control:SimpleControl id="SimpleControl1" runat="server" />
      <asp:linkbutton text="PostBack test" runat="server" />
      <p>
        Values are not maintained across postbacks. <a href="Control.aspx">Re-load</a>
      </p>
    </form>
  </body>
</html>

File: Control.vb

Imports System.ComponentModel
Imports System.Web.UI
Namespace Control

    <DefaultProperty("Text"), ToolboxData("<{0}:Control runat=server></{0}:Control>")> Public Class SimpleControl
        Inherits System.Web.UI.WebControls.WebControl

        Dim _text As String

        <Bindable(True), Category("Appearance"), DefaultValue("")> Property [Text]() As String
            Get
                Return _text
            End Get

            Set(ByVal Value As String)
                _text = Value
            End Set
        End Property

        Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
            output.Write([Text])
        End Sub

    End Class
End Namespace

 








Related examples in the same category

1.SimpleControl extendsing System.Web.UI.WebControls.WebControl
2.User control based on System.Web.UI.WebControls.Label (C#)
3.User control based on System.Web.UI.WebControls.Label (VB)
4.Bindable user control (C#)
5.Bindable user control (VB)