Vérification des champs

Bonsoir,

J'aimerai faire en sorte que si un objet dans un tableau contient le vide, le signaler grâce à un messagebox puis aller sur cet objet et mettre le focus.

Bon voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9

Dim zones() As String = {txtagence.Text, txtcontact.Text, txtadresse1.Text, txtcap.Text, cmbpays.Text, cmbville.Text, txttel1.Text, txtemail1.Text} For i As Integer = 0 To zones.Length - 1 If zones(i) = "" Then MessageBox.Show("Un champ obligatoire est vide, veuillez le remplir.", "YYY", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If Next

---

Le code marche bien sauf que je ne sais pas comment mettre le focus sur le textbox qui est vide. 8O

Ne passe pas par un tableau de string mais par un tableau de Control. Comme ça tu auras tout ce qu'il te faut.

Quelque chose comme ça (enfin je pense, vu que je fais pas de VB ^^)

Code:

---

1 2 3 4 5 6 7 8

Dim zones() As Control = {txtagence, txtcontact, txtadresse1, txtcap, cmbpays, cmbville, txttel1, txtemail1} For i As Integer = 0 To zones.Length - 1 If zones(i).Text = "" Then MessageBox.Show("Un champ obligatoire est vide, veuillez le remplir.", "YYY", MessageBoxButtons.OK, MessageBoxIcon.Warning) zones(i).Select() Exit Sub End If Next

---

cool merci :ccool:

ça marche merci beaucoup :lol: