<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
|