Function Triple(ByVal I As Integer) As Integer
E la si potrà richiamare da qualsiasi variabile Integer:
'Un intero Dim I As Integer = 80 Dim T As Integer 'T diventa il triplo di I T = I.Triple()
Ecco un esempio:
Module Module1 'Specifica l'attributo Extension: questa funzione sarà 'un'estensione della classe String, poiché accetta 'un unico parametro String <Runtime.CompilerServices.Extension()> _ Public Function Reverse(ByVal S As String) As String 'Questa funzione restituisce una stringa 'invertita Dim Result As String = "" 'Parte dall'ultimo carattere e, decrescendo, 'arriva fino al primo, accondandolo alla 'stringa risultato For I As Int16 = S.Length - 1 To 0 Step -1 Result &= S(I) Next Return Result End Function Sub Main() 'Una nuova stringa Dim Str As String = "Questa stringa verrà invertita." 'Stampa la stringa normale Console.WriteLine(Str) 'Richiama la funzione Reverse, che grazie all'attributo 'Extension, può essere richiamato dalla stringa 'come se fosse una funzione d'istanza. Console.WriteLine(Str.Reverse) Console.ReadKey() End Sub End Module
Nell'IntelliSense, i metodi Estensibili hanno la stessa icona di qualunque altro metodo, ma possiedono una freccia blu rivolta verso il basso nell'angolo inferiore destro.
Aggiungi un commento