Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

ListBox Selected Index, Item, Value

<Window x: Class="WpfApplication1.MainWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="WpfApplication1" Height="399" Width="320" WindowStartupLocation="CenterScreen">     <StackPanel xmlns:CorLib = "clr-namespace:System;assembly=mscorlib">     <ListBox Name = "dataList"/>     <ListBox Name = "lstColors">       <StackPanel Orientation ="Horizontal" Tag ="Yellow">         <Ellipse Fill ="Yellow" Height ="50" Width ="50"/>         <Label FontSize ="20" HorizontalAlignment="Center"           VerticalAlignment="Center">Yellow</Label>       </StackPanel>       <StackPanel Orientation ="Horizontal" Tag ="Blue">         <Ellipse Fill ="Blue" Height ="50" Width ="50"/>         <Label FontSize ="20" HorizontalAlignment="Center"           VerticalAlignment="Center">Blue</Label>       </StackPanel>       <StackPanel Orientation ="Horizontal" Tag ="Green">         <Ellipse Fill ="Green" Height ="50" Width ="50"/>         <Label FontSize ="20" HorizontalAlignment="Center"           VerticalAlignment="Center">Green</Label>       </StackPanel>     </ListBox>     <Button Name ="btnGetGameSystem" Click ="btnGetGameSystem_Click">       Video     </Button>     <Button Name ="btnGetColor" Click ="btnGetColor_Click">       Get Color     </Button>   </StackPanel> </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 WpfApplication1   Public Partial Class MainWindow     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()       dataList.Items.Add("A")       dataList.Items.Add("B")       dataList.Items.Add("C")       dataList.Items.Add("D")       dataList.Items.Add("E")     End Sub     Protected Sub btnGetGameSystem_Click(sender As Object, args As RoutedEventArgs)       Console.WriteLine(dataList.SelectedIndex)       Console.WriteLine(dataList.SelectedItem)       Console.WriteLine(dataList.SelectedValue)     End Sub     Protected Sub btnGetColor_Click(sender As Object, args As RoutedEventArgs)       Console.WriteLine(TryCast(lstColors.Items(lstColors.SelectedIndex), StackPanel).Tag)     End Sub   End Class End Namespace