|
<%@ Page Language="VB" %>
<%@ Register TagPrefix="ACME" Namespace="MyCustomControls" Assembly="CustomControls"%>
<script runat="server">
sub Submit(Sender as Object, e as EventArgs)
'do nothing
end sub
sub ChangeIt(Sender as Object, e as EventArgs)
Response.write("Event handled!")
end sub
</script>
<html><body>
<form runat=server>
The custom control produces the following output:
<ACME:CustomControl id="MyControl" runat="server"
Message="Hello world!"
OnTextChanged="ChangeIt" />
<asp:Button runat="server"
Text="Submit"
OnClick="Submit" />
</form>
</body></html>
File: CustomControl.cs
using System;
using System.Web;
using System.Web.UI;
using System.Collections.Specialized;
namespace MyCustomControls {
public class CustomControl : Control, IPostBackDataHandler {
public event EventHandler TextChanged;
protected virtual void OnTextChanged(EventArgs e) {
TextChanged(this, e);
}
public bool LoadPostData(String PostDataKey, NameValueCollection Values) {
string strOldValue = this.Message;
string strNewValue = Values[PostDataKey];
if (strOldValue != strNewValue) {
this.Message = strNewValue;
return true;
}
return false;
}
public void RaisePostDataChangedEvent() {
OnTextChanged(EventArgs.Empty);
}
public string Message {
get {
return ViewState["Message"].ToString();
}
set {
ViewState["Message"] = value;
}
}
protected override void Render(HtmlTextWriter Output) {
Output.Write("<input name=" + this.UniqueID + " type=text value=\"" + this.Message + "\">");
}
}
}
File: CustomControl.vb
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Collections.Specialized
Namespace MyCustomControls
Public Class CustomControl : Inherits Control : Implements IPostBackDataHandler
public Event TextChanged(obj as object, e as eventargs)
protected sub OnTextChanged(e as EventArgs)
RaiseEvent TextChanged(Me, e)
end sub
Public Function LoadPostData(PostDataKey As String, Values As NameValueCollection) As Boolean Implements IPostBackDataHandler.LoadPostData
dim strOldValue as String = Me.Message
dim strNewValue as String = Values(postDataKey)
if not strOldValue = strNewValue
Me.Message = strNewValue
return true
end if
return false
End Function
Public Sub RaisePostDataChangedEvent() Implements IPostBackDataHandler.RaisePostDataChangedEvent
OnTextChanged(EventArgs.Empty)
end sub
public property Message as string
Get
Message = ViewState("Message").ToString
End Get
Set
ViewState("Message") = value
End Set
end property
Protected Overrides Sub Render(Output as HtmlTextWriter)
Output.Write("<input name=" & Me.UniqueID & " type=text value=""" & Me.Message & """>")
End Sub
End Class
End Namespace
|