Discussion :

[b3401m]

Dans mon projet en VB 2010, j'utilise 2 fonctions dont le code et le nom sont strictement identiques, mais qui diffèrent par le type de données d'un des arguments et de la fonction.
La première utilise et renvoie une combobox : function Toto(strArg as combobox) as combobox.
Lla deuxième utilise et renvoie une listbox.

Est-ce qu'il est possible de faire une surcharge de manière à n'avoir qu'un exemplaire du code et si oui, comment faut-il faire ?

Merci d’avance pour vos réponses

[Invité]

comme paramètre d'entrée et de sortie, utilise le type Object à la place.
Puis, dans ton code, pour savoir si tu as un textbox ou un listbox, tu fais le test suivant :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if TypeOf(strArg) is TextBox Then
 'en entrée, j'ai un objet de type TextBox
else
 'en entrée, j'ai un objet de type ListBox

[b3401m]

Merci pour ta réponse.
Je teste dès que possible.

Bonne journée

[DotNetMatt]

Le type Object peut être une solution, mais ce n'est pas très élégant puisqu'il faudra caster à chaque fois... On peut plutôt préconiser l'utilisation des Generics :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function MonControl(Of T As Control)(ByVal input As T) As T
        ' Ta logique ici et a la fin on retourne le control :
        Return input
End Function

Ensuite pour l'utilisation :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim tb As TextBox = New TextBox()
Dim lb As ListBox = New ListBox()
 
Dim a As TextBox = MonControl(Of TextBox)(tb)
Dim b As ListBox = MonControl(Of ListBox)(lb)

[Pol63]

j'ajouterais qu'on doit pouvoir écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonControl(tb)

car le type peut etre déduit sans le Of

[DotNetMatt]

Effectivement Pol63 on peut aussi passer le type de manière implicite Donc on peut aussi utiliser comme ceci plus simplement :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim a As TextBox = MonControl(tb)
Dim b As ListBox = MonControl(lb)