<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="ContainsElement">
<TabItem.Header>Contains Element?</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 ContainsElement(sender As Object, e As RoutedEventArgs)
sp1.Children.Clear()
btn = New Button()
btn.Content = "Click to clear"
sp1.Children.Add(btn)
AddHandler btn.Click, (AddressOf ClearControls)
btn1 = New Button()
btn1.Content = "Click to clear"
sp1.Children.Add(btn1)
AddHandler btn1.Click, (AddressOf ClearControls)
btn2 = New Button()
btn2.Content = "Click to clear"
sp1.Children.Add(btn2)
AddHandler btn2.Click, (AddressOf ClearControls)
btn3 = New Button()
btn3.Content = "Click to clear"
sp1.Children.Add(btn3)
AddHandler btn3.Click, (AddressOf ClearControls)
Dim txt1 As New TextBlock()
sp1.Children.Add(txt1)
txt1.Text = "This StackPanel contains UIElement btn1: " + sp1.Children.Contains(btn1).ToString()
End Sub
Private Sub ClearControls(sender As Object, e As RoutedEventArgs)
sp1.Children.Clear()
End Sub
End Class
End Namespace
|
