Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

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