pour monter:
Dim m_Chaine As String
m_Chaine = List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex - 1)
List1.List(List1.ListIndex - 1) = m_Chaine
LST1.Selected(List1.ListIndex - 1) = True
la meme chose est faisable pour descendre, je ne pense pas que le refresh soit necessaire, il se produit automatiquement quand un changement visuel arrive sur la listbox. Ca n'appelle pas le add ni le remove, c'est juste un déplacement de text et c'est ce que veut faire ton code. J'aurais meme été tenté d'inclure la monté et descente dans la meme procédure et en variable de procédure , un Enum{Up, Down}, avec la meme chose pour sauver, lire fichier avec un Enum {Read, Write}.
Ok :
- Je suis tous a fait d'accord pour les droit et je sais carément pas pourkoi j'ai mis cela sinon je ne l'aurais pas posté fais moi confiance.
- Si tu n'y est pour rien dans la note "1" tu pourrait me noter a juste tritre stp (ce que tu pense vraiment de la source) je tiens a préciser que c'est mon 1er post et que je débute DSL.
tu n'as pas compris ce que je voulais dire..., tout ce que tu as apris vient de quelque part donc forcement tu l'as lu quelque part. Pour pouvoir avoir un droit quelconque, il faudrait que tu "pondes" un alogrithme du style Renfield ou ebartsoft avec tout une stratégie et un résultat hors paire. Moi même, je ne considère avoir aucun droit sur le code que je donne, le seule droit que je pourrais avoir c'est une reconnaissance d'avoir partager ce que j'ai codé et la maniere dont je l'ai codé, mais aucunement un droit sur les proprités que j'ai aligné les unes apres les autres car toutes ces propriétés, elles s'affichent dans une combo quand j'ai appuyé sur le "point" de mon clavier, donc je n'ai rien inventé. En conséquence, je considère que l'on n'a aucun droit sur des petit bout de code, comme moi je fais, avec une petite reflexion et tout le monde arrive au ce résultat et même mieux parfois. En exemple, je me souviens qu'ebartsoft avait fait une sorte de "sniffer" sur une adresse, toute sa logique, toute ses connaissances mise bout a bout on fait, qu'il a coder un algorithme que peut de personnes soient capables de faire. Là il peut prétendre a des droits sur toute sa source (lequel il se garde bien, c'est bien là qu'on voit les grand codeurs ... comme Renfield et bien d'autres). Bref, Pour ma part, le seul droit que je te confère, c'est une reconnaissance d'avoir fait partager ton code, personnelement j'accorde plus d'importance au personnes qui partagent qu'a celle qui se conferent des droits quelconques. Donc ma reconnaissance tu l'as, sois en sur, par le fait que tu partages, mais je ne change pas d'avis sur les droits.
J'en viens maintenant a ta source. Pour le goto, je ne chipottes pas du tout, il y avait juste une critique constructive, puisqu'en général, le goto va conditionner une excecution d'une autre partie code hors la il ne fait rien, c'est , il me semble le principe du goto. Pour les variables, je ne l'ai pas lu, sinon tu penses bien que je n'aurais pas fait la remarque.
En résumé, mon 1er post avait un air de gars pas content, le 2eme etait plutot constructif et n'était pas la pour casser, ce n'etait pas mon intention.
@+
Merci Brice
Bon liquide pour ta gouverne, il y a une gestion d'erreur dans la suppression de l'item certe via une selection d'un autre item mais fallait y penser et personne n'a poser de source identique et je pense qu'elle est interressante pour les débutants.
Après tu chipote un peu pour exit sub ou goto
Et pour finir : Chemin + fichier + extention j'ai indiqué comme quoi il fallait en faire une varaible en strting ou l'intégré comme tu l'a dit.
Voila tous
A+
salut, c'est exactement ce que je cherchait, bon la note n'est carément pas sympa vous auriez au minimum du mettre un commentaire constructif et non de la critique pure.
Continue comme ca ABF
Bon liquide je refait ca maintenant tu comprendra. Sinon pour le droit je sui dsl j'ai pas fait gaffe de plus j'ai piquer aucun code pour ta gouverne cependant peut etre qu'il existe deja des code equivalent mais je n'ai jamais trouvé pour suppr un item correctement (enfin de cette façon).
A +
ce que j'en ressors, c'est :
- sur la suppression, c'est un removeitem simplement, la particularité se résume en la selection d'un autre item.
- Pour monter descendre, je n'ai pas compris ce que ca devait faire, ca manque d'information. d'autant plus qu'il y a 2 listes, et la je ne comprend vraiment pas pourquoi. .......If LI1 = LC Then GoTo Fin .... Then exit sub <--- avec ca c'est aussi bien
-Chemin + fichier + extention , je ne retrouve pas les variables, ce n'est pas èvident de mettre ce genre de variable en "public", le mieux serait de les integrer dans la procedure.
Salut, en fait je n'ai meme pas lu le code, enfin oui j'ai commencé. J'ai commencer a lire les "trucs" en vert, et ..... que vois je !!!!
'* Crer par ABF : *
'* abf.revolu@voila.fr *
'* *
'* Tous droits rservs *
'******************************
Est ce "tous droits reservés" ? cette ligne la, m'a saoulé pour la soirée d'avance. Je viens la pour avoir des infos, des idées, et si au final nous n'en avons pas le droit et bien ca ne sert a rien, d'ailleur la source n'a rien a faire ici a priori. D'un autre coté, "il faut en avoir dans le cigare", pour filer des morceaux de codes pris a droite et a gauche qui, mis bout à bout, font une source. J'entend par là, que forcement les morceaux de codes viennent de quelque part, peut etre meme d'ici, qu'en les répercutant dans une source, si a la base, ils n'ont pas de droits reservés, je me demande bien si au final le droit reservé est de mise, du fait que dedans ce trouve des codes n'appartenant pas initialement a la personne ayant pondu la source.
bref si elle a des droits reservés, il faut la retirer, si elle n'en a pas, il faut retirer l'en-tete. Et si des morceaux de code viennent de l'aide d'une autre personne ou d'un site, il ne faut pas s'en approprié les droits.
Et bien je te laisse modifier ma source et me la remettre pour que je puisse la remettre a neuf.
bonne journée.
PS: abf.revolu@voila.fr
Dim m_Chaine As String
m_Chaine = List1.List(List1.ListIndex)
List1.List(List1.ListIndex) = List1.List(List1.ListIndex - 1)
List1.List(List1.ListIndex - 1) = m_Chaine
LST1.Selected(List1.ListIndex - 1) = True
la meme chose est faisable pour descendre, je ne pense pas que le refresh soit necessaire, il se produit automatiquement quand un changement visuel arrive sur la listbox. Ca n'appelle pas le add ni le remove, c'est juste un déplacement de text et c'est ce que veut faire ton code. J'aurais meme été tenté d'inclure la monté et descente dans la meme procédure et en variable de procédure , un Enum{Up, Down}, avec la meme chose pour sauver, lire fichier avec un Enum {Read, Write}.
- Je suis tous a fait d'accord pour les droit et je sais carément pas pourkoi j'ai mis cela sinon je ne l'aurais pas posté fais moi confiance.
- Si tu n'y est pour rien dans la note "1" tu pourrait me noter a juste tritre stp (ce que tu pense vraiment de la source) je tiens a préciser que c'est mon 1er post et que je débute DSL.
A+ bonne journé enfin bonne nuit pour moi.