Discussion :

[xni70]

Bonjour,

J'aimerais définir une fonction avec un argument optional Color (System.Drawing) en affectant une valeur par défaut a cet argument s'il n'est pas utilisé. J'essaye le code suivant mais l'EDI VS2010 me renvoie le message d'erreur

Une expression constante est requise

en surlignant Color.Blue !

Code :

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

1
2
3
4
    Sub SetLabel(ByRef lblLabel As Label, ByVal sText As String, Optional ByVal oColor As System.Drawing.Color = Color.Blue)
        lblLabel.Text = sText
        lblLabel.ForeColor = oColor
    End Sub

Auriez vous une idée pour résoudre cette question ?
Merci. Xavier

[tomlev]

Comme le dit le message d'erreur, les valeurs par défaut des paramètres doivent être des constantes, or Color.Blue est une propriété.

Une autre solution est d'utiliser la surcharge de méthode : tu crées une méthode avec le paramètre, et une sans le paramètre :

Code :

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

1
2
3
4
5
6
7
8
    Sub SetLabel(ByRef lblLabel As Label, ByVal sText As String, ByVal oColor As System.Drawing.Color)
        lblLabel.Text = sText
        lblLabel.ForeColor = oColor
    End Sub
 
    Sub SetLabel(ByRef lblLabel As Label, ByVal sText As String)
        SetLabel(lblLabel, sText, Color.Blue)
    End Sub

[xni70]

Merci pour cette réponse et cette solution. Cela m'éclaire effectivement, je ne comprenais pas pourquoi Color.Blue ne renvoyait pas une constante. Je viens de VBA/VB6 et j'utilisais vbBlue.
En réfléchissant a posteriori j'aurais peut être eu la possibilité d'utiliser un argument iColor as integer = Color.Blue.ToArgb et au sein de la fonction revenir a Color avec Color.FromArgb(iColor) mais la solution que tu proposes est plus élégante. Merci encore. Xavier