xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="WPF" Height="300" Width="300">
List Item 1
List Item 2
List Item 3
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub btnAddListItem_Click(sender As Object, e As RoutedEventArgs)
If textBox.Text.Length = 0 Then
MessageBox.Show("Enter text to add to the list.", Title)
Else
Dim item As New ListBoxItem()
item.Content = textBox.Text
item.IsSelected = True
item.HorizontalAlignment = HorizontalAlignment.Center
item.FontWeight = FontWeights.Bold
item.FontFamily = New FontFamily("Tahoma")
listBox1.Items.Add(item)
textBox.Clear()
textBox.Focus()
End If
End Sub
Private Sub btnDeleteListItem_Click(sender As Object, e As RoutedEventArgs)
If listBox1.SelectedItems.Count = 0 Then
MessageBox.Show("Select list items to delete.", Title)
Else
While listBox1.SelectedItems.Count > 0
listBox1.Items.Remove(listBox1.SelectedItems(0))
End While
End If
End Sub
Private Sub btnSelectAll_Click(sender As Object, e As RoutedEventArgs)
listBox1.SelectAll()
End Sub
End Class
End Namespace