Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 499 fois - Téléchargée 21 fois
<HTML> <HEAD> <TITLE>Recherche dans une liste à partir d'un champ texte</TITLE> <script language="VBScript"> Dim tout() Dim nb_elements Sub Window_Onload For i = 1 to 100 Set oOption = Document.createElement("OPTION") oOption.Text = i & " Opt" & i liste.Add(oOption) ReDim Preserve tout(i) tout(i) = oOption.Text next nb_elements = UBound(tout) End Sub function zyva(x,y) viderListe(y) If len(x) = 0 Then restoreListe(y) Else For i = 1 to nb_elements If InStr(tout(i), x) = 1 Then Set oOption = Document.createElement("OPTION") oOption.Text = tout(i) y.Add(oOption) End If next If y.options.length = 1 Then y.options(0).selected = true End If End If end function function viderListe(y) y.options.length = 0 end function function restoreListe(y) For i = 1 to nb_elements Set oOption = Document.createElement("OPTION") oOption.Text = tout(i) y.Add(oOption) next end function </script> </HEAD> <BODY> Recherche dans une liste à partir d'un champ texte<br><br> <INPUT TYPE="text" NAME="nom" ID="nom" SIZE="20" MAXLENGTH="30" onKeyUp="zyva(document.getElementById('nom').value), document.getElementById('liste')"> <br><br> <SELECT NAME="liste" ID="liste" SIZE="3"> </SELECT> </BODY> </HTML>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
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.