VBA - Scroll en Controls ActiveX & UserForm (ListBox, ComboBox, TextBox, UserForm, Frame, MultiPage) V16

[Dudu2]

En fait, je viens de publier la version 15B qui corrige des lacunes de la version 15. Et ça n'est pas simple !
Scroll Up & Down sont maintenant 100% gérés en décalage de ScrollBar.
Le mode mixte est conservé: si on clique au milieu de la TextBox on passe en mode décalage ligne.
Le retour sur la 1ère ou la dernière ligne de la TextBox annule le mode décalage ligne et réactive donc le décalage de ScrollBar.

 

[patricktoulon]

c'est ça et la formule est simple
je vais regarder ce que tu a fait

 

[Dudu2]

c'est ça et la formule est simple

Essaie de le coder en partant de zéro et tu verras si c'est simple !

Je me suis brulé les neurones sur ce truc qui m'a pris plusieurs heures de mise au point.
Je suis d'abord parti sur des calculs génériques de lignes à décaler avec des Modulo et autres Int() de divisions.
Mais ce n'était pas la bonne approche.
Si tu regardes le code résultant, tu auras sans doute du mal à rentrer dedans.
Pour moi c'est progressivement que je suis arrivé à ce résultat.

 

[patricktoulon]

le truc est simple
nbligne= le height / par le fontsize*1.2(c'est approximatif)
la current ligne visible =curline mod nbligne
parti de la puisque tu a nbligne de sais de combien il faut descendre ou monter selon le sens du scroll avant de scroller
dans mon calcul j'utilise le Int pour avoir que l'entier