مشکل با Collection ها

[rooshan2008]

با سلام خدمت اساتید و مدایران و دوستان ، سایت برنامه نویس
من یک سوال دارم یا بهتر بگم یک مشکل دارم اگه من رو راهنمایی کنید واقعاً ممنون میشم

من معمولاً زیاد UserControl می نویسم .در نوشتن یکی از این کنترول ها به یک مشکل برخوردم مشکل از اونجا آب میخوره که من یک پروپرتیس ایجاد میکنم از نوع CollectionBase همون طور که میدونیم کلوکسیونها این قابلیت رو دارن که در حالت طراحی هم مقدار دهی یا ایجاد بشن (مثلاً پروپرتیس Columns در دیتا گرید ویو که شما در حالت دیزاین میتونید تعداد ستون ها رو کم یا زاد کنید) من این کار رو انجام میدم و اضافه هم میشه ولی کدی که خود وبی در فایل .Designer خودش ذخیره میکنه خطا ایجاد میکنه من نمونه کدی رو اینجا میزارم :

این کد کلاس هست که برنامتون اضافه کنید :
ColumnColloction.zip
" target="_blank" title="برای دانلود اینجا را کلیک کنید">



این کد یک نمونه است و کد برنامه من نیست ولی این کد هم همون مشکل رو داره
خوب کد بالا کلاس مربوط بود که شما اونو میتونید داخل یک فایل کلاس ذخیره کنید.

حالا یک یوزر کنترول درست کنید و این کد رو به برنامتون اضافه کنید :

Dim a As New TestCollection

Public Property Roshan() As TestCollection

Get

Return a

EndGet

Set(ByVal value As TestCollection)

a = value

End Set

End Property

حالا یوزرکنترول رو روی فرم برنامتون بزارید و به خاصیت Roshan توجه کنید شما میتونید بهش مقدار بدید حالا یک یا چنتا سلول ایجاد کنید و برنامه رو ذخیره کنید الان باید به تعداد سلول های ایجاد شده Syntax error دادخ باشه اگه میشه لطفاً یه کمکی بکنید چون اگه نتونستم این مشکل رو حل کنم

از همه اساتید ممنون متشکرم ....

[Ali_Mor]

داخل یوزرکنترل پروپرتی رو readOnly تعریف کنید

 Dim a As New TestCollection

    Public ReadOnly Property Roshan() As TestCollection

        Get

            Return a

        End Get

    End Property

[rooshan2008]

با سلام خدمت دوست عزیز ، ممنون که جواب دادین این کارو کرده بودم درسته خطا نمیده ولی ذخیره نمیشه اگه دوستان بازم یه نگاه بندازن ممنون میشم

[Ali_Mor]

سلام
بالای پروپرتی از این اتریبیوت استفاده کن

<DesignerSerializationVisibility(DesignerSerializa  tionVisibility.Content)> _

    Public Property Roshan() As TestCollection

        Get

            Return a

        End Get

        Set(ByVal value As TestCollection)

            a = value

        End Set

    End Property

راستی در نمونه کدی که گذاشتی یک مشکل وجود داره، در سازنده کلاس TestCollection باید این رو بنویسی تا این کد کار کنه

Public Sub New()

        MyBase.new("Address")

    End Sub