<%@ Steuerung Language= " VB " AutoEventWireup= " falsches " CodeFile= " control_content_box.ascx.vb " Inherits= " User_Controls_control_info_box " %>
Importe System.ComponentModel
Teilweise Kategorie User_Controls_control_info_box
Übernimmt System.Web.UI.UserControl
Privates _ContentTemplate als ITemplate = nichts
_
Staatseigentum ContentTemplate () als ITemplate
Erhalten
_ContentTemplate zurückbringen
Ende erhalten
Einstellen (ByVal Wert als ITemplate)
_ContentTemplate = Wert
Enden-Satz
Enden-Eigentum
Allgemeine Kategorie ContentContainer
Übernimmt Steuerung
Werkzeuge INamingContainer
Enden-Kategorie
Allgemeiner WriteOnly Eigentum-Titel () wie [Schnur]
Satz (ByVal Wert wie [Schnur])
Me.ltl_Title.Text = Wert
Enden-Satz
Enden-Eigentum
Geschütztes VorPage_Init ()
'Wenn eine zufriedene Schablone auf der Elternteilseite dann definiert worden, die zufriedene Schablone initialisieren ist
Wenn nicht (ContentTemplate ist nichts), dann
'Instantiate und die zufriedene Behälterkategorie initialisieren
Behälter als neues ContentContainer verdunkeln ()
ContentTemplate.InstantiateIn (Behälter)
'Die zufriedene Schablone dem Placeholder hinzufügen, damit wir den Benutzerinhalt sehen können
Me.Content_Placeholder.Controls.Add (Behälter)
Beenden wenn
Unterseeboot beenden
Kategorie beenden
Der Titel, der über Anzeigen aber dem Text hier tut nicht spezifiziert wird! : (
|