ASP.NET Tutorial/WebPart/WebPart

Creating a custom Web Part control (C#)

using System;
using System.Web;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;

public class StateListBox : WebPart
{
    private String _LabelStartText = " Enter State Name: ";
    TextBox StateInput;
    ListBox StateContents;
    public StateListBox()
    {
        this.AllowClose = false;
    }
    [Personalizable(), WebBrowsable]
    public String LabelStartText
    {
        get { return _LabelStartText; }
        set { _LabelStartText = value; }
    }
    protected override void CreateChildControls()
    {
        Controls.Clear();
        Label InstructionText = new Label();
        InstructionText.BackColor = System.Drawing.Color.LightGray;
        InstructionText.Font.Name = "Verdana";
        InstructionText.Font.Size = 10;
        InstructionText.Font.Bold = true;
        InstructionText.Text = LabelStartText;
        this.Controls.Add(InstructionText);
        Literal LineBreak = new Literal();
        LineBreak.Text = "<br />";
        this.Controls.Add(LineBreak);
        this.Controls.Add(StateInput);
        Button InputButton = new Button();
        InputButton.Text = "Input State";
        InputButton.Click += new EventHandler(this.Button1_Click);
        this.Controls.Add(InputButton);
        Literal Spacer = new Literal();
        Spacer.Text = "<paragraph>";
        this.Controls.Add(Spacer);
        this.Controls.Add(StateContents);
        ChildControlsCreated = true;
    }
    private void Button1_Click(object sender, EventArgs e)
    {
        StateContents.Items.Add(StateInput.Text);
        StateInput.Text = String.Empty;
        StateInput.Focus();
    }
}

Creating a custom Web Part control (VB)

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