qadeer37
Well-known member
Public Class CustomerList : Inherits System.Collections.CollectionBase
Public Sub Add(ByVal name As String)
Me.InnerList.Add(name)
End Sub
Public ReadOnly Property items(ByVal i As Integer) As String
Get
Return CType(InnerList.Item(i), String)
End Get
End Property
End Class
Public Class Form1
Dim CList As CustomerList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CList = New CustomerList
CList.Add("Qadeer")
'How to use For Each loop?
MessageBox.Show(CList.items)
Next
End Sub
End Class

Public Sub Add(ByVal name As String)
Me.InnerList.Add(name)
End Sub
Public ReadOnly Property items(ByVal i As Integer) As String
Get
Return CType(InnerList.Item(i), String)
End Get
End Property
End Class
Public Class Form1
Dim CList As CustomerList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CList = New CustomerList
CList.Add("Qadeer")
'How to use For Each loop?
MessageBox.Show(CList.items)
Next
End Sub
End Class