Creare e utilizzare classi dentro classi

venerdì 27 aprile 2007 - 16.43

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Ghitano Profilo | Newbie

35 messaggi | Data Invio: ven 27 apr 2007 - 16:43

Salve a tutti
ho creato una classe ArticoloMagazzino
con diverse proprietà e funzioni (es: Salva_Articolo, etc...)
vorrei inserire al suo interno una "sottoclasse" con i campi di ciascun record
in rapporto uno-molti

dim MyArt as new ArticoloMagazzino(IDArticolo)

dim DescrizioneArticolo as string, QuMagazzino as Short

DescrizioneArticolo = MyArt.Descrizione
QuMagazzino = MyArt.Quantita
dove descrizione e quantita sono proprietà della classe
e fin qui ci siamo

se io voglio avere una sottoclasse per gestire ulteriori proprietà della classe articolo?
es:

MyArt.Fornitore("Tizio").PrezzoAcquisto
MyArt.Fornitore("Tizio").Sconto
MyArt.Fornitore("Tizio").ModalitaPagamento

Ghitano BitBoys

Wamba Profilo | Expert

722 messaggi | Data Invio: ven 27 apr 2007 - 17:38

>Salve a tutti
>ho creato una classe ArticoloMagazzino
>con diverse proprietà e funzioni (es: Salva_Articolo, etc...)
>vorrei inserire al suo interno una "sottoclasse" con i campi
>di ciascun record
>in rapporto uno-molti
>
>dim MyArt as new ArticoloMagazzino(IDArticolo)
>
>dim DescrizioneArticolo as string, QuMagazzino as Short
>
>DescrizioneArticolo = MyArt.Descrizione
>QuMagazzino = MyArt.Quantita
>dove descrizione e quantita sono proprietà della classe
>e fin qui ci siamo
>
>se io voglio avere una sottoclasse per gestire ulteriori proprietà
>della classe articolo?
>es:
>
>MyArt.Fornitore("Tizio").PrezzoAcquisto
>MyArt.Fornitore("Tizio").Sconto
>MyArt.Fornitore("Tizio").ModalitaPagamento
>
>
>
>
>
>Ghitano BitBoys

devi usare le collection.
quello che cercavi di fare è una coppia nome-valore, dove il è in realtà l'oggetto del tipo che ti serve ovvero quella che chiami sotto-classe.

Ho usato anche i generics se non li conosci puoi fidarti o , molto meglio, andarteli a vedere.

Ti posto un codice veloce per una console.

sperto ti sia utile,
Ciao Wamba

Module Module1

Sub Main()
Dim Art As New Articolo
Art.Prop1 = "Prop1"
Art.Prop2 = "Prop2"

Dim Fornitore1 As New clsFornitore
Fornitore1.Val1 = "aaa"
Fornitore1.Val2 = "bbb"
Art.Fornitori.Add("Primo", Fornitore1)

Dim Fornitore2 As New clsFornitore
Fornitore2.Val1 = "ccc"
Fornitore2.Val2 = "ddd"

Art.Fornitori.Add("Secondo", Fornitore2)

Console.WriteLine(Art.Fornitori("Secondo").Val1)
Console.ReadLine()
End Sub

Public Class Articolo
Public Prop1 As String
Public Prop2 As String
Public Fornitori As New Dictionary(Of String, clsFornitore)
End Class

Public Class clsFornitore
Public Val1 As String
Public Val2 As String
End Class

End Module

-----------------------------------------------------------
Solo chi ha il Caos dentro può generare una stella danzante
Wamba

Ghitano Profilo | Newbie

35 messaggi | Data Invio: ven 27 apr 2007 - 18:31

grazie
mi spulcerò ben benino questo argomento
Ghitano BitBoys

Wamba Profilo | Expert

722 messaggi | Data Invio: sab 28 apr 2007 - 18:22

di niente figurati se hai bisogno chiedi pure.
Wamba
-----------------------------------------------------------
Solo chi ha il Caos dentro può generare una stella danzante
Wamba

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !