Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
TDocumentation dotNet - Documentation.vb

Documentation.vb

 Caricato da: Totem
Scarica il programma completo

  1. Imports System.Text.RegularExpressions
  2.  
  3. Namespace Comments
  4.     Public MustInherit Class DocumentationComment
  5.         Private _Summary As String
  6.         Private _Remarks As String
  7.         Private _See As String
  8.         Private _SeeAlso As String
  9.  
  10.         Public Property Summary() As String
  11.             Get
  12.                 Return _Summary
  13.             End Get
  14.             Set(ByVal Value As String)
  15.                 _Summary = Value
  16.             End Set
  17.         End Property
  18.  
  19.         Public Property Remarks() As String
  20.             Get
  21.                 Return _Remarks
  22.             End Get
  23.             Set(ByVal Value As String)
  24.                 _Remarks = Value
  25.             End Set
  26.         End Property
  27.  
  28.         Public Property See() As String
  29.             Get
  30.                 Return _See
  31.             End Get
  32.             Set(ByVal Value As String)
  33.                 _See = Value
  34.             End Set
  35.         End Property
  36.  
  37.         Public Property SeeAlso() As String
  38.             Get
  39.                 Return _SeeAlso
  40.             End Get
  41.             Set(ByVal Value As String)
  42.                 _SeeAlso = Value
  43.             End Set
  44.         End Property
  45.     End Class
  46.  
  47.     Public Class ParamComment
  48.         Private _ParameterName As String
  49.         Private _ParameterDescription As String
  50.  
  51.         Public Property ParameterName() As String
  52.             Get
  53.                 Return _ParameterName
  54.             End Get
  55.             Set(ByVal Value As String)
  56.                 _ParameterName = Value
  57.             End Set
  58.         End Property
  59.  
  60.         Public Property ParameterDescription() As String
  61.             Get
  62.                 Return _ParameterDescription
  63.             End Get
  64.             Set(ByVal Value As String)
  65.                 _ParameterDescription = Value
  66.             End Set
  67.         End Property
  68.  
  69.         Sub New(ByVal Name As String, ByVal Description As String)
  70.             Me.ParameterName = Name
  71.             Me.ParameterDescription = Description
  72.         End Sub
  73.     End Class
  74.  
  75.     Public Class ParamCommentList
  76.         Inherits List(Of ParamComment)
  77.  
  78.         Public Overloads Sub Add(ByVal Name As String, ByVal Description As String)
  79.             Me.Add(New ParamComment(Name, Description))
  80.         End Sub
  81.     End Class
  82.  
  83.     Public Class GenericComment
  84.         Inherits DocumentationComment
  85.     End Class
  86.  
  87.     Public Class MethodComment
  88.         Inherits DocumentationComment
  89.  
  90.         Private _Returns As String
  91.         Private _TypeParams As ParamCommentList
  92.         Private _Params As ParamCommentList
  93.         Private _Exceptions As ParamCommentList
  94.  
  95.         Public Property Returns() As String
  96.             Get
  97.                 Return _Returns
  98.             End Get
  99.             Set(ByVal Value As String)
  100.                 _Returns = Value
  101.             End Set
  102.         End Property
  103.  
  104.         Public Property TypeParams() As ParamCommentList
  105.             Get
  106.                 Return _TypeParams
  107.             End Get
  108.             Set(ByVal Value As ParamCommentList)
  109.                 _TypeParams = Value
  110.             End Set
  111.         End Property
  112.  
  113.         Public Property Params() As ParamCommentList
  114.             Get
  115.                 Return _Params
  116.             End Get
  117.             Set(ByVal Value As ParamCommentList)
  118.                 _Params = Value
  119.             End Set
  120.         End Property
  121.  
  122.         Public Property Exceptions() As ParamCommentList
  123.             Get
  124.                 Return _Exceptions
  125.             End Get
  126.             Set(ByVal value As ParamCommentList)
  127.                 _Exceptions = value
  128.             End Set
  129.         End Property
  130.  
  131.         Sub New()
  132.             Me.TypeParams = New ParamCommentList
  133.             Me.Params = New ParamCommentList
  134.         End Sub
  135.     End Class
  136.  
  137.     Public Class PropertyComment
  138.         Inherits MethodComment
  139.  
  140.         Private _Value As String
  141.  
  142.         Public Property Value() As String
  143.             Get
  144.                 Return _Value
  145.             End Get
  146.             Set(ByVal Val As String)
  147.                 _Value = Val
  148.             End Set
  149.         End Property
  150.     End Class
  151. End Namespace