showcolor.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 22 行

Imports System
Imports System.Web
Imports System.Web.UI

Namespace myControls

Public Class ShowColor: Inherits Control

Public Text As String
Public Color As String

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter )
  objTextWriter.AddAttribute( "Color", Color )
  objTextWriter.RenderBeginTag( "Font" )
  objTextWriter.Write( Text )
  objTextWriter.RenderEndTag()
End Sub

End Class

End Namespace