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
请任何建议如何开发像这个颜色扩展一这样的扩展功能。