Creating a custom Web Part control (VB) : WebPart « WebPart « ASP.NET Tutorial

1. ASP.NET Tutorial
2. WebPart
3. WebPart

Imports System
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts


Public Class StateListBox
    Inherits WebPart

    Private _LabelStartText As String = " Enter State Name: "
    Dim StateInput As New TextBox
    Dim StateContents As New ListBox

    Public Sub New()
        Me.AllowClose = False
    End Sub

    <Personalizable(), WebBrowsable()> _
    Public Property LabelStartText() As String
        Get
            Return _LabelStartText
        End Get
        Set(ByVal value As String)
            _LabelStartText = value
        End Set
    End Property

    Protected Overrides Sub CreateChildControls()
        Controls.Clear()

        Dim InstructionText As New Label
        InstructionText.BackColor = Drawing.Color.LightGray
        InstructionText.Font.Name = "Verdana"
        InstructionText.Font.Size = 10
        InstructionText.Font.Bold = True
        InstructionText.Text = LabelStartText
        Me.Controls.Add(InstructionText)

        Dim LineBreak As New Literal
        LineBreak.Text = "<br />"
        Me.Controls.Add(LineBreak)

        Me.Controls.Add(StateInput)

        Dim InputButton As New Button
        InputButton.Text = "Input State"
        AddHandler InputButton.Click, AddressOf Me.Button1_Click
        Me.Controls.Add(InputButton)

        Dim Spacer As New Literal
        Spacer.Text = "<paragraph>"
        Me.Controls.Add(Spacer)

        Me.Controls.Add(StateContents)

        ChildControlsCreated = True
    End Sub

    Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        StateContents.Items.Add(StateInput.Text)
        StateInput.Text = String.Empty
        StateInput.Focus()
    End Sub

End Class