<%@ 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
|