bluetextbox.vb

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

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

Namespace myControls

Public Class BlueTextBox
Inherits Control

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter)
  objTextWriter.AddAttribute( "Name", Me.UniqueID )
  objTextWriter.AddStyleAttribute( "background-color", "Blue" )
  objTextWriter.AddStyleAttribute( "color", "Yellow" )
  objTextWriter.RenderBeginTag( "input" )
  objTextWriter.RenderEndTag
End Sub

End Class

End Namespace