Listbox

Question

Slt

comment récupérer les info d'un scroll ver le haut ou vers le bas d'une listbox  quand elle est remplie et possède une barre de défilement sur ca droite.

exemple si j'apuis sur la flèche  en bas a droit de  la listebox pour faire defilé ce qui vient en dessous. j'aimerais savoir  de combien  de case je suis descendu

cs_MPi · Answer

Salut,

Je ne sais pas si ça peut t'aider, mais tu peux au moins récupérer l'index de l'item visible placé le plus haut

Private Sub List1_Scroll()
    MsgBox List1.TopIndex
End Sub

MPi

mortalino · Answer

Salut,

et sinon, en déclarant une variable Static, tu peux compter le nombre de fois que ç'a été scrollé

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

blackcatthc · Answer

oui merci ce exactement ce que je voulais. Mais le problème est que cela ne marche pas avec la roulette de la souris ta pas une idée

blackcatthc · Answer

le coup de la variable static j'ai pas trop comprit ce que ca voulais dire

mortalino · Answer

Hélas je ne peux tester (je suis avec mon pc portable et donc pas de souris) mais pour le static, regarde dans l'aide vb, ce sera peut-être plus explicit que mon explication mais en gros, la valeur d'une variable static reste en mémoire le temps de l'exécution du dev : Public CountScroll As Byte 'dans les déclarations Private Sub List1_Scroll() Static bCountScroll As Byte bCountScroll = bCountScroll + 1 CountScroll = bCountScroll End Sub Private Sub NombreScroll() MsgBox CountScroll End Sub ~ Mortalino ~ Par contre il faut déclarer une autre variable public afin d'accéder à la valeur @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

cs_MPi · Answer

Une variable peut être déclarée Static dans une procédure. Elle gardera sa valeur même si tu sors de cette procédure. C'est un peu comme une variable Global mais elle n'est active que dans une procédure donnée.

Par contre, dans l'événement Scroll, si tu cliques sur un des boutons du Scrollbar, ça te donne le nombre de fois que que tu a utilisé le Scroll, mais ça ne te donne pas la position de cette liste

ex:
Private Sub List1_Scroll()
    Static NombreDeClick as integer
    
    NombreDeClick  = NombreDeClick  + 1
    MsgBox NombreDeClick 
End Sub

Donc, si tu montes ou tu descends, le nombre va toujours augmenter

MPi

Dev_tomandtom · Answer

Excusez moi pour le squatte mais ya t'il possibilité de savoir si l'utilisateur a double-cliqué sur un item du listbox ? 

je ne vois pas d'evenement de ce type dans la liste d'evenements.

cs_MPi · Answer

Si, il y a 
Private Sub List1_DblClick()

MPi

jmfmarques · Answer

La bonne réponse me semble avoir déjà été donnée par MPI, non ?

Utilisation de la valeur topindex

Elle est forcément proportionnelle à celle de la valeur de l'ascenseur ! Et comme cet ascenseur ne peut avancer de fractions d'articles, l'affaire me parait parfaitement conclue avec topindex !

blackcatthc · Answer

je ne c'est pas si c'est moi qui suis mauvais mais ca ne fai rien du tout . pas de message dans la messagebox rien loool

mortalino · Answer

Avec la solution de MPi, à chaque fois que tu fais un Scroll le message doit apparaitre.
Avec ma solution, il faut faire Call NombreScroll

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

blackcatthc · Answer

la ca me met un message d'erreur .

-Erreur de compilation 
"un appel fonction de la partie gauche d'une affectation doit renvoyer un type variant ou object "

mortalino · Answer

C'est sûr que t'es en VB6 (et pas vb.net ?)
Ca n'a pas lieu d'avoir ce message d'erreur !

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

jmfmarques · Answer

Je viens de vérifier à ma façon : Topindex est exactement la valeur de l'ascenseur.

La propriété scroll n'est quant à elle utile que lorsque l'on veut faire "concorder" l'affichage de deux listes ... ainsi :

Private Sub List1_Scroll()
  List2.TopIndex = List1.TopIndex
End Sub

ou encore lorsque l'on veut jouer avec l'événement scroll d'une listbox et les index d'un groupe de contrôles indexés...

ce qui évite de passer par des acrobaties en tous genres.

Il n'y a par contre à ma connaissance aucune utilité à utiliser et exploiter la valeur du scroll sur la listBox elle même (celle dont on utilise le scroll, sauf peut-être à empêcher le scroll, ainsi, par exemple, pour le bloquer à 0

Private Sub List1_Scroll()
  List1.TopIndex = 0
End Sub
picétou !

blackcatthc · Answer

Oui sur.  J'te montre exactement ce que j'ai tapez comme code

Public CountScroll As Byte

Private Sub List1_Scroll()
      Static bCountScroll As Byte
   bCountScroll = bCountScroll + 1
  CountScroll = bCountScroll
End Sub

Private Sub NombreScroll
 msgbox = CountScroll 
End sub

Private Sub commande1_Click()
 Call NombreScroll
End Sub

et list1 et commende1 exist bien

mortalino · Answer

tu m'étonnes que ça marche pas :

msgbox = CountScroll 

j'ai jamais mis le signe "égal" mais
msgbox CountScroll 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

blackcatthc · Answer

lool le boulet désolé. mais bon ca revient au probleme du debut ca m'affiche aucune msgbox

cs_MPi · Answer

C'est probablement parce que tu ne cliques pas mais que tu scrolles avec la roulette.
Est-ce bien ça ?

Pour intercepter la roulette, je pense que tu devras passer par une ou des APIs.
Mais je ne pourrai pas t'aider là-dessus.
Tu peux toujours faire une recherche sur le site. On en a sûrement déjà parlé.

MPi

jmfmarques · Answer

Peux-tu nous dire, s'il te plait, Blackcatthc, pourquoi tu cherches cette valeur ? Dans quel but exactement ?
Car je crois deviner que tu t'égares, là ....

mortalino · Answer

il faut effectivement recourir aux APIs dont la dll ne fait pas parti de Windows, voici un lien expliquant comment procéder :

http://arkham46.developpez.com/articles/access/mousewheel/

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

blackcatthc · Answer

oui c'es bien ca j'veut recupéré l'info lors d'un scroll avec la roulette. sinon merci quand même.

jmfmarques · Answer

Bon...
C'est un dialogue de sourds !
Que ton scroll soit fait avec la molette ou autrement, un scroll est un scroll et il se traduit par le même effet !:
Il se trouve que cet effet se voit tout simplement sur la propriété TopIndex !

Si maintenant, ce que tu cherches n'est pas la valeur en nombre de lignes mais celle en unités logiques de ta form (telles que résultant de son scalemode), il te suffit d'utiliser Textheight et le nombre de lignes !

Une autre et dernière fois : quel est le but que tu cherches à atteindre ? ne me réponds pas encore une fois "connaître la valeur du scroll"... hein ! - Dis moi à quoi tu comptes utiliser cette valeur et la solution viendra tout naturellement et tout simplement ... sans doute.

Je ne reviendrai pas sur cette discussion sans cette réponse-là !

blackcatthc · Answer

ce que je veut plus precisement c'est synchronisé deux listbox.  Que lorsque j'en bouge une l'autre bouge aussi . j'ai reussit a le faire avec l'aide de ma premiere reponse mais ca ne fonctionne pas quand tu utilise la molette la la deuxieme filebox ne suit plus l'autre avec ce code la:

Private Sub List_playlist_Scroll()
 List1.TopIndex = List2.TopIndex 
 List2.TopIndex = List1.TopIndex
End Sub

cs_MPi · Answer

Ton bout de code survient quand le contrôle List_Playlist est "scrollé"
Et tu tentes d'ajuster 2 autres listbox
Est-ce bien ça ? Ça fait donc 3 listes à synchroniser, c'est ça ?

MPi

jmfmarques · Answer

Tout simplement :
Ne pas confondre l'événement scroll d'une listbox avec celui d'une scrollbar.

Avec une listbox : un scroll déplace, dans un sens ou dans l'autre, le topindex.

Réciproquement : toute modification du topindex se traduit, avec une listbox, par un événement scroll ...
La preuve ? La voilà :

Sur une Form : une listbox list1 et un bouron de commande command1 :

code :


Private Sub Form_Activate()
  For i = 1 To 100
    List1.AddItem i
  Next
End Sub




Private Sub Command1_Click()
  List1.TopIndex = 4  ' <<<<======= ici je définis un nouveau topindex
End Sub


Private Sub List1_Scroll()
  MsgBox "scrollé !" ' <<<<======= et ça se traduit par un constat de scrolling
End Sub

Conclusion ? : ce que tu as fait avec la molette n'est pas un scroll de listbox mais autre chose .... car s'il avait modifié le topindex, celà se serait traduit par un scroll et s'il avait été un scroll de listbox, il aurait provoqué une modification du topindex ... (mutatis mutandi !)

Je te conseille donc, avant de continuer, de vérifier ce qu'a enréalité fait ton utilisation de la molette :

Fastoche : après l'avoir utilisé : msgbox list1.topindex (si pas modifié : ton scroll est tout sauf un scroll de listbox !...)

une autre fois : ne pas confondre un scroll de listbox avec celui de l'affichage d'une listbox dans un container !....

Mais bon ....continuons....

blackcatthc · Answer

oup's dsl. encore fait une erreur .

Private Sub List1_Scroll()
 List1.TopIndex = List2.TopIndex 
 List2.TopIndex = List1.TopIndex
End Sub

je veut que quand j'utilise la molette  dans le premier le deuxiemme bouge aussi le mouvement du premier

blackcatthc · Answer

oué ce que tu dit est sans doute vrai mais bon j'suis qu'un noob en vb6. j'comprend pas encore tres bien ce que je fait

cs_MPi · Answer

Pour en revenir à ta molette, si tu l'utilises, la liste sera bien modifiée (vers le haut ou le bas), mais ça n'activera pas l'événement Scroll. De là l'utilisation d'API.

Et comme je disais, si tu recherches un peu sur le site, tu devrais trouver ton bonheur.

MPi

jmfmarques · Answer

Rhoo....

une form :
2 listboxes list1 et list 2
un bouton de commande commande1 (dont le seul rôle sera de déplacer le topindex de list1)
un bouton de commande commande 2  (dont le seul rôle sera de déplacer le topindex de list2)

code :

Private Sub Form_Activate()
  For i = 1 To 100
    List1.AddItem i
    List2.AddItem i & "a"
  Next
End Sub




Private Sub Command1_Click()
  List1.TopIndex = 4
End Sub
Private Sub Command2_Click()
  List2.TopIndex = 5
End Sub


Private Sub List1_Scroll()
  List2.TopIndex = List1.TopIndex
End Sub


Private Sub List2_Scroll()
  List1.TopIndex = List2.TopIndex
End Sub

lance et observe un peu !

Que tu appuies sur command1 ou sur command2, les 2 listboxes se mettent "au diapason"... bien évidemment !

Or que font Command1 et command2 ? rien d'autre que de modifier le topindex de l'une ou de l'autre des 2 listboxes !!

Clair, non ? : si ton action molette modifie ce topindex (et c'est celà, le scroll d'une listbox), l'autre est forcée de suivre... clair ?

Listbox

29 réponses

Votre réponse

Discussions similaires