Drag'n'drop listes
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:
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.
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.
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.