Quicklaunch : affichez la barre de lancement rapide dans votre programme (contient plein de techniques)

Soyez le premier à donner votre avis sur cette source.

Vue 10 624 fois - Téléchargée 743 fois

Description

J'ai cherché, cherché, mais pas trouvé. Cette source n'existe pas sur vbfrance, a moins que je doive changer de lunettes ou d'explorateur... Et étant donné que j'en ai besoin pour un autre programme, je l'ai faite et je la met ici car elle peut etre intéressante pour plusieurs raison :
- Les gens comme moi qui en ont besoin dans un de leurs programmes, dans ce cas servez-vous messieurs dames...
- Les gens qui veulent savoir comment retrouver le dossier qui contient les raccourcis de la barre de lancement rapide
- Les gens qui veulent récupérer l'icone associé à un fichier (c'est déjà vu sauf qu'ici on récupère l'icone en 16*16 impossible avec ExtractIcon sans redimmensionner et dégrader l'image), merci à Warning
- Les gens qui veulent pouvoir récupérer des informations sur les raccourcis de windows (les fichiers .lnk)
- Les gens qui veulent s'amuser un peu avec la gestion des coordonées de la souris, ou aussi comment executer un fichier par son extension, et aussi quelques fonctions pour manipuler les chemins d'accès, les extensions (mais ça c'est très simple)

En gros je viens de vous décrire tous ce qu'il y a dans le code, comme ça ceux qui rechercheront ces techniques tomberont dessus...

Conclusion :


Voilà le rendu de la source parait simple mais j'ai du utiliser pas mal de techniques différentes pour coder ça, donc je met ça en initié si vous êtes d'accord...
Vous remarquerez que la couleur de fond est bleu ici, vous pouvez la changer, cela nécessitera évidemment quelques modifications...

J'ai commenté un maximum et j'espère que ça servira à certains, mais étant donné que cette source n'existait pas déjà, je vous la fait partager...

@ + tout le monde et balancez vos commentaires
MadMatt

PS : version 2 disponible à :
http://www.vbfrance.com/code.aspx?id=25786

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
402
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
1
voila un 10 / 10 pour pencher la balance !
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009

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
Messages postés
402
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
1
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 !
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009

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
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009

merci ;-)
Afficher les 12 commentaires

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.