Combobox vides ou pas .

Version imprimable

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:

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 .

17/02/2015, 13h33
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 ?
17/02/2015, 13h41
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:

1 2 If ComboBox & i = "" Then
Fais une liste ou un tableau de comboBox que tu parcours ensuite.
Code:

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.
17/02/2015, 14h16
rv26t
Citation:

Envoyé par 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

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.

Citation:

Envoyé par myNameIsFlo

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:

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

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

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

17/02/2015, 21h19
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:

MessageBox.Show("Aucune donnée n'a été rentrée dans le combobox " & ctrl.Tag, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
17/02/2015, 21h20
Pol63

Citation:

Envoyé par Nicolas6728

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

Bonjour à tous,

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

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

Code:

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 .

19/02/2015, 13h46
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!)