SAISIE SEMI-AUTOMATIQUE DES COMBOS ACCESS EN VB .NET
Dalida
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016
-
28 août 2003 à 13:55
big wallace Messages postés 30 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 3 décembre 2007 - 23 nov. 2007 à 15:04
big wallace Messages postés 30 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 3 décembre 2007 - 23 nov. 2007 à 15:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8232-saisie-semi-automatique-des-combos-access-en-vb-net
https://codes-sources.commentcamarche.net/source/8232-saisie-semi-automatique-des-combos-access-en-vb-net
23 nov. 2007 à 15:04
merci
4 juin 2006 à 22:01
26 mai 2004 à 02:12
le combobox à déjà une propriété FindItem !!!
voir ma source :
http://www.vbfrance.com/code.aspx?ID=23147
28 août 2003 à 14:08
Private Sub cmbNom_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbNom.KeyUp
If cmbNom.Items.Count < 1 Then Exit Sub
If e.KeyValue = System.Windows.Forms.Keys.Delete Or _
e.KeyValue = System.Windows.Forms.Keys.Back Then
Exit Sub
End If
Dim intLongueur, intIndex As Integer
intLongueur = Len(cmbNom.Text)
intIndex = cmbNom.FindString(cmbNom.Text)
cmbNom.SelectedIndex = intIndex
cmbNom.Select(intLongueur, Len(cmbNom.Text) - intLongueur)
End Sub
28 août 2003 à 14:01
le source de mon message precedent ne tourne pas.
il ne gere pas les noms inexistants et ne permet pas d effacer.
il sagit donc d une piste de developpement plus que d une solution...
quand je l aurai code entierement je vous en ferai part ici meme
a plus
28 août 2003 à 13:55
j ai eu le meme besoin.
mais en me penchant sur ton source j ai trouve un solution un peu plus simple. si ca peut vous aider...
Private Sub cmbNom_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbNom.KeyUp
If cmbNom.Items.Count < 1 Then Exit Sub
'si la liste est vide on sort
Dim intLongueur, intIndex As Integer
intLongueur = Len(cmbNom.Text)
intIndex = cmbNom.FindString(cmbNom.Text)
cmbNom.SelectedIndex = intIndex
cmbNom.Select(intLongueur, Len(cmbNom.Text) - intLongueur)
End Sub
bonne bourre!