扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:朱先忠编译 来源:天极网 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) |
濠电姷顣介埀顒€鍟块埀顒€缍婇幃妯诲緞閹邦剛鐣洪梺闈浥堥弲婊勬叏濠婂牊鍋ㄦい鏍ㄧ〒閹藉啴鏌熼悜鈺傛珚鐎规洘宀稿畷鍫曞煛閸屾粍娈搁梻浣筋嚃閸ㄤ即宕㈤弽顐ュС闁挎稑瀚崰鍡樸亜閵堝懎濮┑鈽嗗亝濠㈡ê螞濡ゅ懏鍋傛繛鍡樻尭鐎氬鏌嶈閸撶喎顕i渚婄矗濞撴埃鍋撻柣娑欐崌閺屾稑鈹戦崨顕呮▊缂備焦顨呴惌鍌炵嵁鎼淬劌鐒垫い鎺戝鐎氬銇勯弽銊ф噥缂佽妫濋弻鐔碱敇瑜嶉悘鑼磼鏉堛劎绠為柡灞芥喘閺佹劙宕熼鐘虫緰闂佽崵濮抽梽宥夊垂閽樺)锝夊礋椤栨稑娈滈梺纭呮硾椤洟鍩€椤掆偓閿曪妇妲愰弮鍫濈闁绘劕寮Δ鍛厸闁割偒鍋勯悘锕傛煕鐎n偆澧紒鍌涘笧閹瑰嫰鎼圭憴鍕靛晥闂備礁鎼€氱兘宕归柆宥呯;鐎广儱顦伴崕宥夋煕閺囥劌澧ù鐘趁湁闁挎繂妫楅埢鏇㈡煃瑜滈崜姘跺蓟閵娧勵偨闁绘劕顕埢鏇㈡倵閿濆倹娅囨い蹇涗憾閺屾洟宕遍鐔奉伓