Visual Basic

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

Dim ColumnButton As New DataGridViewButtonColumn<br />
columnButton.headertext="Your Heading"<br />
        DataGridView1.Columns.Add(columnButton)

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick<br />
   If e.ColumnIndex = 5 Then<br />
msgbox "Button Type column of Datagridview is clicked"<br />
   endif<br />
<br />
end sub