文章作者 100test 发表时间 2007:10:10 13:18:31
来源 100Test.Com百考试题网
Class clsA/B Property Name1 as string ... End Property Property Name2 as string ... End Property ...... ...... ...... End Class |
Public Class clscolA/B Inherits System.Collections.CollectionBase Public Function GenerateAson() As clsA/clsB New并返回一个 clsA or clsB 初始化属性的工作可以在这里进行 End Function Public Sub AddSon(ByVal objSon As clsA/clsB) 增加一条新纪录 InnerList.Add(objSon) End Sub Public Sub Sort() 根据某设定的属性对集合进行排序 InnerList.Sort(New clsSortByName) End Sub |