<%@ Page Language="VB" %>
<%@ Register TagPrefix="Java2sASP" 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:
<Java2sASP: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
|