Archivos para 2 junio 2008

Estructura ligera para agrupar parámetros en lugar de una clase


Quiero reemplazar la colección que actualmente usa CatIA con una estructura para encapsular algunas funciones


Public Structure CatDocument

    Public Enum StatusType As Integer
        borrador = 0
        publico = 1
        rechazado = 2
    End Enum

    Public Id As Integer
    Public [Date] As DateTime
    Public [Xml] As XmlDocument
    Public status As StatusType

    Public Sub LoadXml(ByVal strXml As String)
        If [Xml] Is Nothing Then
            [Xml] = New XmlDocument
        End If
        [Xml].LoadXml(strXml)
    End Sub

End Structure

Function test(ByVal s As CatDocument) As CatDocument

    s.LoadXml('<row/>')
    Return s

End Function

Deja un comentario