Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 788 fois - Téléchargée 44 fois
Dim h As Integer Dim b As Integer Dim n As Integer Dim tmpstr As String Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) h = List1.ListIndex End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) n = List1.ListIndex If n <> h Then tmpstr = List1.List(h) List1.RemoveItem h If n > h Then List1.AddItem tmpstr, List1.ListIndex + 1 List1.ListIndex = List1.ListIndex + 1 End If If n < h Then List1.AddItem tmpstr, List1.ListIndex List1.ListIndex = List1.ListIndex - 1 End If End If End Sub
15 oct. 2004 à 12:41
28 janv. 2003 à 00:03
j'ai posté la meme chose pour plusieurs éléments de la liste :
http://www.vbfrance.com/article.aspx?Val=6302
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.