>Salve a tutti,
Ciao!
>ho provato a creare una classe che erediti da
>un'altra. Inoltre, arei sempre bisogno che erediti anche altre
>proprietà di un'altra classe. Il VB mi dice che non si può utilizzare
>due volte l'istruzione Inherits nella strssa classe.
Non è possibile ereditare da due padri.. purtroppo.. 
>ho una casse generale chiamata "cFattureMastro"
io chiamerei la generale "FatturaMastro":
Public Class FatturaMastro
#Region "Campi Privati"
Private _numero As Integer
Private _data As DateTime
Private _importo As Double
#End Region
#Region "Proprietà"
Public ReadOnly Property Numero() As Integer
Get
Return _numero
End Get
End Property
Public ReadOnly Property Data() As DateTime
Get
Return _data
End Get
End Property
Public ReadOnly Property Importo() As Double
Get
Return _importo
End Get
End Property
#End Region
#Region "Costruttori"
Sub New(ByVal Numero As Integer, ByVal Data As DateTime, ByVal Importo As Double)
_numero = Numero
_data = Data
_importo = Importo
End Sub
#End Region
#Region "Metodi"
Public Function TornaNumero(ByVal Prefisso As String)
Return String.Format("{0}\ n. {1}", Prefisso, _numero)
End Function
#End Region
End Class
>Poi ne ho un'altra che è quella specifica dell'applicazione chiamata "cFatture"
la figlia la chiamerei "Fattura"
>dentro a cFatture scrivo
>Inherits cFattureMastro
>Poi vorrei anche che, trattandosi di una classe collection, erediti
>le proprietà delle classi e cioè:
>
>Inherits generic.dictionary(of string, cFattura)
>E mi va in errore.
Eh sì, corretto.. come ti dicevo.. non si può..
Però nel tuo caso, farei una classe collection apposta.. ad esempio:
Public Class Fatture
Inherits Generic.List(Of Fattura)
End Class
Quest'ultima avrà tutti i metodi di una collection. Infatti puoi usarla ad esempio così:
Dim F As Fattura
Dim Fs As New Fatture()
F = New Fattura(1, Date.Now, 100, "Via Rossi 10", "Alessandro Alpi")
Fs.Add(F)
F = New Fattura(2, Date.Now, 200, "Via Verdi 20", "Marco Caruso")
Fs.Add(F)
F = New Fattura(3, Date.Now, 300, "Via Bianchi 30", " David De Giacomi")
Fs.Add(F)
F = New Fattura(4, Date.Now, 400, "Via Roma 40", "Matteo Raumer")
Fs.Add(F)
F = New Fattura(5, Date.Now, 500, "Via Piacenza 50", "Lorenzo Benaglia")
Fs.Add(F)
For Each F In Fs
Response.Write(F.StampaFattura() & "<br />")
Next
>
>Grazie in anticipo.
Di nulla!
Alx81 =)
http://blogs.dotnethell.it/suxstellino