Discussion :

[philguio]

Bonjour à tous
Voila je suis en train de terminer un projet. Et pour l'améliorer il m ereste 2 choses à faire

J'ai 4 combobox qui sont alimentées par une BDD. avec le code suivant

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
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 Dim MyConnexion2 As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\gestionjoueurs.mdb;")
        Dim Mycommand2 As OleDbCommand = MyConnexion2.CreateCommand()
 
        Mycommand2.CommandText = "SELECT DISTINCT IdJoueur,Nom,Prenom FROM T_Joueur,T_GestionGroupPilier WHERE T_Joueur.IdJoueur = T_GestionGroupPilier.IdJoueurPilierF1 ORDER BY Nom "
 
        MyConnexion2.Open()
        Dim myReader2 As OleDbDataReader = Mycommand2.ExecuteReader()
        ToolTip1.SetToolTip(ComboBox1, "Choisissez un pilier")
        ComboBox1.Items.Clear()
 
        Do While myReader2.Read()
 
            strIdentifiant = CStr(myReader2.GetValue(0))
            intLong = strIdentifiant.Length
            strIdentifiant = ""
            If intLong < 4 Then
                Dim i As Integer
                For i = 1 To (5 - intLong)
                    strIdentifiant = strIdentifiant & " "
                Next
                strIdentifiant = strIdentifiant & CStr(myReader2.GetValue(0))
                strNomPrenom = strIdentifiant & " :" & myReader2.GetString(1) & " " & myReader2.GetString(2)
 
            End If
 
            ComboBox1.Items.Add(strNomPrenom)
 
        Loop
        myReader2.Close()
 
        MyConnexion2.Close()

La première chose que je cherche à faire est de remettre le combo avec un affichage vierge si le nom du cb 1 = le nom du cb 2. J'ai déja un message qui apparaît si les 2 noms sont identiques Mon code de comparaison est le suivant

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
20
 
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        Dim MyConnexion2 As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\gestionjoueurs.mdb;")
        Dim Mycommand2 As OleDbCommand = MyConnexion2.CreateCommand()
        Dim idxCombo As Integer
 
        strToto = Mid(Me.ComboBox1.Text, 1, 5)
 
        CO1 = Mid(Me.ComboBox1.Text, 1, 5)
 
        If CO1 = CO2 Then
            MessageBox.Show(" Ce joueur a déja été sélectionné!", "Attention ...", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        If CO1 = CO3 Then
            MessageBox.Show(" Ce joueur a déja été sélectionné!", "Attention ...", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        If CO1 = CO4 Then
            MessageBox.Show(" Ce joueur a déja été sélectionné!", "Attention ...", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If

La deuxième chose que je cherche a faire depuis 5 jours et sans succès est de mettre en couleur rouge les noms des personnes selectionnés dans les combo.
Exemple les noms des 4 combos sont identiques, si je choisi le nom A dans le combo1 je veux que le nom A dans les 3 autres combos soit rouge.


Bon je continue les recherches de mon coté, mais si vous avez une idée je suis preneur.

@+ Phil

[s.n.a.f.u]

La première chose que je cherche à faire est de remettre le combo avec un affichage vierge si le nom du cb 1 = le nom du cb 2.

Bonjour,

Code :

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

cb1.SelectedIndex = -1

[s.n.a.f.u]

La deuxième chose que je cherche a faire depuis 5 jours et sans succès est de mettre en couleur rouge les noms des personnes selectionnés dans les combo.
Exemple les noms des 4 combos sont identiques, si je choisi le nom A dans le combo1 je veux que le nom A dans les 3 autres combos soit rouge.

En gérant un événement "Selection_Changed" sur la combo, tu fais tes tests sur les autres combo et le cas échéant tu alimentes la "Forecolor" à rouge.

[philguio]

merci je vais tester
@+
Phil