I'm trying to count how many items are in a dynamic collection. This is
the
code I have so far.
*** Begin Code ***
Public Class Rule
Private _rulevars As RuleVarsCollection
Private _rulename As String
Public Property Name() As String
Get
Return _rulename
End Get
Set(ByVal value As String)
_rulename = value
End Set
End Property
Public Property VariablesList() As RuleVarsCollection
Get
Return _rulevars
End Get
Set(ByVal value As RuleVarsCollection)
_rulevars = value
End Set
End Property
Public Overrides Function ToString() As String
Return Name.ToString
End Function
Public Sub New(ByVal RuleName As String)
'initialize local variables
_rulevars = New RuleVarsCollection()
_rulename = RuleName
End Sub
End Class
Public Class RuleVar
'define the Variable class here
Private _name As String
Public Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
End Class
Public Class RuleVarsCollection
Inherits System.Collections.CollectionBase
Public Sub Add(ByVal Var1 As RuleVar)
List.Add(Var1)
End Sub
Public Sub Remove(ByVal index As Integer)
'Check to see if there is an item at the supplied index.
If index Count - 1 Or index < 0 Then
System.Windows.Forms.MessageBox.Show("Index not Valid!")
Else
List.RemoveAt(index)
End If
End Sub
Default Public ReadOnly Property item(ByVal index As Integer) As
RuleVar
Get
Return CType(List.Item(index), RuleVar)
End Get
End Property
End Class
*** End Code ***
I want to display how many objects are in the collection when it is
selected
from a listbox
*** Begin Code ***
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
Dim r1 As Rule
r1 = Me.ListBox2.SelectedItem
MsgBox("Number of items in collection: " & CStr(r1.Count))
End Sub
*** End Code ***
I've been told that I need to expose Count in the inherited class, but
I
don't know how or where to do that. I'm very green.
Thanks,
Blake
