xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="layout_information.Window1"
Title="LayoutInformation Sample">
Hello World!
Show Bounding Box
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Namespace layout_information
Public Partial Class Window1
Inherits Window
Public Sub ShowLayoutSlot(sender As Object, e As System.Windows.RoutedEventArgs)
Dim myRectangleGeometry As New RectangleGeometry()
myRectangleGeometry.Rect = LayoutInformation.GetLayoutSlot(txt1)
Dim myGeometryDrawing As New GeometryDrawing()
Dim myPath As New Path()
myPath.Data = myRectangleGeometry
myPath.Stroke = Brushes.LightGoldenrodYellow
myPath.StrokeThickness = 1
Grid.SetColumn(myPath, 0)
Grid.SetRow(myPath, 0)
myGrid.Children.Add(myPath)
Console.WriteLine(LayoutInformation.GetLayoutSlot(txt1).ToString())
End Sub
End Class
End Namespace