|
|
Vous êtes ici : Forums > Langage Javascript / AJAX > Info bulle
Info bulle
Bonjour à toutes et à tous,
j'ai utilisé le code de ce site permettant d'afficher une info bulle sur chaque option d'une liste ça ne marche pas.
En effet j'ai un souci au niveau de l'affichage des options de la liste car je les tronque pour ne pas avoir une liste très large horizontalement.J'aurai souhaité que lorsqu'on passe la souris dessus ou si l'on clic qu'on puisse avoir cette info bulle avec le libéllé de l'option en entier.
Est ce possible si oui aidez moi merci.voilà ma procédure pour afficher ma liste:
<%
Sub ListeSaisiebis(txtForm,txtRecordset)
Dim txtoptionbase
Dim lenombre,y
U="1"
'================================
'--le nombre d'enregistrement
'================================
lenombre=(Ubound(txtRecordset.GetRows(),2)) +1
if lenombre < 100 and lenombre > 0 then
print("<span class=\'HelpTxtBold\'>"&lenombre&" poste(s) corresponde(nt) à votre recherche</span><br>")
print("<SELECT name=\'"& txtForm &"\' size=\'5\'>")
'if not txtRecordset.eof then
txtRecordset.movefirst
y=0
Do while NOT txtRecordset.EOF
if y mod 2 =0 then
couleur="BCD1E0"
else
couleur="D8ECFC"
end if
txtOptionbase=txtOptionbase &"<option style=""background-color:"&couleur&""" value="&txtRecordset(0)&""
if request("txtForm")=txtRecordset(0) then
txtoptionbase=txtoptionbase & "selected"
end if
txtOptionbase=txtOptionbase & ">"& txtRecordset(0)&"-"& Left(UCase(Left(txtRecordset(1),1)) & LCase(Right(txtRecordset(1),Len(txtRecordset(1))-1)),80) & "</option>" & vbCrLf
txtRecordset.MoveNext
y=y+1
Loop
'End if
printline txtOptionbase
print"</SELECT>"
else
'--si l'on a plus de 100 libéllés
if lenombre > 100 then
print("<span class=\'HelpTxtBold\'>Trop de résultats: Affichage partiel(les 100 1er), redéfinissez plus précisément la demande ...</span><br>")
print("<SELECT name=\'"& txtForm &"\' size=\'5\' >")
'if not txtRecordset.eof then
y=0
txtRecordset.movefirst
Do while NOT txtRecordset.EOF and y<99
if y mod 2 =0 then
couleur="BCD1E0"
else
couleur="D8ECFC"
end if
txtOptionbase=txtOptionbase &"<option style=""background-color:"&couleur&""" value="&txtRecordset(0)&""
if request("txtForm")=txtRecordset(0) then
txtoptionbase=txtoptionbase & "selected"
end if
txtOptionbase=txtOptionbase & ">"& txtRecordset(0)&"-"& Left(UCase(Left(txtRecordset(1),1)) & LCase(Right(txtRecordset(1),Len(txtRecordset(1))-1)),80) & "</option>" & vbCrLf
txtRecordset.MoveNext
y=y+1
Loop
'End if
printline txtOptionbase
print"</SELECT>"
else
U="2"
print("<span class=\'HelpTxtBold\'>Il n'y a aucun produit correspondant à cette recherche !</span>")
end if
end if
txtRecordset.close
Set txtRecordset=Nothing
End sub%>
Message posté le 03/12/2004
par hautlespieds
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
16/07/2008 -
Windows Server 2008 : Network Access Protection
Le nouveau système d’exploitation serveur de Microsoft, Windows Server 2008, apporte avec lui de nou ...
|
16/07/2008 -
Webcasts - Développement parallèle, à l'aube d'une nouvelle ère
Avec l'avénement des multi-coeurs, le développement parallèle devient une necéssité. Dans cette séri ...
|
16/07/2008 -
J'en ai rien à coder - Votre devoir de vacances sur Silverlight !
Qu'est-ce que Silverlight ? Une nouvelle technologie Web permettant d'exécuter des RIA sur un large ...
|
16/07/2008 -
Quelques petits tests sur les bases embarquées
Dans ce billet, Ayende réalise un benchmarking de plusieurs "petites" bases de données embarquées. S ...
|
15/07/2008 -
Présentation d'ASP.NET Dynamic Data
Dynamic Data est une nouvelle technologie inclue dans l' "Asp.net 3.5 Extension CTP ".
Elle fournit ...
|
15/07/2008 -
Silverlight 2 - Les webcasts de l'événement sont en ligne
L’objectif de cette journée était de comprendre les limitations de Silverlight 1, et d’appréhender l ...
|
15/07/2008 -
Cache transparent et Entity Framework
La gestion du cache (1er et second niveau) est une fonctionnalité très importante d'un outil de mapp ...
|
|
|
