home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic .NET - Read Less - Learn More / Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso / Resources / Code / Ch12-UsingWebControlProjects / WebCustomControl1.vb < prev   
Text File  |  2001-09-03  |  944b  |  35 lines
  1. Imports System.ComponentModel
  2. Imports System.Web.UI
  3.  
  4. <DefaultProperty("Text"), ToolboxData("<{0}:WebCustomControl1 runat=server></{0}:WebCustomControl1>")> Public Class WebCustomControl1
  5.     Inherits System.Web.UI.WebControls.WebControl
  6.  
  7.     Dim _text As String
  8.     Private myHeader As String
  9.  
  10.     <Bindable(True), Category("Appearance"), DefaultValue("")> Property [Text]() As String
  11.         Get
  12.             Return _text
  13.         End Get
  14.  
  15.         Set(ByVal Value As String)
  16.             _text = Value
  17.         End Set
  18.     End Property
  19.  
  20.     Public Property Header() As String
  21.         Get
  22.             Return myHeader
  23.         End Get
  24.         Set(ByVal Value As String)
  25.             myHeader = Value
  26.         End Set
  27.     End Property
  28.  
  29.     Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
  30.         output.Write("<H1>" & myHeader & "</H1>")
  31.         output.Write([Text])
  32.     End Sub
  33.  
  34. End Class
  35.