Add, remove and clear list box items : ListBox « GUI « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » GUI » ListBoxScreenshots 
Add, remove and clear list box items
Add, remove and clear list box items
 
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class MainClass

   Shared Sub Main()
        Dim myform As Form = New FrmListBox()
        Application.Run(myform)

   End Sub ' Main

End Class

Public Class FrmListBox
   Inherits Form

#Region " Windows Form Designer generated code "

   Public Sub New()
      MyBase.New()

      'This call is required by the Windows Form Designer.
      InitializeComponent()

      'Add any initialization after the InitializeComponent() call

   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      If disposing Then
         If Not (components Is NothingThen
            components.Dispose()
         End If
      End If
      MyBase.Dispose(disposing)
   End Sub

   ' contains user-input list of elements
   Friend WithEvents lstDisplay As ListBox

   ' user input textbox
   Friend WithEvents txtInput As TextBox

   ' add, remove, clear and exit command buttons
   Friend WithEvents cmdAdd As Button
   Friend WithEvents cmdRemove As Button
   Friend WithEvents cmdClear As Button

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.Container

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()Private Sub InitializeComponent()
      Me.cmdClear = New System.Windows.Forms.Button()
      Me.cmdAdd = New System.Windows.Forms.Button()
      Me.txtInput = New System.Windows.Forms.TextBox()
      Me.cmdRemove = New System.Windows.Forms.Button()
      Me.lstDisplay = New System.Windows.Forms.ListBox()
      Me.SuspendLayout()
      '
      'cmdClear
      '
      Me.cmdClear.Location = New System.Drawing.Point(160144)
      Me.cmdClear.Name = "cmdClear"
      Me.cmdClear.Size = New System.Drawing.Size(10440)
      Me.cmdClear.TabIndex = 4
      Me.cmdClear.Text = "Clear"
      '
      'cmdAdd
      '
      Me.cmdAdd.Location = New System.Drawing.Point(16048)
      Me.cmdAdd.Name = "cmdAdd"
      Me.cmdAdd.Size = New System.Drawing.Size(10440)
      Me.cmdAdd.TabIndex = 2
      Me.cmdAdd.Text = "Add"
      '
      'txtInput
      '
      Me.txtInput.Location = New System.Drawing.Point(1608)
      Me.txtInput.Name = "txtInput"
      Me.txtInput.Size = New System.Drawing.Size(10420)
      Me.txtInput.TabIndex = 1
      Me.txtInput.Text = ""
      '
      'cmdRemove
      '
      Me.cmdRemove.Location = New System.Drawing.Point(16096)
      Me.cmdRemove.Name = "cmdRemove"
      Me.cmdRemove.Size = New System.Drawing.Size(10440)
      Me.cmdRemove.TabIndex = 3
      Me.cmdRemove.Text = "Remove"
      '
      'lstDisplay
      '
      Me.lstDisplay.Location = New System.Drawing.Point(168)
      Me.lstDisplay.Name = "lstDisplay"
      Me.lstDisplay.Size = New System.Drawing.Size(120238)
      Me.lstDisplay.TabIndex = 0
      '
      'FrmListBox
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(513)
      Me.ClientSize = New System.Drawing.Size(292273)
      Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdClear, Me.cmdRemove, Me.cmdAdd, Me.txtInput, Me.lstDisplay})
      Me.Name = "FrmListBox"
      Me.Text = "ListBoxTest"
      Me.ResumeLayout(False)

   End Sub

#End Region

   Private Sub cmdAdd_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgsHandles cmdAdd.Click

      lstDisplay.Items.Add(txtInput.Text)
      txtInput.Text = ""
   End Sub

   Private Sub cmdRemove_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgsHandles cmdRemove.Click
      If lstDisplay.SelectedIndex <> -Then
         lstDisplay.Items.RemoveAt(lstDisplay.SelectedIndex)
      End If
   End Sub

   Private Sub cmdClear_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgsHandles cmdClear.Click

      lstDisplay.Items.Clear()
   End Sub ' cmdClear_Click

End Class
           
         
  
Related examples in the same category
1.Toggling list box Selection Mode: select one or select more than oneToggling list box Selection Mode: select one or select more than one
2.Draw selected Item in ListBoxDraw selected Item in ListBox
3.Owner Draw ListBoxOwner Draw ListBox
4.Add Item to ListBoxAdd Item to ListBox
5.Add Item to a List Box by clicking a ButtonAdd Item to a List Box by clicking a Button
6.Get Selected Item from ListBoxGet Selected Item from ListBox
7.List Box and Spinner DemoList Box and Spinner Demo
8.Customize ListBox Font and Item HeightCustomize ListBox Font and Item Height
9.Drag and drop between two ListBoxDrag and drop between two ListBox
10.Set ListBox TopIndexSet ListBox TopIndex
11.Enum Binding
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.