VB.Net 扩展对象 IExtenderProvider

Question

好吧，我已经为此奋斗了几天，我已经束手无策了……我正在尝试通过扩展控件来添加一个在运行时在 PropertyGrid 中可见的可浏览属性。无论我做什么，iExtenderProvider 似乎都没有实际运行。

iExtenderProvider 位于第二个项目中，并在主项目中添加了引用。 (下面的代码)

Imports System.ComponentModel
Imports System.Windows.Forms

Public Class ControlArray
             Inherits Component
             Implements IExtenderProvider
    <Browsable(True)> Public ReadOnly Property Count As Integer
        Get
            Return 0
        End Get
    End Property

    Public Function CanExtend(ByVal extendee As Object) As Boolean Implements IExtenderProvider.CanExtend
       Return TypeOf extendee Is Control
    End Function
End Class

然后我构建第二个项目，返回到第一个项目，但我的属性窗口中没有任何内容，我在代码中实例化一个控件，然后尝试找到我的“Count”属性，但那里什么也没有。关于可能出现的问题有什么建议吗？

Answer 1

阅读答案之前

确保你知道:

扩展程序提供程序是为其他组件提供属性的组件。扩展器提供者提供的属性实际上驻留在扩展器提供者对象本身中，因此不是它修改的组件的真实属性。

在设计时属性出现在属性窗口中。

但是，在运行时，您无法通过组件本身访问该属性。相反，您可以在扩展程序组件上调用 getter 和 setter 方法。

实现扩展器提供程序

• 继承自 Component 并实现 IExtenderProvider界面。
• 用ProvideProperty装饰你的组件类属性并引入提供的属性和目标控件类型。
• 实现 CanExtend 时方法，为您要为其提供属性的每个控件类型返回 true。
• 为提供的属性实现 getter 和 setter 方法。

了解更多

• Extender Provider Overview
• IExtenderProvider
• How to: Implement a HelpLabel Extender Provider

示例

使用下面的代码你可以实现一个扩展组件ControlExtender。当您构建代码并将 ControlExtender 的实例放在表单上时，它会扩展所有控件并为属性网格中的控件添加 SomeProperty on ControlExtender1 属性。

1. 在项目中添加一个Component，并命名为ControlExtender
2. 然后在ControlExtender.vb中使用这些代码

Imports System.ComponentModel
Imports System.Windows.Forms

<ProvideProperty("SomeProperty", GetType(Control))>
Public Class ControlExtender
    Inherits Component
    Implements IExtenderProvider
    Private controls As New Hashtable
    Public Function CanExtend(extendee As Object) As Boolean Implements IExtenderProvider.CanExtend
            Return TypeOf extendee Is Control
    End Function

    Public Function GetSomeProperty(control As Control) As String
        If controls.ContainsKey(control) Then
            Return DirectCast(controls(control), String)
        End If

        Return Nothing
    End Function
    Public Sub SetSomeProperty(control As Control, value As String)
        If (String.IsNullOrEmpty(value)) Then
            controls.Remove(control)
        Else
            controls(control) = value
        End If
    End Sub
End Class

注意:您也可以根据需要继承Control。但在大多数情况下，继承 Component 更有意义。