Mega Code Archive

 

Categories / VB.Net / WPF

 

Show Index of Controls

<Page xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     x:Class="ElemCollMethods.Pane1"     WindowTitle="UI Element Collection Methods Sample">  <StackPanel>     <TextBlock Name="txt" FontSize="16">UI Element Collection - Methods</TextBlock>     <TabControl>         <TabItem MouseLeftButtonUp="ShowIndex">             <TabItem.Header>Show Index of Controls</TabItem.Header>         </TabItem>     </TabControl>     <StackPanel Name="sp1"></StackPanel>  </StackPanel> </Page> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Documents Imports System.Windows.Navigation Imports System.Windows.Shapes Imports System.Windows.Data Imports System.Windows.Input Namespace ElemCollMethods   Public Partial Class Pane1     Inherits Page     Private btn As System.Windows.Controls.Button, btn1 As System.Windows.Controls.Button, btn2 As System.Windows.Controls.Button, btn3 As System.Windows.Controls.Button     Private Sub ShowIndex(sender As Object, e As MouseButtonEventArgs)       sp1.Children.Clear()       btn = New Button()       btn.Content = "Click for index"       AddHandler btn.Click, (AddressOf PrintIndex)       sp1.Children.Add(btn)       btn1 = New Button()       btn1.Content = "Click for index"       sp1.Children.Add(btn1)       AddHandler btn1.Click, (AddressOf PrintIndex1)       btn2 = New Button()       btn2.Content = "Click for index"       sp1.Children.Add(btn2)       AddHandler btn2.Click, (AddressOf PrintIndex2)       btn3 = New Button()       btn3.Content = "Click for index"       sp1.Children.Add(btn3)       AddHandler btn3.Click, (AddressOf PrintIndex3)     End Sub     Private Sub PrintIndex(sender As Object, e As RoutedEventArgs)       btn.Content = ((sp1.Children.IndexOf(btn)).ToString())     End Sub     Private Sub PrintIndex1(sender As Object, e As RoutedEventArgs)       btn1.Content = ((sp1.Children.IndexOf(btn1)).ToString())     End Sub     Private Sub PrintIndex2(sender As Object, e As RoutedEventArgs)       btn2.Content = ((sp1.Children.IndexOf(btn2)).ToString())     End Sub     Private Sub PrintIndex3(sender As Object, e As RoutedEventArgs)       btn3.Content = ((sp1.Children.IndexOf(btn3)).ToString())     End Sub   End Class End Namespace