<StackPanel xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation">
<Button Name="MyButton" HorizontalAlignment="Center" Margin="24">Button</Button>
<Ellipse Width="200" Height="100" Margin="24" Stroke="Red" StrokeThickness="10" />
<ListBox Width="100" Height="100" Margin="24">
<ListBoxItem>Sunday</ListBoxItem>
<ListBoxItem>Monday</ListBoxItem>
<ListBoxItem>Tuesday</ListBoxItem>
</ListBox>
</StackPanel>
//File:Window.xaml.vb
Imports System
Imports System.IO
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Markup
Namespace WpfApplication1.LoadXamlResource
Public Class LoadXamlResource
Inherits Window
Public Sub New()
Title = "Load Xaml Resource"
Dim uri As New Uri("pack://application:,,,/LoadXamlResource.xml")
Dim stream As Stream = Application.GetResourceStream(uri).Stream
Dim el As FrameworkElement = TryCast(XamlReader.Load(stream), FrameworkElement)
Content = el
Dim btn As Button = TryCast(el.FindName("MyButton"), Button)
If btn IsNot Nothing Then
AddHandler btn.Click, AddressOf ButtonOnClick
End If
End Sub
Private Sub ButtonOnClick(sender As Object, args As RoutedEventArgs)
Console.WriteLine(args.Source.ToString())
End Sub
End Class
End Namespace
|
