如何附加属性（通过 .NET 基础设施或任何其他）

Question

我有一个 WPF 应用程序，并向项目资源添加了许多图标和位图。

现在我可以像这样访问它们：

Dim ico As System.Drawing.Icon = My.Resources.Icon 'Icon.ico
Dim img As System.Drawing.Bitmap = My.Resources.Image 'Image.png

为了在 wpf 中使用它，我创建了太简单的扩展方法，将它们转换为 ImageSource 类型：

'...Imports System.Drawing
'...Imports System.Windows.Interop.Imaging
<Extension()> _
Public Function ToImageSource(ByVal icon As Icon) As BitmapSource
    Return CreateBitmapSourceFromHIcon(icon.Handle, Int32Rect.Empty, _
        BitmapSizeOptions.FromEmptyOptions)
End Function

<Extension()> _
Public Function ToImageSource(ByVal image As Bitmap) As BitmapSource
    Return CreateBitmapSourceFromHBitmap(image.GetHbitmap(), IntPtr.Zero, _
        Int32Rect.Empty, BitmapSizeOptions.FromEmptyOptions)
End Function

所以我可以这样使用它：

Dim i As New Image With {.Source = My.Resources.Image.ToImageSource}

看一下 MyWpfExtensions.vb，我发现 Microsoft 很少有允许非官方编码的基础设施，这是我向你们的专家提出的问题。

我希望为 System.Drawing.Bitmap/Icon 类型的每个资源提供一个附加（或重写）属性，该属性通过 ex 返回图像。方法，这样我就不必在 Xaml 中使用转换器，而是直接使用它。

我实际上正在寻找类似 Microsoft.VisualBasic.MyGroupCollectionAttribute 的东西。

有什么想法吗？...

Answer 1

我想除了转换器之外没有其他方法，所以让我们发布它：

Imports System.Drawing
Namespace Converters
    <ValueConversion(GetType(MarshalByRefObject), GetType(BitmapSource))> _
    Public Class ImageSourceConverter : Implements IValueConverter
        Public Function Convert(value As Object, targetType As Type, 
        parameter As Object,
        culture As System.Globalization.CultureInfo) As Object
        Implements System.Windows.Data.IValueConverter.Convert
            Dim imageSource As ImageSource = Nothing
            Dim type = value.GetType
            If type.Equals(GetType(Icon)) Then
                imageSource = DirectCast(value, Icon).ToImageSource
            ElseIf type.Equals(GetType(Bitmap)) Then
                imageSource = DirectCast(value, Bitmap).ToImageSource
            End If

            Return imageSource
        End Function

        Public Function ConvertBack(value As Object, targetType As Type,
        parameter As Object,
        culture As System.Globalization.CultureInfo) As Object Implements
        System.Windows.Data.IValueConverter.ConvertBack
            Throw New NotSupportedException
        End Function
    End Class
End Namespace