zelf een 'type' maken

[rowano]

hallo,
misschien is de titel niet helemaal duidelijk maar dit is wat ik zou willen weten:
ik heb een aantal classen zoals Cirkel, Lijn, Driehoek, etc
maar ik wil alles een beetje ordenen en het samenvoegen een 1 hoofdclass: Vormen
maar ik wil niet zoiets krijgen:
Vormen.Lijn.startpunt maar Vormen.startpunt
Dus met een type ( TypeOf Vormen1 Is Lijn )
net als met control ( If TypeOf DataGridView1 Is DataGridView Then)

ik hoop dat het duidelijk is, zo niet, zal ik het verder uitleggen...

alvast bedankt

mvg rowano

 

[mark199]

TypeOf gebruik je als je niet weet met wat voor type object je te maken hebben. Wat jij wilt heeft daar niets mee te maken. Het voorbeeld wat jij geeft "Vormen.Lijn.startpunt" Krijg je alleen als je in vormen een property van het type Lijn gaat toevoegen. En dat is nu precies hetgeen je niet goed doet.

In Vormen maak je de properties aan die zowel een driehoek, vierkant, lijn etc gemeen hebben. Vervolgens inherit de class bv Driehoek van de class Vormen.

Public Class Voorbeeld

    Private Sub Test()

        Dim driehoek As New Driehoek
        driehoek.Diameter = 10
        driehoek.Kleur = "geel"
        driehoek.StartPunt = "test"


        Dim lijn As New Lijn
        lijn.StartPunt = "geen idee"
        lijn.Kleur = "Oranje"
        lijn.IsDubbel = True
        lijn.LengteLijn = 10

        Dim 
    End Sub

End Class

Public Class Vorm
    Public Property StartPunt As String
    Public Property Kleur As String

End Class
Public Class Driehoek
    Inherits Vorm
    Public Property Diameter As Decimal
End Class
Public Class Lijn
    Inherits Vorm

    Public Property LengteLijn As Integer
    Public Property IsDubbel As Boolean
End Class

 

[rowano]

hallo,

heel erg bedankt, het was precies wat ik zocht:thumb:
ik dacht eerst dat mijn vraag misschien te onduidelijk was, maar dus toch:d

mvg rowano