Drag'n'drop listes

Soyez le premier à donner votre avis sur cette source.

Vue 3 884 fois - Téléchargée 201 fois

Description

Ben voila un tout petit code assez pratique. il permet de déplacer les éléments d'une
liste manuellement et 'en direct' par drag'n'drop.
Il suffit de mettre le code suivant:

Source / Exemple :


Dim clické as integer

Private Sub Liste_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clické = Liste.ListIndex
End Sub

Private Sub Liste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> vbLeftButton Then Exit Sub
  i = Liste.ListIndex
  If i = Clické Then Exit Sub

If i < Clické Then
    Clické = i
    For a = Clické + 1 To i + 1 Step -1
      t = Liste.List(a)
      Liste.List(a) = Liste.List(a - 1)
      Liste.List(a - 1) = t
    Next
Else
    Clické = i
    For a = i To Clické
      t = Liste.List(a - 1)
      Liste.List(a - 1) = Liste.List(a)
      Liste.List(a) = t
    Next
End If
End Sub

Conclusion :


ps: étant donné mon score minable au concours (je savais pas que seule l'interface
comptait, autant pour moi), ce sera certainement ma dernière source.
Je pensais mettre mon CipherStudio (qui peut crypter et décrypter xor, césar,
vigenere, xoft, base64, polybe,trithème, grille de fleissner, wolseley, unescape,
et bientot d'autres comme playfair,
et 'cracker' vigenere, xor, césar et grille de fleissner).
De plus il a un dico de patterns, contient des outils pour la stégano, et bientot
un hill-climber pour la simple substitution.
Mais je vais plutot faire comme 99% des gens qui passent sur ce site et devenir un
'lurker', je prendrai les code qui m'intéressent sans en donner à la place.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Snurf
Messages postés
4
Date d'inscription
lundi 25 mars 2002
Statut
Membre
Dernière intervention
16 juin 2004
1
14 avril 2004 à 10:47
Merci pur ton source, malgré que ce ne soit pas ce que je rechrchais. Concernant le petit bad trip, ca arrive, mais soit pas découragé... j ajouterai qu'il y a une autre catégorie de personne : les pressés qui apprennent plein de langages dans leur études qui n'ont pas le temps d'approfondir les langages. Vbfrance est une source super utile, que des personnes qui connaissent bien le langage partagent leurs sources est qelquechose de vraiment très gentil!!
Donc merci et te décourage pas
cs_KevinK
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003

3 sept. 2002 à 14:27
Je vois pas beacoup de commentaires sur la source...
cs_KevinK
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003

31 août 2002 à 22:14
'j'ai rien compris à ton "peut crypter et décrypter xor, césar,
vigenere, xoft, base64, polybe,trithème, grille de fleissner, wolseley, unescape,
et bientot d'autres comme playfair"'
-> tous ces mots sont des systemes de cryptage (évidemment pour ceux qui ne s'intéressent pas à la crypto c du chinois), que mon prog peut donc crypter & décrypter (mais c'était juste une parenthèse)
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007

28 août 2002 à 01:00
Hééééééé pas si vite toi, tu vois moi je débute en VB et tout ce que tu peux apporter à ce site permettra aux débutants comme moi de progresser, pour commencer j'ai rien compris à ton "peut crypter et décrypter xor, césar,
vigenere, xoft, base64, polybe,trithème, grille de fleissner, wolseley, unescape,
et bientot d'autres comme playfair," si tu pouvais déjà m'expliquer tout ça ça serait super sympa.

Te prend pas la tête, et aide moi, ton savoir doit être partager et c'est ça l'esprit d'internet, donc voila.
Merci de m'avoir lu
cs_epoc
Messages postés
87
Date d'inscription
mardi 28 mai 2002
Statut
Membre
Dernière intervention
25 octobre 2006

26 août 2002 à 13:35
bien dit lolux !
Afficher les 9 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.