<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="ClearButtons">
<TabItem.Header>Clear 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 ClearButtons(sender As Object, e As MouseButtonEventArgs)
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)
End Sub
Private Sub ClearControls(sender As Object, e As RoutedEventArgs)
sp1.Children.Clear()
End Sub
End Class
End Namespace
|
