themadeone
Messages postés3Date d'inscriptionsamedi 27 octobre 2007StatutMembreDernière intervention17 février 2008 13 févr. 2008 à 23:45
Non!l nom d mon listbox est listbox1 ce qui fai que ancien_index=listbox1.listindex
mais il souligne sur listindex par ce quel ne figure pas!!!
cresus18
Messages postés35Date d'inscriptiondimanche 20 juillet 2003StatutMembreDernière intervention13 février 20081 13 févr. 2008 à 23:37
La seule raison plausible qui me vient à l'esprit serait que tu n'ais pas déclaré la variable 'ancien_index' globale afin de la rendre visible partout dans ton code... Sinon, si le nom de ta Sub est 'Liste1_MouseDown', est-ce que ta liste a bien le même nom 'Liste1' ?
Ajoutes cette ligne 'Debug.Print (ancien_index)' dans la Sub Liste1_MouseMove(...) à l'intérieur de la 2ème boucle IF pour vérifier (dans la fenètre 'immediate') que la variable 'ancien_index' ait gardé sa valeur.
A part ça je ne vois pas, ou bien le problème vient d'ailleurs.
themadeone
Messages postés3Date d'inscriptionsamedi 27 octobre 2007StatutMembreDernière intervention17 février 2008 12 févr. 2008 à 01:30
j'ai un ptit probléme avec ton code , c'est que
Private Sub Liste1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
ancien_index = Liste1.ListIndex
End Sub
ne veut pas marcher!:s:s
stp!si vous pouvez m'aider ca serai gentil de votre part!
soldier8514
Messages postés295Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention24 janvier 20141 13 juil. 2005 à 22:23
simple et efficace ! on pourrais peut etre éviter de redéclarer à chaque mouse_move les variables suivantes :
# Dim nouveau As Integer 'nouvel index de la souris en "temps réel"
# Dim temp As String 'nom de l'élément de l'ancien index
sinon rien à dire sinon bravo
cresus18
Messages postés35Date d'inscriptiondimanche 20 juillet 2003StatutMembreDernière intervention13 février 20081 6 janv. 2005 à 14:54
je vous remercie tous pour vos feedbacks, content que ça vous plaise.
Par contre hvb, désolé mais je n'ai vraiment que peu de temps libres pour programmer et j'ai mon programme à finir en priorité. Peut être plus tard...
Bonne prog à tous !
cs_olid
Messages postés296Date d'inscriptionlundi 2 septembre 2002StatutMembreDernière intervention28 janvier 2008 6 janv. 2005 à 13:14
Simple, efficace, merci :o)
hvb
Messages postés939Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention27 janvier 20093 2 janv. 2005 à 22:13
merci de me citer, c'est honnête. :)
et tu as eu raison de le remanier avec l'evenement mouse_move, c'est plus intuitif pour l'utilisateur.
tu pourrais aussi remanier la methode pour plusieurs éléments maintenant !
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 1 janv. 2005 à 13:37
13 févr. 2008 à 23:45
mais il souligne sur listindex par ce quel ne figure pas!!!
13 févr. 2008 à 23:37
Ajoutes cette ligne 'Debug.Print (ancien_index)' dans la Sub Liste1_MouseMove(...) à l'intérieur de la 2ème boucle IF pour vérifier (dans la fenètre 'immediate') que la variable 'ancien_index' ait gardé sa valeur.
A part ça je ne vois pas, ou bien le problème vient d'ailleurs.
12 févr. 2008 à 01:30
Private Sub Liste1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
ancien_index = Liste1.ListIndex
End Sub
ne veut pas marcher!:s:s
stp!si vous pouvez m'aider ca serai gentil de votre part!
13 juil. 2005 à 22:23
# Dim nouveau As Integer 'nouvel index de la souris en "temps réel"
# Dim temp As String 'nom de l'élément de l'ancien index
sinon rien à dire sinon bravo
6 janv. 2005 à 14:54
Par contre hvb, désolé mais je n'ai vraiment que peu de temps libres pour programmer et j'ai mon programme à finir en priorité. Peut être plus tard...
Bonne prog à tous !
6 janv. 2005 à 13:14
2 janv. 2005 à 22:13
et tu as eu raison de le remanier avec l'evenement mouse_move, c'est plus intuitif pour l'utilisateur.
tu pourrais aussi remanier la methode pour plusieurs éléments maintenant !
1 janv. 2005 à 13:37