Klassen : Unterklassen

[llennac]

Hi, ich habe gerade Klassen in VB kennengelernt, ich habe folgenden Code

Public Class player
    Public battlepower As Long
    Public HP As Long
    Public KI As Long


    Public Kamehameha As Byte
    Public Kaioken As Byte
    Public Ball As Byte
    Public SSJ As Byte
    Public gallitgun As Byte


End Class

nich wundern wegen der komischen bezeichnungen, ich mach ein textadenture zum anime dragonball z

ich hätte gern sowas in der art

Public Class player
    Public battlepower As Long
    Public HP As Long
    Public KI As Long

 Namespace tech
    Public Kamehameha As Byte
    Public Kaioken As Byte
    Public Ball As Byte
    Public SSJ As Byte
    Public gallitgun As Byte
end namespace

End Class

so dass ich zb objektname.tech.ball ansprechen könnte

PS. sufu hat nix gebracht

[Christian Marquardt]

Was sind "komische Bezeichnungen"?

Warum erzeugst du keine Klasse tech und nimmst eine Instanz von dieser Klasse in die Klasse player auf?

[llennac]

Wie instanziere ich denn eine klasse? meinst du :

Class xyz

blabla....

class
 bla untegeordnet
end class

end class

zum thema komische bezeichnungen : ich glaub nich jeder hier weiss was ein kamehameha ist

[Christian Marquardt]

ich glaub nich jeder hier weiss was ein kamehameha ist

Ich glaube ich bin für die Beantwortung zu alt...

[das-d]

So funktioniert das
[highlight=vbnet]
Class ABC

Private B as new DEF

Public Property Unterklasse as DEF
Get
return B
End Get
Set(value as DEF)
B = value
End Set

End Class

Public Class DEF
Private Test as String = "Testtext"
End Class

'Nun wäre ein Zugriff im Code etwa so möglich

Dim Test as new ABC

msgbox(ABC.B.Test)
[/highlight]

[llennac]

besten dank