Drag'n'drop listes

Soyez le premier à donner votre avis sur cette source.

Vue 4 016 fois - Téléchargée 213 fois

Télécharger le projet
Commenter

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.
Télécharger le projet

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 !
S'inscrire maintenant

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.

Du même auteur (cs_KevinK)