Vérifier si text saisie dans la textbox existe dans un tableauRésolu

Question

Bonsoir, 
mon problème est le suivant :
je voulais vérifier si un mot existe dans un tableau, en l'écrivant dans un textbox 
je voulais que se soit vérifier automatiquement c-à-d à chaque fois que j'écris une lettre dans la Textbox par exemple :
dans le tableau il y a le mot suivant : "Gravier naturel"
Si je tape dans la Textbox : une première lettre "G"
alors rien ne s'affiche car il existe un mot dans le tableau avec la première lettre "G"
Si je tape dans la Textbox : une deuxième lettre "r" (le texte devient "Gr")
alors rien ne s'affiche car il existe un mot dans le tableau avec la première lettre "G" et la deuxième lettre "r"
Si je tape dans la Textbox : une Troisième lettre "i" (le texte devient "Gri")
Un message s'affiche car il le text écrit dans la TextBox n'existe pas ( un mot avec la première lettre "G" , la deuxième lettre "r" et la Troisième lettre "i" (Gri) n'existe pas dans le tableau)
j'ai pris une partie du code de l'un des poste de Kikou93, voici le code que j'ai créer :
Public Class Form1    Dim tableau() As String = {"Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne"}    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged        If TextBox1.Text.Length > 0 Then            For i As Integer = 0 To tableau.Count - 1                If Strings.Left(TextBox1.Text, TextBox1.Text.Length) <> Strings.Left(tableau(i).ToString, TextBox1.Text.Length) Then                    MessageBox.Show("Ce type n'existe pas.", "Avertissement", MessageBoxButtons.OK, MessageBoxIcon.Warning)                End If            Next        End If    End SubEnd Class
Je ne vois pas ou j'ai fait une erreur, quelqu'un pour me dire mon erreur
Merci pour votre aide

ucfoutu · Answer

Bonjour
Juste pour éclairer ma lanterne (je ne connais rien de VB.Net, mais ai certains réflexes) :
que retourne :
 If Strings.Left(TextBox1.Text, TextBox1.Text.Length)
?
Car pour moi (pauvre même pas débutant en VB.Net) , au 1er coup d'oeil, je ne vois aucune logique (si la syntaxe est bonne, ce que j'ignore) qui différencierait le résultat de la propriété TextBox1.text
Mais bon ... je ne connais rien de VB.Net ...

EDIT : pour être très clair et SI TextBox1.Text.Length est comme je le pense le nombre de caractères que contient TextBox1.Text, je me demande comment l'on pourrait penser que tout ce qu'il y a dans une phrase, depuis son début (à gauche) jusqu'à sa fin serait différent de ce qu'est déjà la phrase ..... !!!
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Whismeril · Answer

Bonsoir

ça lit  "Pavidrain" et ça te dit qu'il ne commence pas par G, puis ça lit "Gravier maury" et là ça ne te dit rien, puis ça lit "Calcaire concassé ivoire" et ça te dit qu'il ne commence pas par G, etc...

L'idée serait que tu fasses la recherche complète et qu'ensuite s'il n'y a pas de résultat, tu mettes le message.

Dim tableau() As String = { "Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne" }
			Dim texte As String = "G"
			If tableau.Where(Function(x) x.StartsWith(texte)).Count() = 0 Then
				MessageBox.Show("Y'en a pas")
			End If

Tu peux même afficher le résultat dans une ListBox pour montrer à l'utilisateur ce qu'il peut taper, parce que moi un message à chaque touche pas bonne ça m'agacerait très vite

Dim tableau() As String = { "Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne" }
			Dim texte As String = "G"
			Dim resultat As List(Of String) = tableau.Where(Function(x) x.StartsWith(texte)).ToList()
			If resultat.Count = 0 Then
				MessageBox.Show("Y'en a pas")
			Else
				listBox1.DataSource = resultat
			End If

kikou93 · Answer

Salut Karin.code
je pas le bonjour aussi a vb95 et Whismeril 
je voulais utiliser le code de vb95 dans l'application que je travail sur elle en ce moment même, mais comme il à dit c'est vraiment énervant que à chaque fois que je tape une fausse lettre un message s'affiche, ou l'utilisateur peut ne pas comprendre pourquoi quand il tape une lettre celle-ci ne s'affiche pas car en réalité elle s'efface a la seconde ou elle sera écrit
je viens de trouver ce code et il ma l'aire plus approprié, c'est vrais il ne s'active pas à chaque fois que tu tape une lettre, il s'active a la fin aprés que le contrôle n'a plus le focus 
 Private Sub ComboBox1_Validatiog(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ComboBox1.Validating        If ComboBox1.Items.Contains(ComboBox1.Text) Then            'Action        Else            MessageBox.Show("Ce texte n'appartient pas à la liste", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)            ComboBox1.Text = ""               'ou          ' ComboBox1.Text = ComboBox1.Items(0).ToString        End If        End Sub

Karin.code · Answer

Merci à Whismeril, Ucfoutu, Vb95 et Kikou93 de m'avoir aider a résoudre mon problème
Merci Beaucoup

Vérifier si text saisie dans la textbox existe dans un tableau

4 réponses

Votre réponse

Discussions similaires