customcontrol1.vb

asp入门到精通的源代码

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

Namespace MyCustomControls
   Public Class CustomControl1 : Inherits Control
      private strMessage as string = "This is my custom control!"
      public property Message as string
         Get
            Message = strMessage
         End Get
         Set
            strMessage = value
         End Set
      end property

      Protected Overrides Sub Render(Output as HtmlTextWriter)
         Output.Write(strMessage & " The time is now " & _
            DateTime.Now.ToString)
      End Sub
   End Class

End Namespace