Vérifier si text saisie dans la textbox existe dans un tableau [Résolu]

Question

Posez votre question Signaler

Vérifier si text saisie dans la textbox existe dans un tableau [Résolu]

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Dernière intervention: 16 janvier 2018

- 22 nov. 2016 à 19:55 - Dernière réponse : Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Dernière intervention: 16 janvier 2018

- 25 nov. 2016 à 14:03

VB.NET Posez votre question Signaler

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 Sub
End Class

Je ne vois pas ou j'ai fait une erreur, quelqu'un pour me dire mon erreur
Merci pour votre aide

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

4 réponses

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

Modifié par ucfoutu le 22/11/2016 à 20:37

0

Merci

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.

Afficher les 19 commentaires

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1725
Date d'inscription: samedi 11 janvier 2014
Dernière intervention: 11 décembre 2018

> Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 23 nov. 2016 à 15:21

Bonjour Whismeril
Bien vu le KeyPress

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Dernière intervention: 24 septembre 2018

> Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 23 nov. 2016 à 17:01

Salut Whismeril
merci pour ton aide, le code fonctionne très bien
je ne veux pas exagérer mais juste une dernière chose
au lieu d'utiliser un tableau je préfère utiliser la ListItems de la ComboBox, car la liste sera mise à jour a chaque fois, je me trompe peut-être mais on ne peut pas mise à jour un tableau de plus un tableau peut contenir un grand nombre de variable à des limites (je ne me souviens pas combien)
j'ai essayer avec cette méthode, est-ce Que C'est Juste?

 Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles ComboBox1.KeyPress
        Dim tableau() As String
        ReDim tableau(0 To ComboBox1.Items.Count - 1)
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            tableau(i) = ComboBox1.Items(i).ToString
        Next
        Dim texte As String = ComboBox1.Text + Convert.ToString(e.KeyChar)
        Dim resultat As List(Of String) = tableau.Where(Function(x) x.StartsWith(texte)).ToList()
        If resultat.Count = 0 Then
            e.Handled = True 'signifie que l'on a traité le keypress, donc la touche n'est pas validée
        Else
            ListBox1.DataSource = resultat
        End If
    End Sub

Les inconvénient que j'ai remarqué dans ton code :
1er mot je je ne peux pas utiliser la touche Backspace
2 eme mot je dois taper la lettre deux fois pour quel s'affiche dans la ComboBox

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 23 nov. 2016 à 17:43

Bon,
j'ai l'impression de tout le temps dire la même chose.
Un contrôle, n'a pas vocation à être une source de données, il y a des collections (le tableau en est une) ou les bases de données.

Le rôle d'un contrôle est d'afficher le contenu d'une source de données et d'en assurer la mise à jour.
Comme tu le dis le tableau est figé en nombre d'items, contrairement à la grande majorité des collections, l'une des plus simples à utiliser est la List.

Donc on charge une List

		Private liste As New List(Of String)() From {"Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne"}
		End Sub

A un endroit judicieux, on binde la List sur le combobox.

            comboBox1.DataSource = liste

Enfin, dans le Keypress, on travaille avec la List, après s'être affranchi des touches de contrôles

		Private Sub comboBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)

			If Char.IsControl(e.KeyChar) Then 'si c'est une touche de contrôle, on sort
				Return
			End If

			Dim texte As String = comboBox1.Text + Convert.ToString(e.KeyChar)
			If Not liste.Any(Function(x) x.StartsWith(texte)) Then
				e.Handled = True
			End If

Ça mérite d'être améliorer, si tout ou partie du texte est sélectionné le futur texte n'est pas texte actuel + touche tapée. Je te laisse chercher un peu avec SelectedText, SelectionLength et SelectionStart.

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Dernière intervention: 24 septembre 2018

> Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 23 nov. 2016 à 18:30

Resalut Whismeril,
Un contrôle, n'a pas vocation à être une source de données, il y a des collections (le tableau en est une) ou les bases de données.
Le rôle d'un contrôle est d'afficher le contenu d'une source de données et d'en assurer la mise à jour.

dit comme ça ça parait plus logique

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

> kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Dernière intervention: 24 septembre 2018

- 23 nov. 2016 à 18:31

J'essaye de ne pas écrire trop de conneries en général....

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Dernière intervention: 24 septembre 2018

24 nov. 2016 à 19:33

0

Merci

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

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 24 nov. 2016 à 21:12

Bonsoir

le truc c'est que l'on a répondu au besoin de Karin.Code.

Je suis d'accord, en tant qu'utilisateur ne pas comprendre pourquoi la lettre que je tapes n'apparait pas est frustrant, alors qu'avoir un message à chaque touche fausse est agaçant.

Mais ce que tu proposes ne me plait pas non plus, une fois que j'ai tout tapé ça me dit "eh ben non!!!".

Il faut savoir être efficace donc informer clairement aussitôt qu'une touche est fausse sans être bloquant (la message box), c'est pourquoi j'ai proposé plus haut deux options qui ont général un bon retour utilisateur:

une listBox ou apparaissent les mots encore possible avec la saisie en cours, ça a l'avantage que l'on peut faire la recherche sur tout le corps du texte, par exemple, si je veux le Gravier palvdecor, sachant qu'il y a plusieurs graviers, je peux faire la recherche sur palvdecor.
L'autocomplétion, j'ai mis un lien vers un tuto plus haut.

Ces 2 options me semblent plus en phase avec ton besoin, qui je le rappelle n'est pas celui de Karin.Code.

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Dernière intervention: 24 septembre 2018

> Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 24 nov. 2016 à 22:40

Bonsoir Whismeril,
Je m'excuse si me suis mal exprimé, mais je n'ai pas dit que c'était la meilleur solution, ce code peut être un plus pour le code que tu à mentionné plus haut
par exemple si en fait copier/coller d'un mot qui n'est pas dans la liste il ne sera pas effacer ou quand il efface la dernière lettre il reste le mot incomplèt, est que l'utilisateur passe à un autre contrôle ou clique sur la touche Entrer (avec le code suivant):
Private Sub ComboBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
If e.KeyCode = Keys.Enter Then 'Si en clique sur la touche Entrer
'Action
End If
End Sub
un message s'affiche
on peut utiliser le code que j'ai mentionné plus haut pour éviter les erreur

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Dernière intervention: 16 janvier 2018

25 nov. 2016 à 14:03

0

Merci

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

Votre réponse

Répondre au sujet

Posez votre question

Bonsoir ucfoutu,
Merci pour m'avoir répondu
C'est vrais j'ai fait une gros faut (que même un débutant ne le ferais pas)
dans ce qu'a la il y a pas de différence entre
TextBox1.Text
et
Strings.Left(TextBox1.Text, TextBox1.Text.Length)

si je voulais par exemple vérifier si les trois première lettre d'un long mot que se trouve dans la TextBox existe dans le tableau, cette méthode serait juste
Bonsoir UC, je n'avais pas réactualisé la page, avant de poster ma réponse.
La propriété Length retourne bien le nombre de caractères d'un string.
Donc effectivement ce bout de code, retourne lui même.
En plus String(sans s).Left n'est pas du VB.Net mais un import de VB6.
je me trompe peut être mais normalement pour vérifier si un code est un code vb.net ou vb6 on ajoute
Option Explicit On
Option Strict On
Non ça n'est pas ça, il faut activer ces options pour se forcer à utiliser de bonnes pratiques, mais pour l'import VB6, c'est dans les références

Voici une capture pour VS2013
Bonsoir Karin.code
Option Explicit et Option Strict n'ont rien à voir avec le fait que le code soit VB Net et VB 6
1) Option Explicit t'oblige à déclarer toutes tes variables
2) Option Strict t'interdit de convertir implicitement un type de variable en un autre

Par contre pour éviter de mettre du pseudo code Vb 6 dans un projet VB Net tu fais ainsi :
1) tu vas dans Propriétés de ton projet
2) tu cliques dans Références
3) tu décoches Microsoft VisualBasic dans la liste en bas

Ceci fait que ton projet ne contient plus la référence à Vb 6 et ne peut plus utiliser les instructions et fonctions de VB 6 et que tu es obligée de n'utiliser que des instructions et fonctions VB Net

Prends le chaine "Microsoft VisualBasic"
=

Dim chaine as String = "Microsoft VisualBasic"
Dim chnleft1 as String = Left(chaine,9) ' c'est de l'Import VB 6
Dim chnleft2 as String = chaine.Sustring(0,9) ' c'est du vrai VB Net

Les 2 donnent comme résultat "Microsoft" et sont corrects . Mais pourquoi mettre du VB 6 alors que l'on programme en VB Net ? C'est comme si on avait une moto Harley Davidson avec un moteur de mobylette !

Pour ce code

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
For i As Integer = 0 To ComboBox1.Items.Count - 1
If ComboBox1.Items(i).Where(Function(x) x.StartsWith(ComboBox1.Text)= True).Count = 0 Then
'Action
End If
Next
End Sub

Il manque le " = True" dans ton code: la fonction doit avoir un signe de comparaison (= ou > ou < ou etc.....) et une valeur à comparer sinon ce n'est pas une fonction
Merci Vb95 pour l'explication je comprend mieux

quand tu dis : la fonction doit avoir un signe de comparaison (= ou > ou < ou etc.....) et une valeur à comparer sinon ce n'est pas une fonction

Ce n'est pas le cas ici
ComboBox1.Items(i).Where(Function(x) x.StartsWith(ComboBox1.Text)= True).Count = 0

désolé j'ai pas compris cette partie
REsalut Karin.code
Ta ligne de code revient à ceci

' ici LaFonction est en français et non en langage vb net
ComboBox1.Items(i).Where(Function(x) LaFonction).Count = 0

La fonction est : est-ce que le fait que l'item commence avec la même chaine que la combobox EST Vraie ?
le EST signifie égal
si tu remplaces "LaFonction"par "x.StartsWith(ComboBox1.Text)= True" cela va marcher

Dans ton premier code le = True n'y était pas ( voir message n° 5)
Salut vb95
Désolé de te déranger encore une fois
j'ai fais comme tu à demander :
Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
For i As Integer = 0 To ComboBox1.Items.Count - 1
If ComboBox1.Items(i).Where(Function(x) x.StartsWith(ComboBox1.Text) = True).Count = 0 Then
'Action
End If
Next
End Sub

mais dés que je tape la première lettre l'erreur suivante s'affiche :
"Le membre public 'Where' du type 'String' est introuvable."
Resalut
C'est drôle : je me disais que quelque chose était bizarre mais je ne savais pas quoi
ton but est-il de trouver le premier élément de la combobox qui contient le texte en haut de la combobox ou d'avoir le nombre d'éléments qui commence par ce même texte ?

De plus Whismeril travaillait avec un tableau alors que toi tu travailles avec les éléments de la combobox
Je regarde le truc et je te réponds

voici le code qui fonctionne
Listbox1 affiche les éléments qui débutent par le texte de la Combobox que tu saisi

Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged

Dim tableau() As String
ReDim tableau(0 To ComboBox1.Items.Count - 1)
ComboBox1.Items.CopyTo(tableau, 0)
Dim texte As String = Combobox1.text
Dim resultat As List(Of String) = tableau.Where(Function(x) x.StartsWith(texte) = True).ToList
If resultat.Count = 0 Then
ListBox1.Items.Clear()
Else
listBox1.DataSource = resultat
End If

End Sub
Désolé si je n'ai pas bien expliquer
concernant, il a répondu à ma question sur la textbox et le tableau
j'ai posé une autre question sur la combobox
mon but est : dés que je saisie un mot qui n'est pas dans la combobox il efface automatiquement la dernière lettre du texte que j'ai saisie
j'espère que j'ai bien expliquer cette fois
tu reprends le code au-dessus et tu rajoutes 2 lignes

If resultat.Count = 0 Then
ListBox1.Items.Clear()
Dim chaine as String = Combobox1.Text
Combobox1.Text = chaine.Substring(0, Chaine.Length - 1)
Else

Substring(index, longeur) prends une partie de la chaine en commençant à index et de la longueur spécifiée
Chaine.Length donne le longueur de la chaine de caractères
on compte à partir de 0 comme index dans une chaine ( de même que dans les tableaux, les listes et les éléments des ListBox, combobox et Listview
Salut vb95
merci pour ton aide ton code fonctionne très bien
j'ai juste ajouter
ComboBox1.SelectionStart = ComboBox1.Text.Length

car quand une lettre est effacé le curseur revient au début du texte
Salut Kikou93
Concernant le code de vb95, Je n'avais remarqué ce détail
Concernant le code que tu posé
cette méthode ne revient pas a la même chose tu utilise toujours le tableau non?
Bonjour

pour faire ça il faut se placer dans le KeyPress, regarder ce que sera le texte une fois la touche validée et gérer en fonction
Private Sub ComboBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ComboBox1.KeyPress Dim tableau() As String = {"Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne"} Dim texte As String = ComboBox1.Text + Convert.ToString(e.KeyChar) Dim resultat As List(Of String) = tableau.Where(Function(x) x.StartsWith(texte)).ToList() If resultat.Count = 0 Then e.Handled = True 'signifie que l'on a traité le keypress, donc la touche n'est pas validée Else ListBox1.DataSource = resultat End If End Sub
Salut Whismeril
merci pour ton aide, le code fonctionne très bien
je ne veux pas exagérer mais juste une dernière chose
au lieu d'utiliser un tableau je préfère utiliser la ListItems de la ComboBox, car la liste sera mise à jour a chaque fois, je me trompe peut-être mais on ne peut pas mise à jour un tableau de plus un tableau peut contenir un grand nombre de variable à des limites (je ne me souviens pas combien)
j'ai essayer avec cette méthode, est-ce Que C'est Juste?
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles ComboBox1.KeyPress
Dim tableau() As String
ReDim tableau(0 To ComboBox1.Items.Count - 1)
For i As Integer = 0 To ComboBox1.Items.Count - 1
tableau(i) = ComboBox1.Items(i).ToString
Next
Dim texte As String = ComboBox1.Text + Convert.ToString(e.KeyChar)
Dim resultat As List(Of String) = tableau.Where(Function(x) x.StartsWith(texte)).ToList()
If resultat.Count = 0 Then
e.Handled = True 'signifie que l'on a traité le keypress, donc la touche n'est pas validée
Else
ListBox1.DataSource = resultat
End If
End Sub

Les inconvénient que j'ai remarqué dans ton code :
1er mot je je ne peux pas utiliser la touche Backspace
2 eme mot je dois taper la lettre deux fois pour quel s'affiche dans la ComboBox
Bon,
j'ai l'impression de tout le temps dire la même chose.
Un contrôle, n'a pas vocation à être une source de données, il y a des collections (le tableau en est une) ou les bases de données.

Le rôle d'un contrôle est d'afficher le contenu d'une source de données et d'en assurer la mise à jour.
Comme tu le dis le tableau est figé en nombre d'items, contrairement à la grande majorité des collections, l'une des plus simples à utiliser est la List.

Donc on charge une List
Private liste As New List(Of String)() From {"Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne"} End Sub

A un endroit judicieux, on binde la List sur le combobox.
comboBox1.DataSource = liste

Enfin, dans le Keypress, on travaille avec la List, après s'être affranchi des touches de contrôles
Private Sub comboBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) If Char.IsControl(e.KeyChar) Then 'si c'est une touche de contrôle, on sort Return End If Dim texte As String = comboBox1.Text + Convert.ToString(e.KeyChar) If Not liste.Any(Function(x) x.StartsWith(texte)) Then e.Handled = True End If

Ça mérite d'être améliorer, si tout ou partie du texte est sélectionné le futur texte n'est pas texte actuel + touche tapée. Je te laisse chercher un peu avec SelectedText, SelectionLength et SelectionStart.
Resalut Whismeril,
Un contrôle, n'a pas vocation à être une source de données, il y a des collections (le tableau en est une) ou les bases de données.
Le rôle d'un contrôle est d'afficher le contenu d'une source de données et d'en assurer la mise à jour.

dit comme ça ça parait plus logique
J'essaye de ne pas écrire trop de conneries en général....
Bonsoir

le truc c'est que l'on a répondu au besoin de Karin.Code.

Je suis d'accord, en tant qu'utilisateur ne pas comprendre pourquoi la lettre que je tapes n'apparait pas est frustrant, alors qu'avoir un message à chaque touche fausse est agaçant.

Mais ce que tu proposes ne me plait pas non plus, une fois que j'ai tout tapé ça me dit "eh ben non!!!".

Il faut savoir être efficace donc informer clairement aussitôt qu'une touche est fausse sans être bloquant (la message box), c'est pourquoi j'ai proposé plus haut deux options qui ont général un bon retour utilisateur:
une listBox ou apparaissent les mots encore possible avec la saisie en cours, ça a l'avantage que l'on peut faire la recherche sur tout le corps du texte, par exemple, si je veux le Gravier palvdecor, sachant qu'il y a plusieurs graviers, je peux faire la recherche sur palvdecor.
L'autocomplétion, j'ai mis un lien vers un tuto plus haut.

Ces 2 options me semblent plus en phase avec ton besoin, qui je le rappelle n'est pas celui de Karin.Code.
Bonsoir Whismeril,
Je m'excuse si me suis mal exprimé, mais je n'ai pas dit que c'était la meilleur solution, ce code peut être un plus pour le code que tu à mentionné plus haut
par exemple si en fait copier/coller d'un mot qui n'est pas dans la liste il ne sera pas effacer ou quand il efface la dernière lettre il reste le mot incomplèt, est que l'utilisateur passe à un autre contrôle ou clique sur la touche Entrer (avec le code suivant):
Private Sub ComboBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
If e.KeyCode = Keys.Enter Then 'Si en clique sur la touche Entrer
'Action
End If
End Sub
un message s'affiche
on peut utiliser le code que j'ai mentionné plus haut pour éviter les erreur

Whismeril · Accepted Answer · 2016-11-22T20:45:45+0100

Meilleure réponse

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

22 nov. 2016 à 20:45

1

Merci

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

Merci Whismeril 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Dernière intervention: 16 janvier 2018

- 22 nov. 2016 à 21:02

Bonsoir Whismeril,
Merci Pour ton aide le code fonction très bien, pour la ListeBox c'est une bonne idée merci
juste une dernière chose si ça ne te dérange pas bien sûr
je voulais utilisé dans une autre partie du programme une Combobox au lieu d'un tableau et d'une TextBox
J'ai fait ça avec ton code mais ça ne fonction pas

  Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            If ComboBox1.Items(i).Where(Function(x) x.StartsWith(ComboBox1.Text)).Count() = 0 Then
                'Action
            End If
        Next
    End Sub

pourquoi?

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- 22 nov. 2016 à 21:59

http://lgmorand.developpez.com/dotnet/autocompletion/

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Dernière intervention: 16 janvier 2018

> Whismeril

Messages postés: 12372
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 12 décembre 2018

- Modifié par Karin.code le 22/11/2016 à 22:27

Merci pour le lien j'ai déjà vu ça dans le poste Kikou93
http://codes-sources.commentcamarche.net/forum/affich-10071123-creer-une-combobox-police-comme-celle-de-word#p10071167
j'ai choisi ça :

ComboBox1.AutoCompleteMode = AutoCompleteMode.Append '
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

tant que le texte que tu saisie dans la ComboBox existe dans la ListItems de la ComboBox une liste s'affiche avec des suggestions
si il n'existe pas après avoir taper la dernière lettre la liste des suggestions sera vide
dans se cas la je voulais qu'il efface Automatiquement la dernière lettre saisie avec le code :

ComboBox1.Text = ComboBox1.Text.Substring(0, ComboBox1.Text.Length - 1)

Vérifier si text saisie dans la textbox existe dans un tableau [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !