Sub et valeurs par défaut d'un paramètre
Bonjour à tous,
J'aimerai faire un truc mais je ne sais pas si c'est possible.
J'ai dans une classe de mon projet, une Sub que je déclare comme ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Public Overloads Sub AddLienMementoPhrasier(ByVal sens As String, ByVal UnikId As Integer, ByVal ParamArray multiId() As Integer)
Dim objDB As New ClassDB
Dim sql As String
Dim id As Integer
sql = "INSERT ALL "
Select Case sens
Case "M"
For Each id In multiId
sql += "INTO INTRA_QUALPL_LIEN_MEMENTO_PHR (MEM_ID, PHR_ID) VALUES (" & UnikId & ", " & id & ") "
Next
Case "P"
For Each id In multiId
sql += "INTO INTRA_QUALPL_LIEN_MEMENTO_PHR (MEM_ID, PHR_ID) VALUES (" & id & ", " & UnikId & ") "
Next
End Select
sql += "SELECT 1 FROM DUAL"
objDB.ExecSQLNonQuery(objDB.CnDint, sql)
End Sub |
Comme vous pouvez le constater le paramètre "sens" peut avoir 2 valeurs différentes. Ce que j'aimerai, c'est que lors de l'appel de cette procédure, dans une page ou un autre classe, quand je dois donner une valeur au paramètre "sens", il me propose une liste de choix des valeurs que je peux lui donner. De la même manière que lorsqu'on déclare une variable en Boolean et qu'on lui donne une valeur, Visual Studio nous propose True ou False on a plus qu'à sélectionné et appuyer sur Entrée.
Je pense que c'est possible à faire mais je n'ai aucune idée sur la façon de procéder.
Merci à ceux qui pourront m'éclairer
