Imports System.Runtime.CompilerServices
Public Module ColorExtension
<Extension()> _
Public Function ToColor(ByVal argb As UInteger) As Global.System.Windows.Media.Color
Return Global.System.Windows.Media.Color.FromArgb(CByte((argb And -16777216) >> &H18), CByte((argb And &HFF0000) >> &H10), CByte((argb And &HFF00) >> 8), CByte(argb And &HFF))
End Function
End Module
Public Class Test
Private Sub TestExt()
Dim Col As System.Windows.Media.Color
Col = System.Windows.Media.Color.ToColor(100)'<-- Error
Col.ToColor(100)'<-- Error
End Sub
End Class
このコードを使用すると、エラー 1 'ToColor' は 'System.Windows.Media.Color' のメンバーではありませんという例外が発生しました。C:...\ColorExtension.vb
この Color 拡張機能のような拡張機能を開発する方法についてアドバイスをお願いします。