Un grand bravo pour ton source, fabiin, c azerty25 qui m'a aiguillé.
Que 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.
heuu râlez pas hein j'ai pas optimisé le code que j'ai remis au dessus (les variables ne servent à rien), je l'ai laissé tel que je l'ai fait pour tester :p
Nondedju! Une idée me vient soudainement au boulot aujourd'hui en voyant mon bureau rempli d'icônes, je vais faire un prog qui va réunir celles ci. Je rentre ce soir, je commence quelques recherches sur vbfrance pour orienter la réalisation et hop je tombe sur le prog déjà tout fait, presqu' exactement ce que je voulais faire !!
J'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.
Viens tous juste de l'essayer.
Ma note 10/10
Vraiement excellent, je t'encourage même à l'améliorer tu pourrais
surement y pondre un bon petit shareware ou freewares (c'est le choix tu concepteur).
Sinon, je remerciement aussi les personnes qui note vraiment les sources qui teste et donne vraiment leur avis, sans ne pense qu'a critiquer (ceux là, peuvent changer de site, il ne sont pas interressant).
@+ et continue.
merci à tous le monde pour vos commentaires encouragant :) !!!
Il y a de fortes chances que je le reprogramme en delphi ;)
merci
@+
Fabs
Que 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
J'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 ^^