Discussion :

[spamitovic]

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 :

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

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.

[StormimOn]

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 :

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

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

[spamitovic]

cool merci

ça marche merci beaucoup