funzioni overloads

[pietro09]

Esiste un modo di semplificare la scrittura di funzioni overloads come da esempio?

    '--------------------------------------------------------------
    'Stampa una stringa con separatore riga
    '--------------------------------------------------------------
    Public Overloads Sub PrintLn(ByVal x$)
        This.Response.Write(x & "
")
    End Sub
    Public Overloads Sub PrintLn(ByVal x%)
        PrintLn(x.ToString)
    End Sub
    Public Overloads Sub PrintLn(ByVal x&)
        PrintLn(x.ToString)
    End Sub
    Public Overloads Sub PrintLn(ByVal x#)
        PrintLn(x.ToString)
    End Sub
    Public Overloads Sub PrintLn(ByVal x As Object)
        PrintLn(x.ToString)
    End Sub

[Alchimista]

Se fai riferimento sempre ad Object dovrebbe accettarti tutto:

Public Sub PrintLn(ByVal x)
PrintLn(x.ToString)
End Sub

Ma forse non ho capito bene il risultato che vuoi ottenere.

Ciao
'Alchimista'

[pietro09]

Volevo ottenere quello che in c si chiama funzione modello (template). Credo che non esista in basic.
Grazie, Pietro

[Alchimista]

Avevo commesso un errore:

Public Sub PrintLn(Object x)
PrintLn(x.ToString)
End Sub

Lo stesso effetto non puoi ottenerlo con la dichiarazione di "interfaccia"?

Ciao
'Alchimista'

[pietro09]

Originariamente inviato da Alchimista
Avevo commesso un errore:

Public Sub PrintLn(Object x)
PrintLn(x.ToString)
End Sub

Lo stesso effetto non puoi ottenerlo con la dichiarazione di "interfaccia"?

Ciao
'Alchimista'

Non è che potresti farmi un esempio?

[Alchimista]

Ciao,
scusa, avevo inteso male :bubu: l'uso dell'interfaccia nel tuo caso non è utile visto che è un modo per la rappresentazione dei dati e/o funzioni verso l'esterno.

La funzione modello come potevi farla in C non è possibile direttamente in vb (se qualcuno sa come sarei felice pure io di conoscere come )

Rileggendo il tuo esempio, tu vorresti che a qualsiasi tipo di parametro passato venga sempre eseguito il metodo di base o sbaglio?

Potresti *forzare* la conversione dell'oggetto nel generico Object:

'--------------------------------------------------------------
    'Stampa una stringa con separatore riga
    '--------------------------------------------------------------
    Public Overloads Sub PrintLn(x as Object)
        This.Response.Write(x & "
")
    End Sub
    Public Overloads Sub PrintLn(x as string)
        PrintLn(Ctype(x,Object))
    End Sub
    Public Overloads Sub PrintLn(x as integer)
        PrintLn(Ctype(x,Object))
    End Sub
    Public Overloads Sub PrintLn(x as double)
        PrintLn(Ctype(x,Object))
    End Sub
    End Sub

Altro non mi viene in mente ora
Ciao
'Alchimista'

[pietro09]

Grazie