Mega Code Archive

 

Categories / ASP.Net Tutorial / Custom Controls

 

The Visual Studio Web Control Library class template (VB)

Imports System.ComponentModel Imports System.Web.UI <DefaultProperty("Text"), _  ToolboxData("<{0}:WebCustomControl1 runat=server></{0}:WebCustomControl1>")>  Public Class WebCustomControl1     Inherits System.Web.UI.WebControls.WebControl     Dim _text As String     <Bindable(True), Category("Appearance"), DefaultValue("")> _     Property [Text]() As String         Get             Return _text         End Get         Set(ByVal Value As String)             _text = Value         End Set     End Property     Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)         output.Write([Text])     End Sub End Class