reversemethodcontrol.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports Microsoft.VisualBasic

Namespace myControls

Public Class ReverseMethodControl: Inherits Control

Public Text As String

Public Sub Reverse()
  Text = strReverse( Text )
End Sub

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter )
  objTextWriter.Write( Text )
End Sub

End Class

End Namespace