Code posting:
Imports System
Imports System.Text
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Web.UI
Imports System.Web.UI.Design.ControlDesigner
Imports System.Web.UI.WebControls
<Assembly: TagPrefix("CustomControl", "CustomControl")>
Namespace Common
<Description("Displays details of element"), _
ToolboxData("<{0}:ElementDetail Text=""Element Detail Table""
runat=server ></{0}:ElementDetail>"), _
Designer("CustomControl.Common.ElementDetailDesigner")> _
Public Class ElementDetail : Inherits WebControl
#Region " Properties "
<Browsable(True), Category("Behavior"), Bindable(True),
DefaultValue("2"), Description("Table cellspacing")> _
Property Cellspacing() As Integer
Get
Dim i As Integer = CType(ViewState("Cellspacing"), Integer)
Return CType(IIf(i.Equals(Nothing), CType("2", Object), CType(i,
Object)), Integer)
End Get
Set(ByVal Value As Integer)
ViewState("Cellspacing") = Value
End Set
End Property
#End Region
#Region " Overrides "
'Adds attributes to HTML tag
Protected Overrides Sub AddAttributesToRender(ByVal writer As
System.Web.UI.HtmlTextWriter)
MyBase.AddAttributesToRender(writer)
writer.AddAttribute("InsId", InsId.Trim)
writer.AddAttribute("TypId", TypId.Trim)
writer.AddAttribute("ShowNulls", ShowNulls.ToString)
writer.AddAttribute("ShowZeros", ShowZeros.ToString)
If Cellspacing > 0 Then
writer.AddAttribute("Cellspacing", Cellspacing.ToString)
End If
If Wrap Then
writer.AddAttribute("Wrap", Wrap.ToString)
End If
writer.RenderBeginTag(HtmlTextWriterTag.Span)
writer.RenderEndTag()
End Sub
Protected Overrides Sub RenderContents(ByVal writer As
System.Web.UI.HtmlTextWriter)
writer.WriteLine("<p><h3>Detail</h3><p>")
writer.WriteLine("<table border=""0"" cellspacing=" &
Cellspacing.ToString & ">")
writer.WriteLine("<tr>")
writer.WriteLine("<td span=2><font face=""Arial""
size=""3""><b>Properties:</b></font></td>")
writer.WriteLine("</tr>")
writer.WriteLine("<tr valign=top>")
writer.WriteLine("<td valign=top><font face=""Arial""
size=""2""><b>DisplayName</b></font></td>")
writer.WriteLine("<td valign=top><font face=""Arial""
size=""2"">DisplayValue </font></td>")
writer.WriteLine("</tr>")
'finish table
writer.WriteLine("</table>")
End Sub
Protected Overrides Function CreateControlCollection() As
System.Web.UI.ControlCollection
Return New EmptyControlCollection(Me)
End Function
#End Region
End Class
Public Class ElementDetailDesigner
Inherits System.Web.UI.Design.ControlDesigner
Public Overrides Function GetDesignTimeHtml() As String
Return "<p>ElementDetail/p><hr/><hr/>"
End Function
End Class
