mylabel.vb

This is a book about vb.you could learn this from this book

Imports System
Imports System.Web
Imports System.Drawing
Imports System.Web.UI
Imports System.Web.UI.WebControls	

Namespace WroxControls 

   Public Class MyLabelProps
   	Inherits Control
   

      Private _text As String

      Public Property Text As String
         Get
		 	Return _text
		 End Get
         Set
		 	_text = value
		 End Set
	  End Property


      Private _repeatCount As Integer = 1
 
      Public Property RepeatCount As Integer
      
         Get
		 	Return _repeatCount
		 End Get
         Set
		 	_repeatCount = value
		 End Set
      
      End Property
      

      Private _foreColor As Color = Color.Blue

      Public Property ForeColor As Color
     
         Get
		 	Return _foreColor
		 End Get
         Set
		 	_foreColor = value
		 End Set
      
      End Property
      
      
      Protected Overrides Sub OnInit(e As EventArgs)
      
         If _text = "" Then
             _text = "Here is some default text"
         End If
      
      End Sub
      

' - Version Imports direct HTML creation
'
'      Protected Overrides Sub Render(writer As HtmlTextWriter ) 
'      
'         Dim loop As Integer
'         For loop=0 To _repeatCount - 1
'           writer.Write("<h1 style='color:" & ColorTranslator.ToHtml(_foreColor) & "'>" & _text & "</h1>" )
'		  Next
'
'      End Sub

      Protected Overrides Sub Render(writer As HtmlTextWriter ) 
       
         Dim l As Integer
         For l=0 To _repeatCount - 1

            writer.AddStyleAttribute("color", ColorTranslator.ToHtml(_foreColor) )
            writer.RenderBeginTag("h1")
            writer.Write( _text )
            writer.RenderEndTag()
         Next
      
      End Sub

   End Class

End Namespace