Surcharger de fonctions comme en c++
Source / Exemple :
'fonctions console
Imports System
Public Class voiture
'Constructeurs surchargés 1
Public Overloads Sub New(ByVal marque As String)
Me.marque = marque
End Sub
'Constructeurs surchargés 2
Public Overloads Sub New(ByVal marque As String, ByVal nom As String)
Me.marque = marque
Me.nom = nom
End Sub
'Constructeurs surchargés 3
Public Overloads Sub new(ByVal marque As String, ByVal nom As String, Byval nbporte as string )
Me.marque = marque
Me.nom = nom
Me.nbporte=nbporte
End Sub
'Declaration des variables publiques de la classe
Public nom as string
Public nbporte as string
Public marque as string
End Class
Public Module MainModule
Sub Main()
'appel des constructeurs
Dim unevoiture As New voiture("renault")
Dim unevoitureplusprecis as New voiture("Renault","Twingo")
Dim unevoitureplusprecisencore as New voiture("Renault","Twingo","5")
'Affichage à l'écran
Console.WriteLine("La voiture 1 est :" & unevoiture.marque)
Console.WriteLine("La voiture 2 est :" & unevoitureplusprecis.marque & " " & unevoitureplusprecis.nom)
Console.WriteLine("La voiture 3 est :" & unevoitureplusprecisencore.marque & " " & unevoitureplusprecisencore.nom & " " & unevoitureplusprecisencore.nbporte & " portes")
Console.Read()
'Vidage des memoires
unevoiture = Nothing
unevoitureplusprecis = Nothing
End Sub
End Module
'Pour compiler :
'vbc /t:exe /main:MainModule /r:system.dll /out:exemple.exe voiture.vb
'Le mettre dans un batch avec une pause a la fin pour voir
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.