LINKODOTRON : PETITE BARRE DE RACCOURCIS
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/2734-linkodotron-petite-barre-de-raccourcis
https://codes-sources.commentcamarche.net/source/2734-linkodotron-petite-barre-de-raccourcis
- Messages postés
- 338
- Date d'inscription
- mercredi 4 avril 2001
- Statut
- Membre
- Dernière intervention
- 8 décembre 2009
6merci à tous le monde pour vos commentaires encouragant :) !!!
Il y a de fortes chances que je le reprogramme en delphi ;)
merci
@+
Fabs
- Messages postés
- 3757
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
12Que ce soit sorti de ton imagination ou que tu aies trouvé ça ailleurs, un grand bravo quand même car je torture mon petit esprit et le web depuis un moment pour trouver une solution à l'un de mes problèmes et tu me l'apportes sur un plateau.
Ceux qui critiques, s'ils savent tout, grand bien leur fasse (ils pourraient d'ailleurs en faire profiter la communauté) quant à moi, je te remercie et .... m... je ne peux pas mettre plus de 10/10.
Cordialement
CanisLupus
- Messages postés
- 135
- Date d'inscription
- jeudi 30 janvier 2003
- Statut
- Membre
- Dernière intervention
- 12 juillet 2006
1- Messages postés
- 135
- Date d'inscription
- jeudi 30 janvier 2003
- Statut
- Membre
- Dernière intervention
- 12 juillet 2006
1J'ai jeté un oeil... je vais juste me le personnalier un peu.
Ma note: 10, c'est vraiment impressionnant, tu maîtrises vraiment tout les trucs qui font qu'une appli est vraiment bonne. Les commentaires sont tout juste suffisant, surtout vu la quantité de code.
Par contre j'ai rencontré quelques bugs (sous XP). Certains raccourcis passent mal. Après analyse, c'est le ResolveWindowsShortcut qui passe mal. Voici le code rajouté dans le AjoutBut pour corriger ça.
LeBut.Chemin = ResolveWindowsShortcut(LeBut.Chemin)
If InStr(LeBut.Chemin, ":") <> 2 Then
If InStr(LeBut.Chemin, ":") = Len(LeBut.Chemin) - 1 Then
x = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") - 1, 1) & ":"
xx = Mid(LeBut.Chemin, 1, Len(LeBut.Chemin) - 3)
LeBut.Chemin = x & xx
Else
x = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") - 1, 1) & ":"
xx = Mid(LeBut.Chemin, 1, InStr(LeBut.Chemin, ":") - 2)
xxx = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") + 2)
LeBut.Chemin = x & xxx & xx
End If
End If
J'ai pas fini de regarder mais c'est vraiment génial tout ça :) . Pour moi il a tellement de connaissances dedans que je mettrais ça au moins en niveau 2. M'enfin c'est surement moi qui suis pas très bon non plus ;)
Les autres trucs qui pourraient être cool (en tout cas je vais tenter de me le faire):
- proposer les 2 autres sens pour développer la fenetre (vers le haut et vers la gauche)
- une option sur la vitesse de fermeture de la fenetre (c réglé déjà)
- vérifier que ça fonctionne en multiples sessions (ou au moins sous plusieurs nom d'exe): à placer à différents endroits sur le bureau. Le but: faire des regroupements d'icônes, en rajoutant un nom sur la barre visible.
Ouala ouala j'ai fini ^^