Gestire Funzioni come oggetti
Funzioni e Procedure, presenti sia in Moduli o in Classi principali sia in Moduli o Classi secondarie specifiche, possono essere gestite e chiamate mediante la Classe Object. [nota 1]
Le Funzioni, da invocare mediante il metodo "Object.Call()" e specificate con il loro nome identificatore, come stringa, nel suo secondo parametro, devono essere dichiarate come Pubbliche.
Indice
Funzioni e Procedure poste all'interno della medesima Classe o Modulo della funzione chiamante
Si tratta di assegnare il nome identificativo della Classe principale, dunque FMain oppure Me, ad una variabile di tipo Oggetto, con la quale effettuare la chiamata della Funzione con il Metodo "Object.Clall()" .
Esempio in ambiente grafico
Mostriamo un semplice esempio con applicazione in ambiente grafico:
Public Sub Form_Open() Dim i As Integer Dim ob As Object ob = FMain ' E' possibile usare anche "Me" anziché FMain i = Object.Call(ob, "Somma", [3, 4]) Print i End Public Function Somma(a As Integer, b As Integer) As Integer ' <--- La Funzione deve essere dichiarata come "Pubblica" Dim i As Integer i = a + b Return i End
Va fatto notare che il 3° parametro formale del Metodo "Object.Call()" richiede comunque che il tipo di dato o l'Oggetto passato sia ridotto a un array, e ciò anche se esso è già un array. In tal senso dunque, se si passa al 3° argomento un array, bisognerà inserire la variabile di tale Oggetto array nelle parentesi quadre per renderlo così un array di array.
Esempio con applicazione a riga di comando
Nel caso di applicazione a riga di comando alla variabile di tipo Oggetto andrà assegnata la parola chiave "Me".
Mostriamo un semplice esempio:
Public Sub Main() Dim i As Integer i = Object.Call(Me, "Somma", [3, 4]) Print i End Public Function Somma(a As Integer, b As Integer) As Integer ' <--- La Funzione deve essere dichiarata come "Pubblica" Dim i As Integer i = a + b Return i End
Vediamo un altro esempio:
Public Sub Main() Dim ob As Object Dim ris As Integer ob = Me ris = PrimaFunzione(2, ob) Print ris End Private Function PrimaFunzione(i As Integer, fnz As Object) As Integer Dim n As Integer Dim v As Variant n = i * 100 v = Object.Call(fnz, "Funzione_Chiamata", [n]) Return CInt(v) End Public Function Funzione_Chiamata(c As Integer) As Integer Return c * 100 End
Funzioni e Procedure poste in altra Classe o Modulo
Vediamo ora il caso in cui la Funzione da richiamare, sia posta in una Classe o in un Modulo diverso da quelli principali. In ogni caso alle rispettive variabili di tipo Oggetto dovranno essere assegnati i Moduli e le Classi secondarie.
Esempio in ambiente grafico
In un'applicazione in ambiente grafico il Modulo o la Classe specifica deve avere, come intestazione, la parola chiave "Create". Inoltre, le Funzioni e le Procedure, presenti in Moduli o in Classi specifiche, saranno rappresentate dal metodo speciale _call(), che viene appunto dichiarato quando l'oggetto è usato per richiamare una funzione.
Le Funzioni e Procedure presenti in una Classe specifica possono essere chiamate anche mediante il metodo Object.Call(). In tal caso non si utilizzerà il metodo speciale _call() . La chiamata di Funzioni e Procedure possono essere effettuate con il metodo Object.Call() anche se esse sono presenti in un Modulo; ma in tal caso non deve essere presente nel Modulo la parola chiave "Create".
Mostriamo un esempio, nel quale si avrà un applicativo composto anche da un Modulo e da una Classe specifica, ciascuno contenente una funzione.
Il Modulo, che chiamaremo Module1, sarà così scritto:
Create Public Function _call(i As Integer) As Integer Return i * 10 End
La Classe specifica, che chiameremo Class1, sarà così scritta:
Create Public Function _call(s As String) As String Return s & " 10 = " End Public Procedure ClSub() Print "Procedura chiamata con 'Object.Call()'" End
Mentre la Classe principale dell'applicativo sarà la seguente:
Public Sub Form_Open()
Chiamata(Class1, Module1)
End
Public Procedure Chiamata(obCl As Object, obMod As Object)
Dim i As Integer
Dim s As String
s = obCl("7 x")
i = obMod(7)
Print s; i
' Chiamata di Funzione qui con il metodo "Object.Call()":
Object.Call(obCl, "ClSub", Null)
End
Esempio con applicazione a riga di comando
In un'applicazione a riga di comando, invece, il Modulo secondario, contenente la Funzione da richiamare, non necessita della parola chiave Create. Inoltre, nel Modulo principale alla variabile di tipo Oggetto andrà assegnato il Modulo secondario.
Mostriamo un esempio, nel quale il Modulo, assegnato alla variabile di tipo Oggetto e contenente la Funzione da richiamare, sia il seguente:
Public Function Somma(a As Integer, b As Integer) As Integer ' <--- La Funzione deve essere dichiarata come "Pubblica" Dim i As Integer i = a + b Return i End
Mentre Il Modulo principale è il seguente:
Public Sub Main() Dim i As Integer Dim ob As Object ob = Module1 i = Object.Call(ob, "Somma", [3, 4]) Print i End
Nel caso, invece, si abbia una Classe secondaria, sarà necessario semplicemente aggiungere all'interno di detta Classe specifica secondaria la parola chiave Create.
Supponiamo che la Classe secondaria sia chiamata "Class1", e sia la seguente:
Create Public Function Somma(a As Integer, b As Integer) As Integer ' <--- La Funzione deve essere dichiarata come "Pubblica" Dim i As Integer i = a + b Return i End
Mentre Il Modulo principale è il seguente:
Public Sub Main() Dim i As Integer Dim ob As Object ob = Class1 i = Object.Call(ob, "Somma", [3, 4]) Print i End
Note
[1] Vedere anche queste pagine analoghe:
