Gerarchia classi

Public Class clsArt
#Region "Variabili private"
  Private mArt As String
  Private mDescr As String
  Private mImbQta As Integer
  Private mGruppo As String

  ''' <summary>
  ''' Definizione codice articolo
  ''' </summary>
  Public Property codArt() As String
    Get
      Return mArt
    End Get
    Set(ByVal value As String)
      mArt = value
    End Set
  End Property

  Public Property gruppo() As String
    Get
      Return mGruppo
    End Get
    Set(ByVal value As String)
      mGruppo = value
    End Set
  End Property
#End Region
End Class

Public Class clsMagaz
  Private mArt As String
  Private mDescr As String
  Private mImbQta As Integer
  Public articolo As New clsArt

  ''' <summary>
  ''' Proprietà
  ''' </summary>
  Property descr() As String
    Get
      Return mDescr
    End Get
    Set(ByVal value As String)
      mDescr = value
    End Set
  End Property
End Class

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra