[VB6]: Creare classi, interfacce, ecc.

[alka]

Ciò che non è chiaro è l'utilizzo che tenti di fare dell'oggetto o dell'interfaccia.

Fermo restando che il supporto alla OOP da parte di VB6 è alquanto limitato, l'uso delle interfacce consente di definire uno scheletro di metodi che saranno implementati da ciascun oggetto che si basa su di essa.

Se tu dichiari un'interfaccia e ti aspetti di utilizzare, usando una variabile che appartiene proprio al tipo dell'interfaccia, i metodi specifici della classe a cui appartiene l'oggetto che implementa l'interfaccia, significa che c'è qualche problema nel "disegno" delle classi, cioè nella progettazione e nell'organizzazione dello schema OOP delle classi che devi utilizzare.

La soluzione è semplice: il disegno è sbagliato. Non c'è modo di fare quanto chiedi, perché quanto chiedi non ha senso se si considerano le ragioni per cui sono state create classi e interfacce.

Eventualmente, descrivi l'architettura che vuoi realizzare o i motivi per cui vuoi disporre gli elementi in quel modo; è possibile, magari, trovare un disegno OOP che rispetti le tue esigenze senza però andare in contro alle regole base della programmazione ad oggetti, per quanto sia difficile usare questo paradigma con Visual Basic 6.

Ciao!

[santino83_11_04]

no ho riscritto una fregnaccia...

riassumendo quello che ho cancellato per scrivere una cavolata, che io sappia questo:

dim x as myInterface
set x = new Object_that_Implements_myInterface

e questo:

dim x as new Object_that_Implements_myInterface

dovrebbero consentirmi di usare in entrambi i casi i metodi descritti nell'interfaccia e implementatin Object_that_Implements_myInterface...però non accade,...

vabbeh pazienza...mo faccio dei test e poi ti faccio sapere

[santino83_11_04]

Ok,


Se questa è l'interfaccia:

myInterface:

sub add(obj as string)
'
end sub

sub stampa()
'
end sub

e questa la classe che la implementa:

class1:

Implements myInterface

Private pippo As String

Public Sub remove()
pippo = ""
End Sub

Private Sub Class_Initialize()
pippo = ""
End Sub

Private Sub Class_Terminate()
pippo = ""
End Sub


Private Sub myInterface_add(obj As String)  'implementazione dell'interfaccia
Me.add obj
End Sub

Private Sub myInterface_stampa()             'implementazione dell'interfaccia
Me.stampa
End Sub

Public Sub add(obj As String)
pippo = obj
End Sub

Public Sub stampa()
MsgBox pippo
End Sub

allora questi due codici sono funzionanti:

codice 1:

dim x as myInterface
set x=new class1

x.add "ciccio"
x.stampa



codice 2:

dim x as class1
set x=new class1

x.add "ciccio"
x.stampa

ed è quello che uno si aspetterebbe in una normale POO...in quella di VB6 evidentemente bisogna inventare duplicando un pò di codice...

[alka]

Onestamente, non ho ancora capito il problema...

[santino83_11_04]

Originariamente inviato da alka
Onestamente, non ho ancora capito il problema...

la mia domanda era, in soldoni (ammetto di non essere bravo a spiegarmi): sono io che sbaglio e che duplico codice e metodi oppure non ho capito come VB6 gestisce le interfacce? probabilmente duplicare i metodi in modo che lo stesso lavori sia con l'interfaccia che con l'oggetto specifico è l'unico metodo...

per farti un esempio, ho scritto l'interfaccia....16 proprieta e 10 metodi.... per le 16 proprieta ho dovuto scrivere 64 property get/let, 32 per i metodi propri dell'oggetto e 32 in implementazione a quello dichiarato nell'interfaccia...e 20 metodi...insomma, snervante dal punto di vista di scrittura e poi per rileggere tutto quello che ho scritto ci metto 10 minuti...

stavo solo cercando di capire se c'è un metodo migliore