VBNet - Форум - Ошибка контрола

Вопрос: Ошибка контрола Добавлено: 24.11.06 21:25

Автор вопроса: popzow

А в чем ошибка я и сам не знаю: Как мне ее исправить помогите пожайлуста.

Public Class Class1
    Inherits System.Windows.Forms.ComboBox
    Protected CItemsXList As New ItemsXList
    <System.ComponentModel.Description("ItemsX")> _
    Public Property ItemsXList() As ItemsXList
        Get
            Return CItemsXList
        End Get
        Set(ByVal Value As ItemsXList)
            CItemsXList = Value
        End Set
    End Property
End Class

Public Class ComboItem
    Protected yItem As String
    Protected yColor As Color = Color.White
    ' Der Standardkonstruktor muss existieren
    Public Sub New()
    End Sub
    Public Sub New(ByVal nItem As String, ByVal nColor As Color)
        Me.yItem = nItem
        Me.yColor = nColor
    End Sub
    Public Property nItem() As String
        Get
            Return yItem
        End Get
        Set(ByVal Value As String)
            yItem = Value
        End Set
    End Property
    Public Property nColor() As Color
        Get
            Return yColor
        End Get
        Set(ByVal Value As Color)
            yColor = Value
        End Set
    End Property
End Class

Public Class ItemsXList
    Inherits System.Collections.CollectionBase
    Public Sub Add(ByVal employee As ComboItem)
        List.Add(employee)
    End Sub
    Public Sub Remove(ByVal index As Integer)
        If index > Count - 1 Or index < 0 Then
            System.Windows.Forms.MessageBox.Show("Index not valid!")
        Else
            List.RemoveAt(index)
        End If
    End Sub
    Public ReadOnly Property Item(ByVal index As Integer) As ComboItem
        Get
            Return CType(List.Item(index), ComboItem)
        End Get
    End Property
End Class

Я пример поместил сдесь:
http://rapidshare.com/files/4619676/Neuer_Ordner__4_.rar.html
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #1	Добавлено: 24.11.06 21:48
	Должно быть так: ....... Protected CItemsXList As New ItemsXList <System.ComponentModel.Description("ItemsX", _ System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _ Public Property ItemsXList() As ItemsXList ....... В противном случае дизайнер не будет знать, что с твоим новым свойством делать.. отсюда и ошибка.. Ответить

Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #2	Добавлено: 24.11.06 21:52
	И импортируй System.ComponentModel.. а то код читать невозможно... (( Ответить

Номер ответа: 3 Автор ответа: popzow Вопросов: 6 Ответов: 20	Профиль \| \| #3	Добавлено: 24.11.06 22:07
	Почемутo сo значком > ошибка выходит DesignerSerializationVisibility.Content)> Ответить

Номер ответа: 4 Автор ответа: popzow Вопросов: 6 Ответов: 20	Профиль \| \| #4	Добавлено: 24.11.06 22:10
	А нашел спасибо!!! Ответить

Страница: 1 |