xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="Canvas_Positioning_Properties.Window1"
Title="Canvas Positioning Properties">
A TextBlock.
Auto
10
20
30
40
50
60
70
80
90
100
//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
Namespace Canvas_Positioning_Properties
Public Partial Class Window1
Inherits Window
Public Sub ChangeRight(sender As Object, args As SelectionChangedEventArgs)
Dim li2 As ListBoxItem = TryCast(TryCast(sender, ListBox).SelectedItem, ListBoxItem)
Dim myLengthConverter As New LengthConverter()
Dim db2 As [Double] = CType(myLengthConverter.ConvertFromString(li2.Content.ToString()), [Double])
Canvas.SetRight(text1, db2)
Console.WriteLine(myLengthConverter.ConvertToString(Canvas.GetRight(text1)))
End Sub
End Class
End Namespace