Discussion :

[ghita lay]

Bonjour;
SVP aidez moi, je veux excuter un programme que j'ai déjà exécuté et il marche bien mais le problème que dans la recherche du mot saisie par l'utilisateur je veux qu'il ne fait pas la diffèrence entre majuscule et minuscule.
le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   If row.Cells.Item("clmComponents").Value = txtSearch.Text Then
                rowindex = row.Index.ToString()
                found = True
                Dim Component As String = row.Cells("clmComponents").Value.ToString()
 
                Dim Order As String = row.Cells("clmOrder").Value.ToString()
                MsgBox("-Composant existe : " & Component & "       -Numéro :" & Order, MsgBoxStyle.Information)
 
                Exit For
            End If
        Next
        If Not found Then
            MsgBox("-Composant n'existe pas --> Pousser la carte", MsgBoxStyle.Critical)
        End If

[Sehnsucht]

Sujet déjà traité ici

[ghita lay]

Cela ne fonctionne pas je veux que le texte saisie ne fait pas une différence entre majuscule et minuscule

[François M.]

Comparer les chaines avec String.Equals et pour le 3ème paramétre mettre InvariantCultureIgnoreCase.

[ghita lay]

j'ai trouvé une solution quand l'utilisateur saisie le mot à chercher,il le forcer en majuscule mais le problème que quand je tape le mot il s'écrit de fin du mot ,par exemple quand j'écris la lettre C le curseur revient en arrière.comment je peux résoudre ce problème.

Code :

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

1
2
3
4
Private Sub txtSearch_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSearch.TextChanged
 
        txtSearch.Text = UCase(txtSearch.Text)
    End Sub

[shayw]

Cela ne fonctionne pas ! ah

Code :

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

1
2
3
If String.Compare(row.Cells.Item("clmComponents").Value,txtSearch.Text, True) = 0 Then
  rowindex = row.Index.ToString()
   etc...