dotNETportal.cz

Dobrý den, jak lze udělat aby např. vlastnost měla podvlasnost. Tak že potom napíšu:

Dim a as new trida
a.Vlastnost = "nic"
a.Vlastnost.Info = "Taky nic"

Díky předem.

Ondra.

Tak, že daná vlastnost bude typu třída nebo struktura, která bude obsahovat nějaké členy (vlastnosti nebo proměnné).

Můžu poprosit o ukázku? Díky.

Příklad třídy, která má veřejnou strukturu a jednu podtřídu.

Public Class Class1

    Public Structure Vlastnost
        Public Podvlastnost1 As String
        Public Podvlastnost2 As Integer
    End Structure


    Public Class Podtrida
        Public VlastnostPodtridy As Integer
    End Class

End Class

a její "použití", resp. přistupování k vlastnostem

        Dim mojeTrida As New Class1
        Dim mojeVlastnost As Class1.Vlastnost
        mojeVlastnost.Podvlastnost1 = "AHOJ"
        Dim mojePodtrida As New Class1.Podtrida
        mojePodtrida.VlastnostPodtridy = 1

Public Class Employee
  Private _name As String
  Public Property Name As String
    Get
      Return _name
    End Get
    Set (value As String)
      _name = value
    End Set
  End Property
End Class

Public Class Contract
  Private _description As String
  Private _worker As Employee
  Public Sub New(worker As Employee)
    _worker = worker
  End Sub
  Public Property Description As String
    Get
      Return _description
    End Get
    Set (value As String)
      _description = value
    End Set
  End Property
  Public ReadOnly Property Worker As Employee
    Get
      Return _worker
    End Get
  End Property
End Class

Dim worker As New Employee With { .Name = "Novák" }
Dim task As New Contract(worker)
task.Description = "Implementace zabezpečení komunikace"
task.Worker.Name = "Jan Novák"