Is it possible to add designerverbs on a custom form class?

Question

0.00/5 (No votes)

See more:

, +

Is it possible to add DesignerVerbs on a custom form class? I have try to make a custom designer class for my custom form class and use it like this [1]. I have also try to do all the "work" into my custom form's class like this [2]. But with no luck. Any idea how can I do that? If it is possible...

What I have tried:

[1]

VB

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

[2]

VB

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

Posted 27-May-18 1:45am

Simos Sigma

Updated 27-May-18 2:35am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Simos Sigma · Accepted Answer · 2018-05-27T02:36:00

I got an easy solution on my question here at stackoverflow.com.
---
Reza Aghaei: If you are going to add some custom verbs to designer of a Form, you need to create a new custom Designer by deriving from DocumentDesigner and overriding a lot of properties and method to recreate FormDesigner. As an easier solution, you can tweak designer of base form of your form. Let's say, you have Form1 and you want to have Do Something verb for it. To do so, if BaseForm is the base form for your Form1, it's enough to add the following code to BaseForm:

VB

Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs)
	MyBase.OnHandleCreated(e)
	Dim host = DirectCast(Me.Site.GetService(GetType(IDesignerHost)), IDesignerHost)
	Dim designer = host.GetDesigner(Me)
	designer.Verbs.Add(New DesignerVerb("Do Something", Sub(obj, args)
		MessageBox.Show("Something done!")
	End Sub))
End Sub

As a result, Do Something will be added to context menu for your Form1:
https://i.stack.imgur.com/j2L12.png