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
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
If Strings.Left(TextBox1.Text, TextBox1.Text.Length)
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
Private liste As New List(Of String)() From {"Pavidrain", "Gravier maury", "Calcaire concassé ivoire", "Graviers de basalte", "Gravier palvdecor", "Graviers de dordogne"} End Sub
comboBox1.DataSource = liste
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
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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
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 :