Définir un argument Color optionel

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

Citation:

---

Une expression constante est requise

---

en surlignant Color.Blue !

Code:

---

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

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:

---

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

---

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