So
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace CompositeControls
<ToolboxData("<{0}:InteractiveSearchBox
runat=server></{0}:InteractiveSearchBox>")> _
Public Class InteractiveSearchBox
Inherits Table
Implements INamingContainer 'ToDo: Add Implements Clauses for
implementation methods of these interface(s)
Protected SearchTextBox As New TextBox()
Protected SearchButton As New Button()
#Region "Properties"
Public ReadOnly Property SearchText() As String
Get
Return SearchTextBox.Text
End Get
End Property
Public Property LabelText() As String
Get
Return m_LabelText
End Get
Set(ByVal Value As String)
m_LabelText = Value
End Set
End Property
Dim m_LabelText As String
Protected Overrides ReadOnly Property TagKey() As HtmlTextWriterTag
Get
Return HtmlTextWriterTag.Table
End Get
End Property
#End Region
#Region "Methods"
Protected Overrides Sub CreateChildControls()
Controls.Clear()
Dim row As New TableRow
Dim textBoxCell As New TableCell
Dim buttonCell As New TableCell
Dim lbCell As New TableCell
Dim lb As New Label
buttonCell.Width = Unit.Pixel(1)
SearchTextBox.Width = Unit.Percentage(100)
lb.Text = LabelText & " : "
lbCell.Controls.Add(lb)
textBoxCell.Controls.Add(SearchTextBox)
buttonCell.Controls.Add(SearchButton)
row.Cells.Add(lbCell)
row.Cells.Add(textBoxCell)
row.Cells.Add(buttonCell)
Rows.Add(row)
End Sub 'CreateChildControls
Protected Overrides Sub OnInit(ByVal e As EventArgs)
SearchTextBox.ID = "searchText"
SearchButton.ID = "searchButton"
MyBase.OnInit(e)
EnsureChildControls()
End Sub 'OnInit
#End Region
#Region "Constructors"
Public Sub New()
Width = Unit.Percentage(100)
SearchButton.Text = "Search"
AddHandler SearchButton.Click, AddressOf SearchButton_Click
End Sub 'New
#End Region
End Class 'InteractiveSearchBox
End Namespace 'CompositeControls
Gruss :-)
Roman
>-----Original Message-----
>From: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED] On Behalf Of Alexander Zeitler
>Sent: Tuesday, June 22, 2004 3:44 PM
>To: [EMAIL PROTECTED]
>Subject: RE: [Asp.net] Custom Control Design Time
>
>
>Hallo,
>
>> Ich habe das TextBox Control in einem eigenem Composit
>Custom Control
>> mit einen Buttom und Label erweitert und stosse da auf ein Phenomen
>> das ich einfach verstehen will.
>> Propertys die ich hinzugefuegt habe werden nicht automatisch
>> uebernommen, erst nach einem neu kompilieren des controls oder des
>> projektes bzw runtime.
>> Bei Propertys die von dem Object z.b textbox kommen werden sofort im
>> Design Mode uebernommen.
>>
>
>wie sieht denn Dein Code jetzt aus?
>
>Gruss
>
>Alex
>
>
>*************************
>_______________________________________________
>This ASP.NET email is sponsored by:
>UDEX ProMenu.Net - Die Software f|r Navigation - Jetzt
>kostenlos testen!
>Tree- Style, Horizontal- Slide, Vertical- Slide. http://www.udexnet.com
>
>_______________________________________________
>Asp.net Mailingliste, Postings senden an:
>[EMAIL PROTECTED]
>An-/Abmeldung und Suchfunktion unter:
>http://www.glengamoi.com/mailman/listinfo/asp.net
>*************************
>
*************************
_______________________________________________
This ASP.NET email is sponsored by:
UDEX ProMenu.Net - Die Software f�r Navigation - Jetzt kostenlos testen!
Tree- Style, Horizontal- Slide, Vertical- Slide. http://www.udexnet.com
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
*************************
