样式中的WPF附加属性在VB.Net中没有可访问的Setter

xmlns:local="clr-namespace:YourNamespace"

Public Shared ReadOnly MyAttachedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
    "MyAttachedProperty",
    GetType(String),
    GetType(YourCustomClass),
    New FrameworkPropertyMetadata(Nothing, AddressOf MyAttachedPropertyChanged))

Public Shared Function GetMyAttachedProperty(element As DependencyObject) As String
    Return DirectCast(element.GetValue(MyAttachedProperty), String)
End Function

Public Shared Sub SetMyAttachedProperty(element As DependencyObject, value As String)
    element.SetValue(MyAttachedProperty, value)
End Sub

<Window x:Class="YourNamespace.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:local="clr-namespace:YourNamespace"
        Title="MainWindow" Height="350" Width="525">
    <Grid local:YourCustomClass.MyAttachedProperty="SomeValue">
        <!-- Your content here -->
    </Grid>
</Window>