Необходимо реализовать сообщение об ошибке в моем классе, используя VB.Net - PullRequest
Новая
       67

Необходимо реализовать сообщение об ошибке в моем классе, используя VB.Net

0 голосов
/ 12 апреля 2020

Я конвертирую код из ссылки ниже в VB. Net

https://www.codeproject.com/Articles/9280/Add-Remove-Items-to-from-PropertyGrid-at-Runtime

Результат: 

Public Class CustomClass
        Inherits CollectionBase
        Implements ICustomTypeDescriptor

        Public Sub Add(ByVal Value As CustomProperty)
            MyBase.List.Add(Value)
        End Sub

        Public Sub Remove(ByVal Name As String)
            For Each prop As CustomProperty In MyBase.List

                If Equals(prop.Name, Name) Then
                    MyBase.List.Remove(prop)
                    Return
                End If
            Next
        End Sub

        Default Public Property Item(ByVal index As Integer) As CustomProperty
            Get
                Return CType(MyBase.List(index), CustomProperty)
            End Get
            Set(ByVal value As CustomProperty)
                MyBase.List(index) = value
            End Set
        End Property

    #Region "TypeDescriptor Implementation"

        Public Function GetClassName() As String
            Return TypeDescriptor.GetClassName(Me, True)
        End Function end class

К сожалению, я получаю следующий код ошибки:

Ошибка 2 Класс 'CustomClass' должен реализовывать 'функцию GetClassName () As String' для интерфейса 'System.ComponentModel.ICustomTypeDescriptor'. C: \ Integration_GIT_repo \ opalmodelbuilder \ V2.0 \ OpalModelBuilder \ OpalModelBuilder \ Classes \ CustomClass.vb 10 20 OpalModelBuilder

Как изменить код для решения этой проблемы?

ТИА

...