Visual Basic

anujose wrote:

i don't want to do as a usercontrol...

<code>
Class _MyProperies
 Public Title, Name, etc As String
End Class
</code>

Private C As New Collection<br />
    Property MyProperties(ByVal i As String) As String<br />
        Get<br />
            Return C(i)<br />
        End Get<br />
        Set(ByVal value As String)<br />
            Try<br />
                C.Remove(i)<br />
            Catch ex As Exception<br />
            Finally<br />
                C.Add(value, i)<br />
            End Try<br />
        End Set<br />
    End Property

Public Class Person
    Private _Name As String
    Private _Title As String
 
    Public Property Name As String
    ...
    Public Property Title As String
    ...
End Class

Public Class PersonsCollection
    Implements IList, ICollection, IEnumerable
 
    Private Persons As Person()
    Private PersonsCount As Integer
 
    Public Sub New()
    End Sub
 
    Public Overridable Sub Add(ByVal person As Person)
       ...
    End Sub
 
    ...
End Class

Dim Persons As New List(Of Person)

MartyK2007 wrote:

In this property I have enterd Name once and _Name twice.
now this is fine for one or two properties but when you have 80 of these properties in a class and you need to create many classes then typing it in becomes painfull.

Function Generate(ByVal mc As Collection) As String
        Dim str As String
        For i As Integer = 1 To mc.Count

            str &= "Public Property " & mc(i) & "() As String" * vbCrLf & _
"Get" & vbCrLf & "Return MyDataCol(""" & mc(i) & """)" & vbCrLf & _
"End Get" & vbCrLf & "Set(ByVal value As String)" & vbCrLf & _
"MyDataCol.Remove(""" & mc(i) & """)" & vbCrLf & "MyDataCol.Add(value, """ & mc(i) & """)" & _
vbCrLf & "End Set" & vbCrLf & "End Property" & vbCrLf
        Next

        Return str
    End Function