PROGRAMME QUI CACHE DES DOSSIER DERIERE PLUSIEURS ICONE AU CHOIX

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 15 janv. 2004 à 20:46
 Utilisateur anonyme - 18 mars 2004 à 19:55
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/19527-programme-qui-cache-des-dossier-deriere-plusieurs-icone-au-choix

Utilisateur anonyme
18 mars 2004 à 19:55
Désolé si là ça ressemble à rien mais le gros bloc tiens sur une ligne
Utilisateur anonyme
18 mars 2004 à 19:53
Je te conseille un truc pour t'épargner bcp de lignes :

Tu remplaces :

If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If



Par :

If C < 1 Or C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
Else
D = Choose(C + 1, ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{00021400-0000-0000-C000-000000000046}", ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}", ".{FF393560-C2A7-11CF-BFF4-444553540000}", ".{2227A280-3AEA-1069-A2DE-08002B30309D}", ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}", ".{450D8FBA-AD25-11D0-98A8-0800361B1103}", ".{21EC2020-3AEA-1069-A2DD-08002B30309D}", ".{BD84B380-8CA2-1069-AB1D-08000948F534}", ".{85BBD920-42A0-1069-A2E4-08002B30309D}", ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}", ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", ".{208D2C60-3AEA-1069-A2D7-08002B30309D}", ".{645FF040-5081-101B-9F08-00AA002F954E}")
End If

Et puis tu pourrais réfléchir pour éviter de recopier 2 fois le même code après le Z 1 et Z 2.

Sinon c'est bien =)
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
29 janv. 2004 à 05:49
longue vie à BruNews !! :op
kickbar Messages postés 44 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 19 mars 2011
16 janv. 2004 à 20:15
oui il me semble que sa existe mais je c'est pas du tout commen l'utiliser.

ps : pour mon ortographe je ferai sa soit demains donc samedi soi dimanche
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
16 janv. 2004 à 16:58
regarde si 'Select case ' existe en vbscript, remplacerait bien tous ces if qui sont tous executes alors que quand 1 cas est trouve, on ne doit plus tester les autres.
kickbar Messages postés 44 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 19 mars 2011
16 janv. 2004 à 16:50
bon ok je vais faire des effor dsl
mais commen vous la trouver la source?
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
16 janv. 2004 à 15:43
Arrete de faire ta mauvaise tete, personne n'est contre toi. On te demande juste un effort, c'est pas le bout du monde non ?
kickbar Messages postés 44 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 19 mars 2011
16 janv. 2004 à 15:36
ok puisque tout le monde ici est contre moi bin Brunews enleve toute mais sources je trouverer bien un autre site qui accepte que l'on soit nul en ortographe
merci quan meme
cs_geco Messages postés 14 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 4 février 2007
16 janv. 2004 à 15:04
Merci à BruNews de remettre les choses en place.

Un certain nombre de "membre" prend le site pour une cour de récréation, du moins je veux le croire, ne me dites pas que c'est inconsciemment, si c'était le cas "pauvre France". Il est vrai que l'Education Nationale a certainement beaucoup de responsabilité en la matière, mais tout de même...

J'en suis membre, peu actif (c'est vrai : 2 petites contributions), depuis plus de 3 ans, et j'ai beaucoup appris sur ce site. Alors, défendons le en le respectant et en respectant notre langue. De nombreux amis francophones étangers le suivent, quel regard peuvent-ils avoir sur de tels comportements ?

Je m'arrête là, excusez moi pour ce réquisitoire qui n'a rien à faire dans cette rubrique mais devrait être dans le forum, mais cette source de Kickbar a fait déborder "mon vase".
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
16 janv. 2004 à 12:25
geco, on ne peut mieux dire.

kickbar, je te parle maintenant en tant qu'ADMIN CS:
il n'y a pas de lieu particulier pour respecter son lectorat, c'est simplement une attitude a avoir partout. J'attends donc un effort de ta part pour tes prochaines sources.
En esperant avoir ete bien compris.
ciao...
cs_geco Messages postés 14 Date d'inscription samedi 8 juin 2002 Statut Membre Dernière intervention 4 février 2007
16 janv. 2004 à 12:11
Je trouve lamentable qu'on puisse prendre autant de liberté avec la langue française.
C'est à un manque de respect vis à vis des lecteurs éventuels. C'est se "foutre" du monde.
Il faut commencer par déchiffrer les commentaires avant de commencer à essayer de comprendre le sujet.
kickbar Messages postés 44 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 19 mars 2011
15 janv. 2004 à 21:54
ouai dsl j'ai ecris l'explicationa toute vitesse j'etais presser j'ai pas wrod donc si tu la et que tu a le temp de le faire sa s'rer pas mal parsque j'ai la fleme de me retaper a faire sa uniquemen pour l'ortographe.
sinon tu le trouve commen le code
ta des truc a dire pour l'ameliorer ????
parsquie c gentil de me dire sa mais c pas un site pour l'ortographe lol

:-)
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
15 janv. 2004 à 20:46
Salut,
j'ai un conseil, tu copies tes commentaires et tu les colles dans Word, puis tu fais 'correction'. Si Word arrive a corriger, tu recopies ici sinon c'est que tu peux reecrire ton texte.
Rejoignez-nous