Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 01:36:34

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

SALUT par hachem100

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

RE : TRI AVEC RELATIONS par LIBRE_MAX

+ de logiciels à télécharger

1 467 589 membres
28 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 658 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHECK ALL

Information sur la source

Catégorie :VBScript Niveau : Initié Date de création : 19/05/2004 Vu / téléchargé: 3 818 / 252

Auteur : spawn

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

c'est un petit code tout simple pour mettre dans une page HTML ou dans une page ASP (en modifiant un peu le code pour récupérer les valeurs)

ce code permet de cocher toutes les checkbox d'un formulaire et il permet sur le même bouton de toutes les décocher

Source

<HTML>
<HEAD>
<SCRIPT language="VBscript">
function check_all(Formulaire)
i=0
if Formulaire.cmdCheck.value = "check all" then
For each checkbox in Formulaire.choix
'msgbox Formulaire.choix(i).value
Formulaire.choix(i).Checked = true
i=i+1
Next
Formulaire.cmdCheck.value = "uncheck all"
else
For each checkbox in Formulaire.choix
Formulaire.choix(i).Checked = false
i=i+1
Next
Formulaire.cmdCheck.value = "check all"
end if
end function
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="Groupe_chk" action="#" method="get">
<BR><INPUT type="checkbox" name="choix" value="test1"> test1
<BR><INPUT type="checkbox" name="choix" value="test2"> test2
<BR><INPUT type="checkbox" name="choix" value="test3"> test3
<BR><INPUT type="checkbox" name="choix" value="test4"> test4
<BR><INPUT type="submit" value="Valider la sélection">
<BR><INPUT type="button" name="cmdCheck" value="check all" onclick="check_all(Groupe_chk)">
</FORM>
</BODY>
</HTML>

<HTML>

<HEAD>

<SCRIPT language="VBscript">

function check_all(Formulaire)
i=0

if Formulaire.cmdCheck.value = "check all" then

	For each checkbox in Formulaire.choix

		'msgbox Formulaire.choix(i).value
		Formulaire.choix(i).Checked = true
		i=i+1
	Next

	Formulaire.cmdCheck.value = "uncheck all"

else

	For each checkbox in Formulaire.choix

		Formulaire.choix(i).Checked = false
		i=i+1
	Next

	Formulaire.cmdCheck.value = "check all"

end if

end function

</SCRIPT>

</HEAD>

<BODY>
	<FORM NAME="Groupe_chk" action="#" method="get">
		<BR><INPUT type="checkbox" name="choix" value="test1"> test1
		<BR><INPUT type="checkbox" name="choix" value="test2"> test2
		<BR><INPUT type="checkbox" name="choix" value="test3"> test3
		<BR><INPUT type="checkbox" name="choix" value="test4"> test4
		<BR><INPUT type="submit" value="Valider la sélection">
		<BR><INPUT type="button" name="cmdCheck" value="check all" onclick="check_all(Groupe_chk)">
	</FORM>

</BODY>
</HTML>

Conclusion

voilà c'est tout bête, mais je ne l'ai pas trouvé sur le net avant et pourtant je suis sûr que d'autre l'on fait avant, mais bon si ça peut éviter à d'autre de se prendre la tête pendant quelques minutes

CONCERNANT LE FICHIER ZIP C'EST UN .TXT QUI EST RENOMME EN .ZIP