Discussion :

[Nicolas6728]

Bonjour à tout le forum,

Débutant en visual basic, et j'utilise visual studio 2012, je créer des petits forms sous windows.
Une petite question j'ai essayer de faire une boucle sur 3 combobox. Si une est vide alors il met un msgbox. Mais forcement ca marche pas!!!

Ci-joint le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
 
    Private Property ComboBox As Integer
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim i As Integer
        For i = 1 To 3
            If ComboBox & i = "" Then
                MsgBox("Aucune donnée n' a étais rentrée", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Erreur")
            End If
        Next
 
        TextBox1.Text = "Nom n°1  " & ComboBox1.Text & vbCrLf & "Nom n°2  " & ComboBox2.Text & vbCrLf & "Nom n°3  " & ComboBox3.Text
 
    End Sub
 
End Class

Merci à tous pour vos réponse .

[rv26t]

Bonjour,

Vous avez une solution présentée dans la FAQ : Comment intervenir sur un ensemble de même type de contrôles d'un conteneur ?

[myNameIsFlo]

Que veux tu faire? Consultez le texte d'une comboBox1 (2?, 3?) en concaténant une variable integer avec le signe &? Si oui, ça ne marchera pas

Code :

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

1
2
 
If ComboBox & i = "" Then

Fais une liste ou un tableau de comboBox que tu parcours ensuite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim lst as new list(of combobox)
lst.add(cbx1)
lst.add(cbx2)
lst.add(cbx3)
 
for each cb as combobox in lst
 
if cb.text = string.empty then msg = "hey c'est vide!"
 
endfor

Si tu veux vraiment trouver une combobox par son nom, tu devra parcourir les controls de ton form.

[rv26t]

Que veux tu faire? Consultez le texte d'une comboBox1 (2?, 3?) en concaténant une variable integer avec le signe &? Si oui, ça ne marchera pas

C'est possible avec un DirectCast de la partie fixe du nom du comboBox concaténé avec la variable d'incrémentation passé en ToString, mais il vaut mieux utiliser les listes existantes.

Fais une liste ou un tableau de comboBox que tu parcours ensuite.

Pourquoi créer une liste, puisqu'il en existe déjà une contenant les contrôles. (la propriété Control.Controls : Obtient la collection de contrôles contenus dans le contrôle.)
Il suffit de placer les 3 combobox dans un panel (nommé Panel1) et

Code vb.net :

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

1
2
3
For Each cbo In Panel1.Controls.OfType(Of ComboBox)() 
  ' ...
Next

[Nicolas6728]

Bonjour à tous et merci déjà pour vos réponse.
J'ai réussi à faire ca qui fonctionne!

Code :

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

1
2
3
4
5
For Each ctrl In Me.Controls.OfType(Of ComboBox)()
            If ctrl.Text = "" Then
                MsgBox("Aucune donnée n' a étais rentrée dans le combobox ", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Erreur")
            End If
        Next

J'aurai juste aimé rajouter dans mon msgbox le n° du combobox qui est vide.

Merci d'avance

[rv26t]

Soit tu indiques directement le nom du controle (ctrl.Name), soit tu utilises la propriété Tag (ctrl.Tag) dans laquelle tu places un texte de ton choix.

Code :

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

  MessageBox.Show("Aucune donnée n'a été rentrée dans le combobox " & ctrl.Tag, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)

[Pol63]

ComboBox & i = ""

c'est quand même fou ce que vb laisse écrire par défaut ...


options du projet, mettre option strict on, ca laisse écrire moins de bêtises dans le genre

[Nicolas6728]

Bonjour à tous,

Merci pour vos réponse, ça fonctionne comme je veu.

Je met le code pour les intéressés.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For Each ctrl In Me.Controls.OfType(Of ComboBox)()
 
            If ctrl.Text = "" Then
                ctrl.BackColor = Color.Red  ' colorise le fond
 
                MsgBox("Aucune donnée n'a étais rentrée dans le  " & ctrl.Tag, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Erreur")
 
            Else
                TextBox1.Text = "Nom n°1  " & ComboBox1.Text & vbCrLf & "Nom n°2  " & ComboBox2.Text & vbCrLf & "Nom n°3  " & ComboBox3.Text
            End If
 
        Next
 
    End Sub

Merci encore .

[Adakhum]

Si les personnes qui t'ont aidés ont permis de résoudre ton problème, met celui-ci en résolu Nicolas6728 ! (bouton en bleu tout en bas!)