Как создать кастомную кнопку в VB .NET?

Question

[Alex]

Пытаюсь создать кастомную кнопку на VB .NET. Создал вот такой класс:

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

Public Class EllipseButton
    Inherits Button
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim grPath As GraphicsPath = New GraphicsPath()
        grPath.AddEllipse(0, 0, ClientSize.Width, ClientSize.Height)
        Me.Region = New Region(grPath)
        MyBase.OnPaint(e)
    End Sub
End Class

Однако при добавлении кнопки из Тулбокса выходит ошибка "Не удаётся добавить элемент" и удаляется из тулбокса.
В чем ошибка?!

Answer 1

[Владимир Коротенко]

Работает, даже встраивается в форму.

#region License
// // Разработано: Коротенко Владимиром Николаевичем (Vladimir N. Korotenko)
// // email: [e-mail]
// // skype:vladimir-korotenko
// // https://vkorotenko.ru
// // Создано:  06.04.2020 16:10
#endregion

using System.Drawing;
using System.Drawing.Drawing2D;
using System.Windows.Forms;

namespace Kvn.CustomControls
{
    public class EllipseButton : Button
    {
        protected override void OnPaint(PaintEventArgs e)
        {
            var grPath = new GraphicsPath();
            grPath.AddEllipse(0, 0, ClientSize.Width, ClientSize.Height);
            Region = new Region(grPath);
            base.OnPaint(e);
        }
    }
}

Comments

[Alex]

на С# получается работает?! а на VB чет выпадает ошибка как так?

Код

Ошибка

[Владимир Коротенко]

И в VB работает, вот пример проекта
https://yadi.sk/d/hxws5mpeKduV5A

[Alex]

Владимир Коротенко, действительно все работает у вас в проекте! Выяснил что я создавал элемент "Класс", а у вас "Класс компонента". Я попробовал сделать тоже самое создав именно "Класс компонента" но уже в своем проекте вставил весь тот же код. Но опять та же ошибка.
Чет какая то магия)))

[Alex]

Владимир Коротенко, проблема оказалось в свойствах проекта Target CPU. Если установлен х64, то элемент выдаёт ошибку, если Any CPU то все хорошо.
Не знаете в чем проблема? И почему при х64 элемент отказывает работать?!

[Владимир Коротенко]

alexjet73,
1. Самое банальное у вас x86 процессор
2. Вы используете старые драйвера для доступа к БД

Возможно что то еще. Попробуйте запустить в дебаг режиме и посмотрите что за сообщения в окне Output и с каким сообщением останавливается приложение.

Зы и в общем то лучше исходный код прикреплять.

Я с VB не часто сталкиваюсь поэтому создавал класс, попробовал создать компонент, все так же. То есть разницы нет по коду.