mylabel.vb

来自「This is a book about vb.you could learn 」· VB 代码 · 共 88 行

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

Namespace WroxControls 

   public class MyLabelStyle 
   	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 _style As Style = New Style()
	  
      Public ReadOnly Property LabelStyle As Style
      
         Get
         	return _style
         End Get
      
      End Property
		
      Public Property ForeColor As Color
      
         Get
         	Return _style.ForeColor
         End Get
         Set
         	_style.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
      

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

			_style.AddAttributesToRender( writer )
            writer.RenderBeginTag("h1")
            writer.Write( _text )
            writer.RenderEndTag()
         Next
      
      End Sub

   End Class

End Namespace