Flatscrollbar

[Ben]

Salut! bien réveillés?

Voilà G un petit problème : je voudrais remplacer la scrollbar bateau des listbox (ds un userform) par la flatscrollbar, mais je ne connais pas trop l'utilisation de ce contrôle!! G déjà réussi à faire un truc approximatif en faisant en sorte que le nombre de lignes de la listbox soit le max de ma flatscrollbar, puis avec cette ligne de code, je fais défiler la liste grâce à la Flatscroll :

Private Sub FlatScrollBar1_Change()

ListBox4.TopIndex = FlatScrollBar1.Value

End Sub

Mais j'ai toujours la barre "normale" qui se fout devant (grrrr), et la propriété Zorder n'a pas l'air de vouloir marcher. Est-ce que quelqu'un connaît un moyen d'enlever ou masquer complètement la scrollbar, pour ne voir que la flatscrollbar?

Merci d'avance, @+

Ben

 

[Ti]

Salut, impossible de référencer la flatscrollbar ici (XL ne veut pas que je la pose sur le Userform). Pourrais-tu mettre un fichier d'exemple pour qu'on puisse voir.

 

[Ben]

voilà un petit exemple dans lequel j'ai réussi à utiliser correctement Zorder, en fait il faut l'utiliser sur la listbox et non pas sur la flatscroll...le but là va être de trouver pourquoi, même en mettant comme max le nombre de lignes de la listbox, l'évolution de flatscroll ne correspond pas exactement à celle de la list!

 

[Ben]

Salut!
Alors Ti? Ca marche toujours pas chez toi? En tout cas si quelqu'un pouvait me donner une idée svp...Merci

@+, Ben

 

[Ti]

Désolé Ben, j'ai bien regardé, mais je ne vois pas l'intérêt de ce FlatScrollbar dans ce cas précis. Il me semble qu'en l'utilisant on se complique beaucoup la vie pour peu de résultat, c'est pourquoi j'ai laissé tomber.

 

[Ben]

tant pis, thx.