QUICKLAUNCH : AFFICHEZ LA BARRE DE LANCEMENT RAPIDE DANS VOTRE PROGRAMME (CONTIE

lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008 - 18 août 2004 à 09:38
cs_nico1610 Messages postés 395 Date d'inscription jeudi 26 août 2004 Statut Membre Dernière intervention 19 juin 2009 - 21 nov. 2006 à 19:12
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/25478-quicklaunch-affichez-la-barre-de-lancement-rapide-dans-votre-programme-contient-plein-de-techniques

cs_nico1610 Messages postés 395 Date d'inscription jeudi 26 août 2004 Statut Membre Dernière intervention 19 juin 2009 1
21 nov. 2006 à 19:12
voila un 10 / 10 pour pencher la balance !
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
21 nov. 2006 à 18:38
Salut nico,

effectivement le goto, c'est très moche. Y'a presque toujours une solution pour s'en passer. J'ai fais ce code y'a un moment, et je suis en train de l'améliorer (enfin je le refais dans une logique beaucoup plus générale). Donc je ne modifierai pas ce code, cependant merci d'avoir fait la remarque, je suis entierement d'accord. (enfin ça fonctionne pour autant remarque ^^).

PS : tiens y'a un zigoto qu'a noté 1, bravo :s
cs_nico1610 Messages postés 395 Date d'inscription jeudi 26 août 2004 Statut Membre Dernière intervention 19 juin 2009 1
19 nov. 2006 à 02:38
Heu je revien sur ton code que je suis en train de décortiqué et je trouve ce passage tres moche :
For T = Len(File) To 1 Step -1
A = Mid(File, T, 1)
If A = "." Then
GoTo Fin
End If
stok = stok + A
Next
Exit Function
Fin:
En effet pour sortir d'une boucle For, evite les "Goto fin", tu verra qu'en programmation les Goto, c'est pas beau.
A la rigeur un "Exit For", c'est plus jolie ensuite fais plus ca :
T = Len(File) '\
A = "" '|Initialisation de la boucle
stok = "" '/
Do
stok = stok + A
A = Mid(File, T, 1)
T = T - 1 'incrémentation
Loop Until A "." Or T 0 'condition de sortie

Enfin tu fait comme tu veut, mais je trouve le Goto TRES TRES MOCHES surtout pour sortir d'une boucle for!
Sinon le code est super, je te recontacte si j'ai encore des remarque a faire sur ton code !
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
27 janv. 2005 à 22:46
Je précise à tous que la version 2 est disponible à :
http://www.vbfrance.com/code.aspx?id=25786

parce que je vois que cette page est encore plus vue par mois que la nouvelle version

ciao
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
22 août 2004 à 15:13
merci ;-)
cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
22 août 2004 à 15:04
C'est génial !
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
18 août 2004 à 20:29
merci pour les commentaires ;-)
@+
974Mr_007 Messages postés 126 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 17 janvier 2005
18 août 2004 à 15:59
bonne source ca peut servir des fois
lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008
18 août 2004 à 15:55
surtout que maintant bon bah le style win9x c un peu finit :) bonne source.
note: 9/10
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
18 août 2004 à 15:27
Ouhais, j'aime bien et ca change un peu, du traditionnel.
Y'a pas mal de resources pour les debutants.

Bon boulot
@+
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
18 août 2004 à 13:04
Ah oui c'est parce que j'avais pas cherché "quickload", mais bon les techniques sont toujours utiles ici, et puis y'a l'apparence XP.
@ +
lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008
18 août 2004 à 09:38
g fé un truc du genre deja.

http://www.vbfrance.com/code.aspx?ID=5867

par contre version win9x / 2k au nvo du style :)
Rejoignez-nous