Chargement d'un Combo en fonction de ce qui est saisi ds celui-ci
Résolu
cs_Eric25
Messages postés
175
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
26 juin 2006
-
19 janv. 2005 à 12:46
cs_Eric25 Messages postés 175 Date d'inscription mardi 19 octobre 2004 Statut Membre Dernière intervention 26 juin 2006 - 19 janv. 2005 à 15:24
cs_Eric25 Messages postés 175 Date d'inscription mardi 19 octobre 2004 Statut Membre Dernière intervention 26 juin 2006 - 19 janv. 2005 à 15:24
A voir également:
- Chargement d'un Combo en fonction de ce qui est saisi ds celui-ci
- Chargement de données - Forum C
- Plan de chargement - Forum Visual Basic 6
- Combo list txt - Forum IRC
- Tableau de lotto ci turbo 2 - Forum ASM
- Ddddff ds ✓ - Forum ASM
6 réponses
cs_Eric25
Messages postés
175
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
26 juin 2006
3
19 janv. 2005 à 15:24
19 janv. 2005 à 15:24
Merci à tous, j'ai finalement trouvé un autre code (le seul que j'ai réussi à comprendre) qui marche plutot bien, le voici (source de TequilaTex):
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
'Saisie semie-automatique
If KeyCode = vbKeyBack Then Exit Sub
Dim inc1 As Integer
Wcount = Len(Combo1.Text)
If Combo1.Text = "" Then Exit Sub
For inc1 = 0 To Combo1.ListCount - 1
If LCase(Combo1.Text) = LCase (Left(Combo1.List(inc1), Wcount)) Then
Combo1.Text = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
Combo1.SelStart = Wcount
Combo1.SelLength = Len(Combo1.Text)
Exit For
End If
Next inc1
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
'Saisie semie-automatique
If KeyCode = vbKeyBack Then Exit Sub
Dim inc1 As Integer
Wcount = Len(Combo1.Text)
If Combo1.Text = "" Then Exit Sub
For inc1 = 0 To Combo1.ListCount - 1
If LCase(Combo1.Text) = LCase (Left(Combo1.List(inc1), Wcount)) Then
Combo1.Text = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
Combo1.SelStart = Wcount
Combo1.SelLength = Len(Combo1.Text)
Exit For
End If
Next inc1
End Sub
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
19 janv. 2005 à 13:42
19 janv. 2005 à 13:42
Regardes dans mes sources il y a ce que tu recherche je crois...
It@li@
It@li@
guigfs
Messages postés
34
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
30 mars 2006
19 janv. 2005 à 13:44
19 janv. 2005 à 13:44
Salut
essai avec ceci (desole mais aucun commentaire)
Private
Sub MaListe_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)
Handles
MyBase.KeyPress
Dim maValeur
As
String =
Me.Text
Dim nbCaracteres
As
Integer = maValeur.Length()
Dim nbElements
As
Integer =
Me.Items.Count()
Dim nbCaract
As
Integer
Dim valeurListe
As
String
Dim positionCurseur
As
Integer
Dim i
As
Integer
If e.KeyChar <> Microsoft.VisualBasic.ChrW(8)
Then
maValeur = maValeur.ToUpper()
If
Me.Text <> ""
Then
For i = 0
To (nbElements - 1)
valeurListe = Mid(Convert.ToString(ds.Tables("maTable").Rows(i).Item(macolonne)), 1, nbCaracteres)
valeurListe = valeurListe.ToUpper
If maValeur = valeurListe
Then
Me.SelectedIndex = i
nbCaract =
Me.Text.Length()
Me.Select(nbCaracteres, nbCaract)
Exit
For
End
If
Next
End
If
End
If
End
Sub
essai avec ceci (desole mais aucun commentaire)
Private
Sub MaListe_KeyPress(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.KeyPressEventArgs)
Handles
MyBase.KeyPress
Dim maValeur
As
String =
Me.Text
Dim nbCaracteres
As
Integer = maValeur.Length()
Dim nbElements
As
Integer =
Me.Items.Count()
Dim nbCaract
As
Integer
Dim valeurListe
As
String
Dim positionCurseur
As
Integer
Dim i
As
Integer
If e.KeyChar <> Microsoft.VisualBasic.ChrW(8)
Then
maValeur = maValeur.ToUpper()
If
Me.Text <> ""
Then
For i = 0
To (nbElements - 1)
valeurListe = Mid(Convert.ToString(ds.Tables("maTable").Rows(i).Item(macolonne)), 1, nbCaracteres)
valeurListe = valeurListe.ToUpper
If maValeur = valeurListe
Then
Me.SelectedIndex = i
nbCaract =
Me.Text.Length()
Me.Select(nbCaracteres, nbCaract)
Exit
For
End
If
Next
End
If
End
If
End
Sub
guigfs
Messages postés
34
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
30 mars 2006
19 janv. 2005 à 13:46
19 janv. 2005 à 13:46
Pour info ceci s'appel une combo à saisie semi_automatique(pour les recherches google ca aide)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Eric25
Messages postés
175
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
26 juin 2006
3
19 janv. 2005 à 14:39
19 janv. 2005 à 14:39
Merci, j'essaye de décoder ce code qui a l'air pas mal mais j'avoue que j'ai un peu de mal sans commentaires...
cs_Eric25
Messages postés
175
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
26 juin 2006
3
19 janv. 2005 à 14:50
19 janv. 2005 à 14:50
Italia : Il me semble que ton code fonctionne lui avec un combo et une TextBox, mais j'essaye de comprendre son fonctionnement pour voir si cela peut marcher dans mon cas...
merci
merci
