Vérifier si text saisie dans la textbox existe dans un tableau [Résolu]
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
-
22 nov. 2016 à 19:55 - Dernière réponse : Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
- 25 nov. 2016 à 14:03
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
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -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
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -22 nov. 2016 à 22:26
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 :
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.
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -22 nov. 2016 à 20:48
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
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -22 nov. 2016 à 20:50
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.
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -22 nov. 2016 à 21:06
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
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention
>
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -22 nov. 2016 à 21:58
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
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention
>
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -22 nov. 2016 à 22:01
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
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention -22 nov. 2016 à 22:27
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
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention
>
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -22 nov. 2016 à 22:53
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)
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention -22 nov. 2016 à 23:07
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."
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention
>
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -22 nov. 2016 à 23:41
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
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention -22 nov. 2016 à 23:53
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
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention
>
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention -23 nov. 2016 à 00:51
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
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention
>
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention -23 nov. 2016 à 17:01
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
Karin.code183
Messages postés vendredi 2 septembre 2016Date d'inscription
16 janvier 2018
Dernière intervention
>
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention -23 nov. 2016 à 17:53
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?
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -23 nov. 2016 à 07:23
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
vb951677
Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut
4 octobre 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -23 nov. 2016 à 15:21
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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.
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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.
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention
>
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention -23 nov. 2016 à 18:31
J'essaye de ne pas écrire trop de conneries en général....
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention -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
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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.
kikou93418
Messages postés mardi 4 février 2014Date d'inscription
24 septembre 2018
Dernière intervention
>
Whismeril12063
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
7 octobre 2018
Dernière intervention -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
a aidé 96 internautes ce mois-ci
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
pourquoi?
http://codes-sources.commentcamarche.net/forum/affich-10071123-creer-une-combobox-police-comme-celle-de-word#p10071167
j'ai choisi ça :
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 :