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






<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
WPF View And Select Items Using A Combo Box








16.12.ComboBox
16.12.1.ComboBox TestComboBox Test
16.12.2.Bind ComboBox to ListBox ItemsSourceBind ComboBox to ListBox ItemsSource
16.12.3.ComboBox with ComboBoxItemComboBox with ComboBoxItem
16.12.4.Gets the currently selected ComboBoxItem when the user clicks the Button.Gets the currently selected ComboBoxItem when the user clicks the Button.
16.12.5.if the user has entered text into the ComboBox instead.if the user has entered text into the ComboBox instead.
16.12.6.Handles ComboBox SelectionChanged events.Handles ComboBox SelectionChanged events.
16.12.7.Handles ComboBoxItem Selected events.Handles ComboBoxItem Selected events.
16.12.8.View and Select Items Using a ComboBoxView and Select Items Using a ComboBox