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

Namespace CPress

  Public Class StateListBox
    Inherits WebPart

    Private _LabelStartText As String = " Zadejte nzev sttu: "
    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 = "Zadat stt"
      AddHandler InputButton.Click, AddressOf Me.Button1_Click
      Me.Controls.Add(InputButton)

      Dim Spacer As New Literal
      Spacer.Text = "<p>"
      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

End Namespace
