Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

CheckBox List

<Window x: Class="ClassicControls.CheckBoxList"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="CheckBoxList" Height="300" Width="300">   <Grid Margin="10">     <Grid.RowDefinitions>       <RowDefinition Height="*"></RowDefinition>       <RowDefinition Height="Auto"></RowDefinition>     </Grid.RowDefinitions>          <ListBox Name="lst" SelectionChanged="lst_SelectionChanged" CheckBox.Click="lst_SelectionChanged" >       <CheckBox Margin="3">Option 1</CheckBox>       <CheckBox Margin="3">Option 2</CheckBox>       <CheckBox Margin="3">Option 3</CheckBox>     </ListBox>     <StackPanel Grid.Row="1" Margin="0,10,0,0">       <Button Margin="0,10,0,0" Click="cmd_CheckAllItems">Examine All Items</Button>     </StackPanel>   </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace ClassicControls   Public Partial Class CheckBoxList     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()     End Sub     Private Sub lst_SelectionChanged(sender As Object, e As RoutedEventArgs)       If TypeOf e.OriginalSource Is CheckBox Then         lst.SelectedItem = e.OriginalSource       End If       If lst.SelectedItem Is Nothing Then         Return       End If       Console.WriteLine(lst.SelectedIndex)       Console.WriteLine(DirectCast(lst.SelectedItem, CheckBox).IsChecked)     End Sub     Private Sub cmd_CheckAllItems(sender As Object, e As RoutedEventArgs)       For Each item As CheckBox In lst.Items         If item.IsChecked = True Then           Console.WriteLine((Convert.ToString(item.Content) & " is checked."))         End If       Next     End Sub   End Class End Namespace