View and Select Items Using a ComboBox

     
<Window x:Class="WpfApplication1.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="WPF" Height="100" Width="300">
    <StackPanel>
        <ComboBox Name="comboBox" IsEditable="True" Margin="5" SelectionChanged="ComboBox_SelectionChanged">
            <ComboBoxItem Content="ComboBox Item 1" Selected="ComboBoxItem_Selected" />
            <ComboBoxItem Content="ComboBox Item 2" Selected="ComboBoxItem_Selected" />
            <ComboBoxItem Content="ComboBox Item 3" Selected="ComboBoxItem_Selected" IsSelected="True"/>
            <ComboBoxItem Content="ComboBox Item 4" Selected="ComboBoxItem_Selected" />
            <ComboBoxItem Content="ComboBox Item 5" Selected="ComboBoxItem_Selected" />
        </ComboBox>
        <Button Content="Get Selected" Margin="5" Width="100" Click="Button_Click" />
    </StackPanel>
</Window>

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls

Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
      Dim item As ComboBoxItem = TryCast(comboBox.SelectedItem, ComboBoxItem)

      If item IsNot Nothing Then
        MessageBox.Show("Current item: " & Convert.ToString(item.Content), Title)
      ElseIf Not [String].IsNullOrEmpty(comboBox.Text) Then
        MessageBox.Show("Text entered: " + comboBox.Text, Title)
      End If
    End Sub

    Private Sub ComboBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)

      If Not IsInitialized Then
        Return
      End If

      Dim item As ComboBoxItem = TryCast(comboBox.SelectedItem, ComboBoxItem)

      If item IsNot Nothing Then
        MessageBox.Show("Selected item: " & Convert.ToString(item.Content), Title)
      End If
    End Sub

    Private Sub ComboBoxItem_Selected(sender As Object, e As RoutedEventArgs)
      If Not IsInitialized Then
        Return
      End If

      Dim item As ComboBoxItem = TryCast(e.OriginalSource, ComboBoxItem)

      If item IsNot Nothing Then
        MessageBox.Show(Convert.ToString(item.Content) & " was selected.", Title)
      End If
    End Sub
  End Class
End Namespace

Related examples in the same category

1.	ComboBox Test
2.	Bind ComboBox to ListBox ItemsSource
3.	ComboBox with ComboBoxItem
4.	Gets the currently selected ComboBoxItem when the user clicks the Button.
5.	if the user has entered text into the ComboBox instead.
6.	Handles ComboBox SelectionChanged events.
7.	Handles ComboBoxItem Selected events.

View and Select Items Using a ComboBox : ComboBox « Windows Presentation Foundation « VB.Net

Related examples in the same category