Déclencher action si scrollbar visible

Version imprimable

11/10/2024, 13h42
mosar3

Déclencher action si scrollbar visible

Bonjour, j'ai une textbox d'une part et une frame contenant des textbox d'autre part. Selon les cas de figure, l'une et l'autre peuvent être chargées et s'affichent alors avec une scrollbar pour scroller.
Comment puis déclencher une action (en l'occurence agrandir la textbox ou la frame lorsque je passe la souris dessus) uniquement si la scrollbar est visible (c'est à dire si besoin de l'agrandir...) ?

Merci :D

Bonjour,

Quelque chose de ce genre (code au niveau de UserForm1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim vHeight As Single, k As Single, s As String
 
Private Sub UserForm_Initialize()
    vHeight = Me.TextBox1.Height        '--- hauteur de la textbox montrant 1 ligne
    s = ActiveCell.Text
    k = Int(Len(s) / 40) + 1            '--- 1 ligne textbox1 estimée contenir 40 caractères environ
    Debug.Print vHeight, k, s
    Me.TextBox1.Text = s
End Sub
 
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.TextBox1.Height = vHeight * k   '--- agrandit la textbox
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.TextBox1.Height = vHeight       '--- rend la hauteur initiale de la textbox
End Sub

Cordialement.

13/10/2024, 16h55
mosar3

Bonjour, merci de ta réponse, c'est une méthode pour estimer la taille du contenu, et en fonction en déduire si la scrollbar devrait être là...
Dans mon cas ça serait un peu une usine à ga car la frame peut contenir jusqu'à 40 textbox avec quelques mots ou de longs textes donc vraiment difficile d'estimer la taille finale de la frame...
Je cherche plutôt une méthode qui détecte si la scrollbar est visible... si cette méthode existe :)
14/10/2024, 11h27
Nain porte koi

Hello,

voyez si la solution de Patrick Toulon ne vous conviendrait pas
https://www.developpez.net/forums/d1...er-scrollbars/
14/10/2024, 12h04
mosar3

Bonjour, merci du partage, effectivement la comparaison .height avec .scrollheight semble faire l'affaire, je vais creuser ça :)
[edit :] ça marche pour le frame ce qui était le plus délicat. Pour le textbox scrollheight n'existe pas, mais linecount fait l'affaire !
Merci !