扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:朱先忠编译 来源:天极网 2007年10月14日
关键字:
在本页阅读全文(共2页)
Module Module1 Sub Main() Dim BrokenBones As TypedCollection(Of OrthoInjury) = New TypedCollection(Of OrthoInjury) BrokenBones.Add(New OrthoInjury(True,"Broken Right Clavicle", "Vicodin; Heals n 8 to 12 weeks")) BrokenBones.Add(New OrthoInjury(True, "Fractured Posterior Rib #5", "Heals in 6 to 8 weeks")) BrokenBones.Add(New OrthoInjury(True, "Fractured Posterior Rib #1", "Heals in 6 to 8 weeks")) Dim injury As OrthoInjury For Each injury In BrokenBones Console.WriteLine("Description: " & injury.Description) Next Console.ReadLine() End Sub End Module Public Class TypedCollection(Of T) Inherits System.Collections.CollectionBase Default Public Property Item(ByVal Index As Integer) As T Get Return CType(List(Index), T) End Get Set(ByVal value As T) List(Index) = value End Set End Property Public Function Add(ByVal value As T) As Integer Return List.Add(value) End Function End Class Public Class OrthoInjury Private FHasXray As Boolean Private FDescription As String Private FPrognosis As String Public Sub New(ByVal HasXray As Boolean, ByVal Description As String, ByVal Prognosis As String) FHasXray = HasXray FDescription = Description FPrognosis = Prognosis End Sub Public Property HasXray() As Boolean Get Return FHasXray End Get Set(ByVal value As Boolean) FHasXray = value End Set End Property Public Property Description() As String Get Return FDescription End Get Set(ByVal value As String) FDescription = value End Set End Property Public Property Prognosis() As String Get Return FPrognosis End Get Set(ByVal value As String) FPrognosis = value End Set End Property End Class |
Dim BrokenBones As System.Collections.Generic.List(Of OrthoInjury) = _ New System.Collections.Generic.List(Of OrthoInjury) |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。