在自定义表单上添加 DesignerVerbs

Question

是否可以在自定义表单上添加DesignerVerbs？我尝试为我的自定义表单类制作一个自定义设计器类并像这样使用它......

<Designer(GetType(CustomDesigner))>
Public Class CustomForm
    Inherits Form
    '...
End Class

我也尝试像这样在我的自定义表单的类中完成所有“工作”...

Imports System.ComponentModel.Design

Public Class CustomForm
    Inherits Form
    '...
    Private _Verbs As DesignerVerbCollection
    Public ReadOnly Property Verbs() As DesignerVerbCollection
        Get
            If _Verbs Is Nothing Then
                _Verbs = New DesignerVerbCollection From {
                New DesignerVerb("Verb1", New EventHandler(AddressOf EventHandler1)),
                New DesignerVerb("Verb2", New EventHandler(AddressOf EventHandler2))
                }
                _Verbs(0).Visible = False
                _Verbs(1).Visible = True
            End If
            Return _Verbs
        End Get
    End Property
    Private Sub EventHandler1(ByVal sender As Object, ByVal e As EventArgs)
        '...
    End Sub
    Private Sub EventHandler2(ByVal sender As Object, ByVal e As EventArgs)
        '...
    End Sub
End Class

但没有运气。

Answer 1

如果您要为Form 的设计器添加一些自定义动词，您需要通过从DocumentDesigner 派生并覆盖许多属性和方法来重新创建FormDesigner 来创建一个新的自定义Designer。

作为一种更简单的解决方案，您可以调整表单基本表单的设计器。比方说，你有Form1 并且你想有Do Something 动词。为此，如果BaseForm 是您的Form1 的基本形式，只需将以下代码添加到BaseForm：

//You may want to add null checking to the code.

protected override void OnHandleCreated(EventArgs e)
{
    base.OnHandleCreated(e);
    if (!DesignMode)
        return;
    var host = (IDesignerHost)this.Site.GetService(typeof(IDesignerHost));
    var designer = host.GetDesigner(this);
    designer.Verbs.Add(new DesignerVerb("Do Something", (obj, args) =>
    {
        MessageBox.Show("Something done!");
    }));
}

因此，Do Something 将被添加到您的 Form1 的上下文菜单中：

如果你想走更难的路，你可以在这里找到FormDocumentDesigner的源代码，它源自DocumentDesigner。